[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ebdb 8b952a4 2/8: First draft of EBDB support for Notmu

From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 8b952a4 2/8: First draft of EBDB support for Notmuch
Date: Mon, 6 Jan 2020 14:39:42 -0500 (EST)

branch: externals/ebdb
commit 8b952a40bb366a6749b9cf19f506f377a78d80ef
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    First draft of EBDB support for Notmuch
    * ebdb-notmuch.el: Basic skeleton, still doesn't do automatic popup
    display, etc.
 ebdb-notmuch.el | 75 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)

diff --git a/ebdb-notmuch.el b/ebdb-notmuch.el
new file mode 100644
index 0000000..a945b56
--- /dev/null
+++ b/ebdb-notmuch.el
@@ -0,0 +1,75 @@
+;;; ebdb-notmuch.el --- EBDB interface to Notmuch    -*- lexical-binding: t; 
+;; Copyright (C) 2019  Free Software Foundation, Inc.
+;; Author: Eric Abrahamsen <address@hidden>
+;; Maintainer: Eric Abrahamsen <address@hidden>
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; GNU General Public License for more details.
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+;;; Commentary:
+;; EBDB's interface to the Notmuch mail client.
+;;; Code:
+(require 'ebdb-mua)
+(declare-function notmuch-show-get-header "notmuch-show")
+(defvar notmuch-show-mode-map)
+(defvar notmuch-message-mode-map)
+(defgroup ebdb-mua-notmuch nil
+  "Options for EBDB's interaction with Notmuch"
+  :group 'ebdb-mua)
+(defcustom ebdb-notmuch-auto-update-p ebdb-mua-reader-update-p
+  "Notmuch-specific value of `ebdb-mua-auto-update-p'."
+  :type '(choice (const :tag "do nothing" nil)
+                 (const :tag "search for existing records" existing)
+                 (const :tag "update existing records" update)
+                 (const :tag "query for update or record creation" query)
+                 (const :tag "update or create automatically" create)
+                 (function :tag "User-defined function")))
+(defcustom ebdb-notmuch-window-size ebdb-default-window-size
+  "Size of the EBDB buffer when popping up in Notmuch.
+Size should be specified as a float between 0 and 1.  Defaults to
+the value of `ebdb-default-window-size'."
+  :type 'float)
+(cl-defmethod ebdb-mua-message-header ((header string)
+                                      &context (major-mode notmuch-show-mode))
+  "Extract a message header in Notmuch."
+  (notmuch-show-get-header
+   ;; Yuck, is there no better way to turn a string into a keyword?
+   (intern (format ":%s" (capitalize header)))))
+(cl-defmethod ebdb-make-buffer-name (&context (major-mode notmuch-show-mode))
+  (format "*%s-Notmuch*" ebdb-buffer-name))
+(cl-defmethod ebdb-popup-window (&context (major-mode notmuch-show-mode))
+  (list (get-buffer-window) ebdb-notmuch-window-size))
+(defun ebdb-insinuate-notmuch ()
+  "Hook EBDB into Notmuch."
+  (define-key notmuch-show-mode-map ";" ebdb-mua-keymap)
+  (when ebdb-complete-mail
+    (with-eval-after-load "notmuch-message"
+      (define-key notmuch-message-mode-map (kbd "TAB") #'ebdb-complete-mail))))
+(add-hook 'notmuch-show-mode-hook #'ebdb-insinuate-notmuch)
+(provide 'ebdb-notmuch)
+;;; ebdb-notmuch.el ends here

reply via email to

[Prev in Thread] Current Thread [Next in Thread]