[emacs][wip] adapt to evil-collection-notmuch bindings etc
authorAmin Bandali <amin@gnu.org>
Thu, 23 Aug 2018 04:18:51 +0000 (00:18 -0400)
committerAmin Bandali <amin@gnu.org>
Thu, 23 Aug 2018 04:18:51 +0000 (00:18 -0400)
init.org

index c7b2c83..c7181f4 100644 (file)
--- a/init.org
+++ b/init.org
@@ -1314,18 +1314,27 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
         '("Subject" "To" "Cc" "Date" "List-Id" "X-RT-Originator")
         notmuch-hello-thousands-separator ","
         notmuch-fcc-dirs
         '("Subject" "To" "Cc" "Date" "List-Id" "X-RT-Originator")
         notmuch-hello-thousands-separator ","
         notmuch-fcc-dirs
-        '(("amin@aminb.org"            . "amin/Sent")
-          ("amin@gnu.org"              . "gnu/Sent")
-          ("abandali@uwaterloo.ca"     . "\"uwaterloo/Sent Items\"")
-          ("mab@gnu.org"               . "gnu/Sent")
-          ("aminb@gnu.org"             . "gnu/Sent")
-          (".*"                        . "sent"))
+        '(("amin@aminb.org"        . "amin/Sent")
+          ("amin@gnu.org"          . "gnu/Sent")
+          ("abandali@uwaterloo.ca" . "\"uwaterloo/Sent Items\"")
+          ("mab@gnu.org"           . "gnu/Sent")
+          ("aminb@gnu.org"         . "gnu/Sent")
+          (".*"                    . "sent"))
         notmuch-search-result-format
         notmuch-search-result-format
-        '(("date" . "%12s ")
-          ("count" . "%-7s ")
+        '(("date"    . "%12s ")
+          ("count"   . "%-7s ")
           ("authors" . "%-40s ")
           ("subject" . "%s ")
           ("authors" . "%-40s ")
           ("subject" . "%s ")
-          ("tags" . "(%s)")))
+          ("tags"    . "(%s)"))
+        notmuch-saved-searches
+        '((:name "inbox"     :query "tag:inbox"     :key "i")
+          (:name "unread"    :query "tag:unread"    :key "u")
+          (:name "latest"    :query "tag:latest"    :key "l")
+          (:name "encrypted" :query "tag:encrypted" :key "e")
+          (:name "flagged"   :query "tag:flagged"   :key "f")
+          (:name "sent"      :query "tag:sent"      :key "s")
+          (:name "drafts"    :query "tag:draft"     :key "d")
+          (:name "all mail"  :query "*"             :key "a")))
   ;; (add-hook 'visual-fill-column-mode-hook
   ;;           (lambda ()
   ;;             (when (string= major-mode 'notmuch-message-mode)
   ;; (add-hook 'visual-fill-column-mode-hook
   ;;           (lambda ()
   ;;             (when (string= major-mode 'notmuch-message-mode)
@@ -1333,32 +1342,14 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
   ;; (set! :evil-state 'notmuch-message-mode 'insert)
   ;; (advice-add #'notmuch-bury-or-kill-this-buffer
   ;;             :override #'kill-this-buffer)
   ;; (set! :evil-state 'notmuch-message-mode 'insert)
   ;; (advice-add #'notmuch-bury-or-kill-this-buffer
   ;;             :override #'kill-this-buffer)
+  (evil-collection-define-key 'normal 'notmuch-common-keymap
+    "c" (lambda ()
+          "Compose new mail and prompt for sender"
+          (interactive)
+          (let ((current-prefix-arg t))
+            (call-interactively #'notmuch-mua-new-mail))))
   :bind
   :bind
-  (:map notmuch-hello-mode-map
-        ("g" . notmuch-poll-and-refresh-this-buffer)
-        ("u" . (lambda ()
-                 "Search for `unread' tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:unread")))
-        ("i" . (lambda ()
-                 "Search for `inbox' tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:inbox")))
-        ("l" . (lambda ()
-                 "Search for `latest' tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:latest")))
-        ("e" . (lambda ()
-                 "Search for `encrypted' tagged messages"
-                 (interactive)
-                 (notmuch-hello-search "tag:encrypted")))
-        ("M" . (lambda ()
-                 "Compose new mail and prompt for sender"
-                 (interactive)
-                 (let ((current-prefix-arg t))
-                   (call-interactively #'notmuch-mua-new-mail)))))
   (:map notmuch-search-mode-map
   (:map notmuch-search-mode-map
-        ("g" . notmuch-poll-and-refresh-this-buffer)
         ("k" . (lambda ()
                  "Mark message read"
                  (interactive)
         ("k" . (lambda ()
                  "Mark message read"
                  (interactive)