diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 13:56:33 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 18:41:48 -0700 |
| commit | fe8829f5bf681fb348e3fefa23a62bc42f15be4a (patch) | |
| tree | 3e1e9ff6f55c3905415467fc640a4f80dc42eb53 | |
| parent | 13e1b91f9aa86ed2ef0343b20a13152bf9c27db6 (diff) | |
| download | dotfiles-fe8829f5bf681fb348e3fefa23a62bc42f15be4a.tar.gz | |
simplify personal vs. work inc. replacing an invalid use of spw/nm~
| -rw-r--r-- | .emacs.d/init.el | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index bfae928d..5c961a99 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2765,11 +2765,10 @@ mutt's review view, after exiting EDITOR." (defalias 'spw/nm& (spw/notmuch-connective "and")) (defalias 'spw/nm~ (apply-partially #'format "not (%s)")) -(defvar spw/personal-addresses) -(defvar spw/work-addresses) +(defvar spw/personal-sources) +(defvar spw/work-sources) (defvar spw/feed-sources) (defvar spw/bulk-sources) -(defvar spw/non-bulk-sources) (defvar spw/other-process-groups) (defvar spw/browse-groups) @@ -2802,27 +2801,13 @@ mutt's review view, after exiting EDITOR." ;; ;; `spw/bulk-sources' is for excluding things like notifications ;; that are addressed directly to me, e.g. from GitLab installs. - ("Weekday" - ,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)))) - + ,(spw/nm& (spw/nm| spw/personal-sources spw/work-sources) + (spw/nm~ (spw/nm| spw/bulk-sources)))) ("Weekend" ,(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/nm| spw/personal-sources) + (spw/nm~ (spw/nm| spw/bulk-sources spw/work-sources)))) ,@spw/other-process-groups)) (process-groups (cl-loop with never-process |