summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-02-26 03:00:12 +0000
committerjao <jao@gnu.org>2022-02-26 03:00:12 +0000
commit8ff802bcb6171af79b965fa2ce954bd5ae2098f2 (patch)
tree73f0256b479c83e47687b361b30df89afd5e05fc
parent9fbc23a25b0e8ac95eec1e6678e38404f73d9fe0 (diff)
downloadelibs-8ff802bcb6171af79b965fa2ce954bd5ae2098f2.tar.gz
elibs-8ff802bcb6171af79b965fa2ce954bd5ae2098f2.tar.bz2
notmuch-hello: single column and hidden tag list
-rw-r--r--notmuch.org22
1 files changed, 12 insertions, 10 deletions
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)