From c9edb55cd4cf5c005aea7212a61df4d0b782ac0e Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 13 Sep 2023 18:06:29 -0600 Subject: [PATCH] [Emacs] Fix imalison:org-people-associated-states mutation bug in imalison:state-relevant-to --- dotfiles/emacs.d/org-config.org | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/dotfiles/emacs.d/org-config.org b/dotfiles/emacs.d/org-config.org index a7547aeb..81962b32 100644 --- a/dotfiles/emacs.d/org-config.org +++ b/dotfiles/emacs.d/org-config.org @@ -325,9 +325,11 @@ We're going to use this to write separate parts of our config to different secti state (cdr (assoc person imalison:org-people-associated-states)))) (defun imalison:state-relevant-to (state person) - (not (member state - (mapcan 'cdr (--filter (not (equal (car it) person)) - imalison:org-people-associated-states))))) + (not + (member + state + (--mapcat it (--filter (not (equal (car it) person)) + imalison:org-people-associated-states))))) (defun org-agenda-states-filter (state &optional marker) (and (member state org-done-keywords-for-agenda)