diff options
| author | jao <jao@gnu.org> | 2022-02-26 03:00:12 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-02-26 03:00:12 +0000 |
| commit | 8ff802bcb6171af79b965fa2ce954bd5ae2098f2 (patch) | |
| tree | 73f0256b479c83e47687b361b30df89afd5e05fc /notmuch.org | |
| parent | 9fbc23a25b0e8ac95eec1e6678e38404f73d9fe0 (diff) | |
| download | elibs-8ff802bcb6171af79b965fa2ce954bd5ae2098f2.tar.gz elibs-8ff802bcb6171af79b965fa2ce954bd5ae2098f2.tar.bz2 | |
notmuch-hello: single column and hidden tag list
Diffstat (limited to 'notmuch.org')
| -rw-r--r-- | notmuch.org | 22 |
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) |