pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 04:11:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Even if SEQ itself doesn't care, its children might care

Browse source
This commit is contained in:
Benson Chu 2024-04-29 11:34:09 -05:00
parent afcc8fbc46
commit 023934e07f
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-project/opr-projects.el
View file

@ -55,14 +55,14 @@
'stuck
'active)))
(defun seq-status? ()
(defun seq-status? (&optional seek-active)
(if (olc/any-todo-children?
(or (member (opr/type-of-task) '(active))
(eq 'active (opr/type-of-project))))
(eq 'active (opr/type-of-project seek-active))))
'active
(if (olc/any-todo-children?
(or (eq 'wait (opr/type-of-task))
(eq 'invis (opr/type-of-project))))
(eq 'invis (opr/type-of-project seek-active))))
'invis
'stuck)))
@ -114,7 +114,7 @@
(t
(let ((status (pcase state
("EMPTY" (empty-status?))
("SEQ" (seq-status?))
("SEQ" (seq-status? greedy-active))
("META" (meta-status? greedy-active))
("ONE" (when (eq 'project (opr/ambiguous-task-or-project))
(seq-status?)))