From e110f33f1756a7090ca36f3f5505f790c13d9379 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 11 Jan 2022 01:17:32 +0000
Subject: notmuch: separate emacs section in hello

---
 notmuch.org | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/notmuch.org b/notmuch.org
index 013587f..88f1b42 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -101,12 +101,6 @@
             ,@(jao-notmuch--mboxes-search "bigml" "inbox" "support")
             ,@(jao-notmuch--mboxes-search "jao" "drafts")
             ,(jao-notmuch--sq "local" "l" "local" "")
-            ,(jao-notmuch--sq "emacs" "ee" "emacs" "feeds")
-            ,(jao-notmuch--sq "emacs-github" "eg" "emacs" "github")
-            ,(jao-notmuch--sq "emacs-devel" "ed" "emacs" "devel")
-            ,(jao-notmuch--sq "emacs-bugs" "eb" "emacs" "bugs")
-            ,(jao-notmuch--sq "emacs-diffs" "ec" "emacs" "diffs")
-            ,(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
@@ -116,6 +110,14 @@
                                                (format "not tag:%s" tag))
                                              jao-notmuch--feed-tags))))))
 
+    (defvar jao-notmuch-emacs-searches
+      `(,(jao-notmuch--sq "emacs" "ee" "emacs" "feeds")
+        ,(jao-notmuch--sq "emacs-github" "eg" "emacs" "github")
+        ,(jao-notmuch--sq "emacs-devel" "ed" "emacs" "devel")
+        ,(jao-notmuch--sq "emacs-bugs" "eb" "emacs" "bugs")
+        ,(jao-notmuch--sq "emacs-diffs" "ec" "emacs" "diffs")
+        ,(jao-notmuch--sq "emacs-orgmode" "eo" "emacs" "org")))
+
     (defvar jao-notmuch-dynamic-searches
       `(,(jao-notmuch--q "jao" "draft" "d" '("tag:draft"))
         ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:24h.."))
@@ -239,6 +241,9 @@
        (seq-filter (lambda (q) (plist-get q :secondary)) notmuch-saved-searches)
        "feeds"))
 
+    (defun jao-notmuch-hello-insert-emacs-searches ()
+      (jao-notmuch-hello--insert-searches jao-notmuch-emacs-searches "emacs"))
+
     (defun jao-notmuch-hello-insert-dynamic-searches ()
       (jao-notmuch-hello--insert-searches jao-notmuch-dynamic-searches "dynamic"))
 
@@ -270,6 +275,7 @@
       (setq notmuch-column-control t
             notmuch-hello-sections '(jao-notmuch-hello-insert-primary-searches
                                      jao-notmuch-hello-insert-secondary-searches
+                                     jao-notmuch-hello-insert-emacs-searches
                                      jao-notmuch-hello-insert-dynamic-searches
                                      notmuch-hello-insert-alltags
                                      notmuch-hello-insert-header)
-- 
cgit v1.2.3