diff options
| -rw-r--r-- | custom/jao-custom-notmuch.el | 33 |
1 files changed, 19 insertions, 14 deletions
diff --git a/custom/jao-custom-notmuch.el b/custom/jao-custom-notmuch.el index 6f44d51..1297284 100644 --- a/custom/jao-custom-notmuch.el +++ b/custom/jao-custom-notmuch.el @@ -12,11 +12,14 @@ (:name "W" :query "tag:new and tag:bigml and not tag:\"/support|bugs|inbox/\"" :face default) - (:name "I" :query "tag:new and tag:jao and tag:inbox" :face jao-themes-warning) - (:name "W" :query "tag:new and tag:jao and tag:write" :face jao-themes-warning) + (:name "I" :query "tag:new and tag:jao and tag:inbox" + :face jao-themes-warning) + (:name "W" :query "tag:new and tag:jao and tag:write" + :face jao-themes-warning) (:name "J" - :query ,(concat "tag:new and tag:jao and not " - "tag:\"/local|hacking|draft|inbox|prog|words|write/\"") + :query + ,(concat "tag:new and tag:jao and not " + "tag:\"/local|hacking|draft|inbox|prog|words|write/\"") :face default) (:name "H" :query "tag:new and tag:hacking and not tag:\"/emacs/\"") (:name "E" :query "tag:new and tag:\"/emacs/\"") @@ -95,13 +98,13 @@ (setq notmuch-hello-sections nil notmuch-saved-searches nil) -(jao-notmuch-def-searches bigml - `(,(jao-notmuch--q "bigml" "inbox" "bi") - ,(jao-notmuch--q "bigml" "alba" "ba") - ,(jao-notmuch--q "bigml" "support" "bs") - ,(jao-notmuch--q "bigml" "bugs" "bb") - ,(jao-notmuch--q "bigml" "drivel" "bd") - ,(jao-notmuch--q "bigml" "lists" "bl"))) +;; (jao-notmuch-def-searches bigml +;; `(,(jao-notmuch--q "bigml" "inbox" "bi") +;; ,(jao-notmuch--q "bigml" "alba" "ba") +;; ,(jao-notmuch--q "bigml" "support" "bs") +;; ,(jao-notmuch--q "bigml" "bugs" "bb") +;; ,(jao-notmuch--q "bigml" "drivel" "bd") +;; ,(jao-notmuch--q "bigml" "lists" "bl"))) (jao-notmuch-def-searches inbox `(,(jao-notmuch--q "jao" "inbox" "ji") @@ -109,7 +112,8 @@ ,(jao-notmuch--qn "jao" "write" "jw" '("tag:write")) ,(jao-notmuch--q "jao" "drivel" "jd") ,(jao-notmuch--q "jao" "mdk" "jm") - ,(jao-notmuch--qn "jao" "hacking" "jh" '("tag:hacking" "not tag:\"/emacs/\"")) + ,(jao-notmuch--qn "jao" "hacking" "jh" + '("tag:hacking" "not tag:\"/emacs/\"")) ,(jao-notmuch--qn "jao" "local" "jl" '("tag:local")))) (jao-notmuch-def-searches news @@ -120,7 +124,7 @@ (jao-notmuch-def-searches prog (append (mapcar #'jao-notmuch--sq - '( "lobsters" "clojure" "lisp" "scheme" + '("lobsters" "clojure" "lisp" "scheme" "haskell" "idris" "erlang" "pharo")) `(,(jao-notmuch--qn "feeds" "prog" "fp" '("tag:prog" "not tag:\"/emacs/\""))))) @@ -166,7 +170,8 @@ '("jao" "hacking" "feeds" "bills"))) (jao-notmuch-def-searches nil - '((:query "not tag:trove and not tag:bigml" :name "jao/untroved" :search-type tree) + '((:query "not tag:trove and not tag:bigml" :name "jao/untroved" + :search-type tree) (:query "tag:sent and tag:bigml" :name "bigml/sent" :search-type tree) (:query "tag:sent and not tag:bigml" :name "jao/sent" :search-type tree) (:query "*" :name "messages" :search-type tree))) |