From fb3a9c806f4e76059094d333dfb57f7026abec77 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 31 Dec 2021 13:15:40 +0000 Subject: otmuch nits and better eww image activation --- notmuch.org | 25 ++++++++++++++++--------- 1 file changed, 16 insertions(+), 9 deletions(-) (limited to 'notmuch.org') diff --git a/notmuch.org b/notmuch.org index 81b2270..9a87a08 100644 --- a/notmuch.org +++ b/notmuch.org @@ -71,9 +71,11 @@ (jao-notmuch--sec (jao-notmuch--qn (or d0 "feeds") (or d1 tag) k (list (concat "tag:" tag))))) - (defvar jao-notmuch--feeds - '("clojure" "elixir" "erlang" "gnus" "haskell" "idris" - "lobsters" "mailutils" "notmuch" "papers" "scheme" "xmobar")) + (defun jao-notmuch--feed-tags (w) + (let* ((cmd (concat "notmuch search --output=tags tag:" w)) + (ts (split-string (shell-command-to-string cmd)))) + (seq-difference ts '("new" "unread" "flagged" "signed" "attachment" + "feeds" "rss" "mce" "trove" "prog" "emacs")))) (setq notmuch-saved-searches `(,(jao-notmuch--q "bigml" "inbox" "bi") @@ -87,13 +89,14 @@ ,(jao-notmuch--sq "emacs-devel" "ed" "emacs" "devel") ,(jao-notmuch--sq "emacs-bugs" "eb" "emacs" "bugs") ,(jao-notmuch--sq "emacs-diffs" "ec" "emacs" "diffs") - ,@(mapcar #'jao-notmuch--sq jao-notmuch--feeds) + ,@(mapcar #'jao-notmuch--sq (jao-notmuch--feed-tags "feeds")) + ,@(mapcar #'jao-notmuch--sq '("scheme" "notmuch" "erlang")) ,(jao-notmuch--sec (jao-notmuch--qn "feeds" "prog" "fp" - '("tag:prog" - "not tag:\"/(lobsters|clojure|erlang|xmobar|gmane)/\""))) - ,@(mapcar #'jao-notmuch--sec - (jao-notmuch--mboxes-search "feeds" "emacs" "prog")))) + (cons "tag:prog" + (mapcar (lambda (tag) + (format "not tag:%s" tag)) + (jao-notmuch--feed-tags "feeds"))))))) (defvar jao-notmuch-dynamic-searches `(,(jao-notmuch--q "jao" "draft" "d" '("tag:draft")) @@ -369,7 +372,7 @@ (let ((fg (face-attribute 'jao-themes-dimm :foreground))) (dolist (f '(notmuch-tree-match-tree-face notmuch-tree-no-match-tree-face)) - (set-face-attribute f nil :family "Fira Code" :foreground fg))) + (set-face-attribute f nil :family "Source Code Pro" :foreground fg))) (jao-notmuch-tree-setup "T") @@ -504,6 +507,10 @@ (org-capture nil "X")))) #+end_src +* html render + #+begin_src emacs-lisp + (when jao-notmuch-enabled-p (setq mm-text-html-renderer 'shr)) + #+end_src * consult #+begin_src emacs-lisp (jao-load-path "consult-notmuch") -- cgit v1.2.3