diff options
Diffstat (limited to '.emacs.d/init.el')
-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 |