diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-10 14:35:33 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 18:37:33 -0700 |
commit | baf0f08d5b36ed1e28dbe3e60eee5df667b2f155 (patch) | |
tree | f3907fe357b980bd82a58ed4d3a704efe5ecfda6 | |
parent | 649e2ec44d7dec312f322393526218c04bad3793 (diff) | |
download | dotfiles-baf0f08d5b36ed1e28dbe3e60eee5df667b2f155.tar.gz |
add spw/bulk-sources to exclude some notifications
-rw-r--r-- | .emacs.d/init.el | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index ae9a2e03..85a7fa9a 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2768,6 +2768,7 @@ mutt's review view, after exiting EDITOR." (defvar spw/personal-addresses) (defvar spw/work-addresses) (defvar spw/feed-sources) +(defvar spw/bulk-sources) (defvar spw/non-bulk-sources) (defvar spw/other-process-groups) (defvar spw/browse-groups) @@ -2798,18 +2799,29 @@ mutt's review view, after exiting EDITOR." (expand-file-name "~/.local/share/notmuch/default/xapian/")) (let* ((process-groups `(;; To process Inbox Zero-style in distinct inboxes. + ;; + ;; `spw/bulk-sources' is for excluding things like notifications + ;; that are addressed directly to me, e.g. from GitLab installs. ("Weekday" - "to:\"Sean Whitton\"" ,spw/non-bulk-sources - ,(mapcar (apply-partially #'concat "to:") - (append spw/personal-addresses spw/work-addresses))) + ,spw/non-bulk-sources + ,(spw/nm& + (spw/nm| "to:\"Sean Whitton\"" + (mapcar (apply-partially #'concat "to:") + (append spw/work-addresses + spw/personal-addresses))) + (spw/nm~ (spw/nm| spw/bulk-sources)))) ("Weekend" - ,(spw/nm& (spw/nm| "to:\"Sean Whitton\"" spw/non-bulk-sources) - (spw/nm~ (mapcar (apply-partially #'concat "to:") - spw/work-addresses))) - ,(mapcar (apply-partially #'concat "to:") - spw/personal-addresses)) + ,(spw/nm& + (spw/nm| + (spw/nm& (spw/nm| "to:\"Sean Whitton\"" spw/non-bulk-sources) + (spw/nm~ (mapcar (apply-partially #'concat "to:") + spw/work-addresses))) + (mapcar (apply-partially #'concat "to:") + spw/personal-addresses)) + + (spw/nm~ (spw/nm| spw/bulk-sources)))) ,@spw/other-process-groups)) (process-groups |