From a26238003a158373d54ab3d8eef7822aab130cb8 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 6 Jan 2022 02:17:21 +0000
Subject: notmuch: saved searches clean-ups

---
 notmuch.org | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

(limited to 'notmuch.org')

diff --git a/notmuch.org b/notmuch.org
index 748fb28..27ffa13 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -77,6 +77,24 @@
         (seq-difference ts '("new" "unread" "flagged" "signed" "attachment"
                              "gmane" "feeds" "rss" "mce" "trove" "prog" "emacs"))))
 
+    (defvar jao-notmuch--feed-tags
+      '("clojure"
+        "computers"
+        "erlang"
+        "fun"
+        "gr-qc"
+        "haskell"
+        "jao"
+        "lisp"
+        "lobsters"
+        "math"
+        "news"
+        "philosophy"
+        "physics"
+        "quant-ph"
+        "scheme"
+        "words"))
+
     (setq notmuch-saved-searches
           `(,(jao-notmuch--q "bigml" "inbox" "bi")
             ,(jao-notmuch--q "bigml" "support" "bs")
@@ -89,14 +107,15 @@
             ,(jao-notmuch--sq "emacs-devel" "ed" "emacs" "devel")
             ,(jao-notmuch--sq "emacs-bugs" "eb" "emacs" "bugs")
             ,(jao-notmuch--sq "emacs-diffs" "ec" "emacs" "diffs")
-            ,@(mapcar #'jao-notmuch--sq (jao-notmuch--feed-tags "feeds"))
+            ,(jao-notmuch--sq "emacs-orgmode" "eo" "emacs" "org")
+            ,@(mapcar #'jao-notmuch--sq jao-notmuch--feed-tags)
             ,@(mapcar #'jao-notmuch--sq '("scheme" "notmuch" "erlang" "idris"))
             ,(jao-notmuch--sec
               (jao-notmuch--qn "feeds" "prog" "fp"
                                (cons "tag:prog"
                                      (mapcar (lambda (tag)
                                                (format "not tag:%s" tag))
-                                             (jao-notmuch--feed-tags "feeds")))))))
+                                             jao-notmuch--feed-tags))))))
 
     (defvar jao-notmuch-dynamic-searches
       `(,(jao-notmuch--q "jao" "draft" "d" '("tag:draft"))
@@ -105,7 +124,9 @@
                          '("tag:jao" "date:24h.."
                            "not tag:\"/(feeds|spam|local)/\""))
         ,(jao-notmuch--q "bml" "flagged" "rb" '("tag:flagged" "tag:bigml"))
+        ,(jao-notmuch--q "bml" "todo" "btt" '("tag:todo" "tag:bigml"))
         ,(jao-notmuch--q "jao" "flagged" "rj" '("tag:flagged" "not tag:bigml"))
+        ,(jao-notmuch--q "jao" "todo" "jt" '("tag:todo" "not tag:bigml"))
         ,(jao-notmuch--q "new" nil "nn" '("tag:new"))
         ,(jao-notmuch--q "unread" nil "nu" '("tag:unread"))))
 
-- 
cgit v1.2.3