diff options
Diffstat (limited to 'custom/jao-custom-notmuch.el')
| -rw-r--r-- | custom/jao-custom-notmuch.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index bbabae2..2441942 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -122,12 +122,20 @@ ,(jao-notmuch--sq "emacs-diffs" "ec" "emacs" "diffs") ,(jao-notmuch--sq "emacs-orgmode" "eo" "emacs" "org"))) +(defvar jao-notmuch-trove-searches + (mapcar (lambda (m) (list :query (concat "tag:trove and tag:" m) + :name (concat "trove/" m) + :key (concat "t" (substring m 0 1)) + :search-type 'tree)) + '("feeds" "hacking" "bills" "jao"))) + (setq notmuch-saved-searches (append jao-notmuch-inbox-searches jao-notmuch-bigml-searches jao-notmuch-mark-searches jao-notmuch-feed-searches - jao-notmuch-emacs-searches)) + jao-notmuch-emacs-searches + jao-notmuch-trove-searches)) (defvar jao-notmuch-dynamic-searches `(,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h..")) @@ -138,6 +146,7 @@ (defvar jao-notmuch-new-searches `(,(jao-notmuch--q "new" nil "nn" '("tag:new" "not tag:draft")) ,(jao-notmuch--q "unread" nil "nu" '("tag:unread")) + ,@jao-notmuch-trove-searches (:query "*" :name "messages"))) (defun jao-notmuch-tree-widen-search () @@ -212,7 +221,7 @@ notmuch-fcc-dirs '(("\\(support\\|education\\)@bigml.com" . nil) (".*@bigml.com" . "bigml/trove +bigml +sent -new -unread") - (".*" . "jao/trove +jao +sent +trove -new -unread")) + (".*" . "trove/jao +sent +trove -new -unread")) notmuch-maildir-use-notmuch-insert t) :config @@ -323,7 +332,7 @@ (use-package notmuch-hello :init - (setq notmuch-column-control t + (setq notmuch-column-control 1.0 notmuch-hello-sections '(jao-notmuch-hello-insert-bigml-searches jao-notmuch-hello-insert-inbox-searches jao-notmuch-hello-insert-feeds-searches @@ -503,7 +512,7 @@ (save-window-excursion (other-window -1) (derived-mode-p 'notmuch-hello-mode))) (delete-window) - (jao-notmuch-refresh-hello (= 0 (mod (cl-incf jao-notmuch--visits) 10))))) + (jao-notmuch-refresh-hello (= 0 (mod (cl-incf jao-notmuch--visits) 100))))) (advice-add 'notmuch-tree :before #'jao-notmuch-before-tree) (advice-add 'notmuch-tree-quit :after #'jao-notmuch-after-tree-quit) |