forked from colonelpanic/dotfiles
[Emacs] Fix imalison:org-people-associated-states mutation bug in imalison:state-relevant-to
This commit is contained in:
parent
3afb8b6f0a
commit
c9edb55cd4
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user