From ef955c13df5f269818995075861aea681d52989a Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 28 Jul 2021 02:20:02 +0100 Subject: notmuch: better image toggling for w3m --- notmuch.org | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index 728851d..9a7772f 100644 --- a/notmuch.org +++ b/notmuch.org @@ -88,7 +88,9 @@ ,(jao-notmuch--qn "emacs" "devel" "ed" '("tag:emacs-devel")) ,(jao-notmuch--qn "emacs" "bugs" "eb" '("tag:emacs-bugs")) ,(jao-notmuch--qn "emacs" "diffs" "ec" '("tag:emacs-diffs")) - ,@(jao-notmuch--mboxes-search "feeds" "emacs") + ,(jao-notmuch--qn "feeds" "lobsters" "fl" '("tag:lobsters")) + ,(jao-notmuch--qn "feeds" "prog" "fp" '("tag:prog" "not tag:lobsters")) + ,@(jao-notmuch--mboxes-search "feeds" "emacs" "prog") ,(jao-notmuch--q "bml" "today" "tb" '("tag:bigml" "date:1d..") t) ,(jao-notmuch--q "jao" "today" "tj" '("tag:jao" "date:1d.." @@ -102,7 +104,8 @@ (defun jao-notmuch-widen-searches (searches) (mapcar (lambda (s) (let ((q (plist-get s :query))) - (plist-put s :query (string-replace jao-notmuch--newa "" q)))) + (plist-put (copy-sequence s) + :query (string-replace jao-notmuch--newa "" q)))) searches)) (defvar jao-notmuch-widened-searches @@ -229,7 +232,7 @@ :config (setq jao-notmuch-mailboxes (jao-mailbox-folders))) #+end_src -* tree view +* views #+begin_src emacs-lisp (use-package notmuch-tree :config -- cgit v1.2.3