From 8ff802bcb6171af79b965fa2ce954bd5ae2098f2 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 26 Feb 2022 03:00:12 +0000
Subject: notmuch-hello: single column and hidden tag list

---
 notmuch.org | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'notmuch.org')

diff --git a/notmuch.org b/notmuch.org
index 6dc0a35..e2a4052 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -107,7 +107,7 @@
         ,(jao-notmuch--q "jao" "mdk" "jm")
         ,(jao-notmuch--qn "jao" "hacking" "jh"
                           '("tag:hacking" "not tag:\"/emacs/\""))
-        ,(jao-notmuch--q "jao" "local" "l")))
+        ,(jao-notmuch--qn "jao" "local" "jl" '("tag:local"))))
 
     (defvar jao-notmuch-emacs-searches
       `(,(jao-notmuch--sq "emacs" "ee" "emacs" "feeds")
@@ -229,14 +229,15 @@
   #+begin_src emacs-lisp
     (defun jao-notmuch-hello--insert-searches (searches title)
       (when-let (searches (notmuch-hello-query-counts searches))
-        (let ((cnt (seq-reduce (lambda (c q) (+ c (or (plist-get q :count) 0)))
+        (let* ((cnt (seq-reduce (lambda (c q) (+ c (or (plist-get q :count) 0)))
                                searches
-                               0)))
-          (widget-insert (format "%d %s\n\n" cnt title)))
-        (let ((start (point)))
-          (let ((notmuch-column-control t))
-            (notmuch-hello-insert-buttons searches))
-	(indent-rigidly start (point) notmuch-hello-indent))))
+                               0))
+               (title (format "[ %d %s ]\n\n" cnt title)))
+          (widget-insert (propertize title 'face 'jao-themes-f00))
+          (let ((notmuch-column-control 1.0)
+                (start (point)))
+            (notmuch-hello-insert-buttons searches)
+            (indent-rigidly start (point) notmuch-hello-indent)))))
 
     (defun jao-notmuch-hello-insert-inbox-searches ()
       (jao-notmuch-hello--insert-searches jao-notmuch-inbox-searches "inbox"))
@@ -274,7 +275,7 @@
             (let ((notmuch-hello-auto-refresh nil)) (notmuch-hello)))
           (jao-notmuch-hello-first))))
 
-    (defvar jao-notmuch-hello--sec-rx "^\\([0-9]+\\|All tags:.+\\)")
+    (defvar jao-notmuch-hello--sec-rx "^\\(\\[ [0-9]+\\|All tags:.+\\)")
 
     (defun jao-notmuch-hello-next-section ()
       (interactive)
@@ -305,9 +306,10 @@
                                      jao-notmuch-hello-insert-dynamic-searches
                                      notmuch-hello-insert-alltags
                                      notmuch-hello-insert-header)
+            notmuch-hello-hide-tags nil
             notmuch-hello-thousands-separator ","
             notmuch-hello-auto-refresh t
-            notmuch-show-all-tags-list t
+            notmuch-show-all-tags-list nil
             notmuch-show-logo nil
             notmuch-show-empty-saved-searches nil)
 
-- 
cgit v1.2.3