From 8e52545e478b31292900e4114397554863954138 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 13 Aug 2021 19:55:12 +0100 Subject: notmuch: saved searches clean-ups --- notmuch.org | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index 8e4b068..ed9d9e5 100644 --- a/notmuch.org +++ b/notmuch.org @@ -12,14 +12,13 @@ :face jao-themes-error) (:name "S" :query "tag:new and tag:bigml and tag:support") (:name "W" :query "tag:new and tag:bigml" :face jao-themes-dimm) - (:name "I" :query "tag:new and tag:jao and tag:inbox") (:name "H" :query "tag:new and tag:jao and tag:hacking") - (:name "E" :query "tag:new and tag:emacs" :face jao-themes-dimm) + (:name "E" :query "tag:new and tag:\"/emacs/\"" :face jao-themes-dimm) (:name "l" :query "tag:new and tag:local" :face jao-themes-dimm) (:name "J" :query "tag:new and tag:jao and not tag:\"/local|emacs|hacking|feeds/\"" :face jao-themes-dimm) - (:name "F" :query "tag:new and tag:feeds and not tag:emacs" + (:name "F" :query "tag:new and tag:feeds and not tag:\"/emacs/\"" :face jao-themes-dimm))) (defun jao-notmuch-notify () @@ -76,12 +75,11 @@ (setq notmuch-saved-searches `(,(jao-notmuch--q "bigml" "inbox" "bi") ,(jao-notmuch--q "bigml" "support" "bs") - ,(jao-notmuch--q "bigml" "bug" "bb") + ,(jao-notmuch--q "bigml" "bugs" "bb") ,@(jao-notmuch--mboxes-search "bigml" "inbox" "support") ,@(jao-notmuch--mboxes-search "jao") ,(jao-notmuch--qn "local" nil "l" '("tag:local")) - ,(jao-notmuch--qn "emacs" "feeds" "ee" - '("tag:emacs" "not tag:\"/^emacs-/\"")) + ,(jao-notmuch--qn "emacs" "feeds" "ee" '("tag:emacs")) ,(jao-notmuch--qn "emacs" "github" "eg" '("tag:emacs-github")) ,(jao-notmuch--qn "emacs" "devel" "ed" '("tag:emacs-devel")) ,(jao-notmuch--qn "emacs" "bugs" "eb" '("tag:emacs-bugs")) @@ -96,8 +94,7 @@ t) ,(jao-notmuch--q "bml" "flagged" "rb" '("tag:flagged" "tag:bigml") t) ,(jao-notmuch--q "jao" "flagged" "rj" '("tag:flagged" "not tag:bigml") t) - ,(jao-notmuch--q "new" nil "n" '("tag:new")) - ,(jao-notmuch--q "draft" nil "d" '("tag:draft")))) + ,(jao-notmuch--q "new" nil "n" '("tag:new")))) (defun jao-notmuch-tree-widen-search () (interactive) @@ -122,6 +119,11 @@ (if widen jao-notmuch-widened-searches notmuch-saved-searches))) (notmuch-jump-search))) + (setq nnnotmuch-saved-searches + (mapcar (lambda (s) + (list :query (plist-get s :query) :name (plist-get s :name))) + jao-notmuch-widened-searches)) + #+end_src * enclosures #+begin_src emacs-lisp -- cgit v1.2.3