From 0c4548bfa3450b55c4fb6dc4e263e66299d7e086 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 15 Jan 2022 21:57:59 +0000
Subject: notmuch notification clean-ups

---
 notmuch.org | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

(limited to 'notmuch.org')

diff --git a/notmuch.org b/notmuch.org
index b8c2dda..d12af9c 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -14,17 +14,16 @@
         (: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 "J"
+               :query "tag:new and tag:jao and not tag:\"/local|hacking|draft|inbox/\""
+               :face default)
         (:name "H" :query "tag:new and tag:jao and tag:hacking")
-        (:name "T" :query "tag:new and tag:think")
         (:name "E" :query "tag:new and tag:\"/emacs/\"")
         (:name "l" :query "tag:new and tag:local")
-        (:name "J"
-               :query "tag:new and tag:jao and not tag:\"/local|hacking|draft/\""
-               :face default)
-        (:name "F" :query
-               "tag:new and tag:feeds and not tag:\"/emacs|papers|think/\"")
-        (:name "G" :query "tag:new and tag:gmane and not tag:\"/emacs|papers/\"")
-        (:name "P" :query "tag:new and tag:papers")))
+        (:name "F" :query "tag:new and tag:feeds and not tag:\"/emacs/\"")))
 
     (defun jao-notmuch-notify ()
       (let ((cnts (notmuch-hello-query-counts jao-notmuch-minibuffer-queries)))
@@ -95,6 +94,7 @@
         "philosophy"
         "math"
         "physics"
+        "sci"
         "gr-qc"
         "quant-ph"))
 
@@ -129,7 +129,6 @@
         ,(jao-notmuch--q "jao" "today" "tj"
                          '("tag:jao" "date:24h.."
                            "not tag:\"/(feeds|spam|local)/\""))
-        ;; ,(jao-notmuch--q "feeds" "today" "tf" '("tag:feeds" "date:24h.."))
         ,(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" "tag:jao"))
@@ -293,6 +292,12 @@
         (end-of-line)
         (widget-forward 1)))
 
+    (defun jao-notmuch-hello-next ()
+      (interactive)
+      (if (widget-at)
+          (widget-button-press (point))
+        (jao-notmuch-hello-next-section)))
+
     (use-package notmuch-hello
       :init
       (setq notmuch-column-control t
@@ -314,7 +319,7 @@
       :bind (:map notmuch-hello-mode-map
              (("a" . jao-notmuch-refresh-agenda)
               ("j" . jao-notmuch-jump-search)
-              ("n" . widget-button-press)
+              ("n" . jao-notmuch-hello-next)
               ("p" . widget-backward)
               ("S" . consult-notmuch)
               ("g" . jao-notmuch-refresh-hello)
-- 
cgit v1.2.3