[Emacs] Fix imalison:org-people-associated-states mutation bug in imalison:state-relevant-to

This commit is contained in:
Ivan Malison 2023-09-13 18:06:29 -06:00
parent 3afb8b6f0a
commit c9edb55cd4

View File

@ -325,8 +325,10 @@ 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)))) state (cdr (assoc person imalison:org-people-associated-states))))
(defun imalison:state-relevant-to (state person) (defun imalison:state-relevant-to (state person)
(not (member state (not
(mapcan 'cdr (--filter (not (equal (car it) person)) (member
state
(--mapcat it (--filter (not (equal (car it) person))
imalison:org-people-associated-states))))) imalison:org-people-associated-states)))))
(defun org-agenda-states-filter (state &optional marker) (defun org-agenda-states-filter (state &optional marker)