diff options
author | jao <jao@gnu.org> | 2021-12-31 13:15:40 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-12-31 13:16:36 +0000 |
commit | fb3a9c806f4e76059094d333dfb57f7026abec77 (patch) | |
tree | d00ffe706935260840a73b4149b6ca170aab52f9 /notmuch.org | |
parent | 67a451d13145fcb99039d35474957fb12f237a64 (diff) | |
download | elibs-fb3a9c806f4e76059094d333dfb57f7026abec77.tar.gz elibs-fb3a9c806f4e76059094d333dfb57f7026abec77.tar.bz2 |
otmuch nits and better eww image activation
Diffstat (limited to 'notmuch.org')
-rw-r--r-- | notmuch.org | 25 |
1 files changed, 16 insertions, 9 deletions
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") |