pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

HOLD are similar to invisible

Browse source
This commit is contained in:
Benson Chu 2026-01-27 14:49:30 -06:00
parent 45d329978e
commit 56ff85b49a
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -51,7 +51,7 @@
;; All todo children are done? Stuck!
(not (olc/any-todo-children?
(not (member (cdr (opr/get-type-and-state))
'(done wait invis))))))
'(done wait invis hold))))))
'stuck
'active)))

18
lisp/org-ql-custom-stuck-projects.el
View file

@ -62,13 +62,17 @@
(let ((type (opr/get-type)))
(pcase type
('project
(when (eq 'stuck (opr/type-of-project))
(let ((res (-> (point)
(org-element-headline-parser)
(org-ql--add-markers)
(my/get-project-stuck-displayables)
(reverse))))
(setf display (append res display)))))
(pcase (opr/type-of-project)
('stuck
(let ((res (-> (point)
(org-element-headline-parser)
(org-ql--add-markers)
(my/get-project-stuck-displayables)
(reverse))))
(setf display (append res display))))
('hold
(push (org-ql--add-markers (org-element-headline-parser (point)))
nothing))))
('task
(cond
((eq 'stuck (opr/type-of-task))