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

Show FUTURE/BACKLOG as last resort

Browse source
This commit is contained in:
Benson Chu 2023-02-27 12:15:11 -06:00
parent 5991bf76ac
commit b1519ff804
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -57,7 +57,7 @@
(if (member state '("EMPTY"))
(list element)
(cons element
(let ((display '()))
(let (display nothing)
(olc/todo-children
(let ((type (opr/get-type)))
(pcase type
@ -70,10 +70,14 @@
(reverse))))
(setf display (append res display)))))
('task
(when (eq 'stuck (opr/type-of-task))
(cond
((eq 'stuck (opr/type-of-task))
(push (org-ql--add-markers (org-element-headline-parser (point)))
display))))))
(reverse display))))))))
display))
((member (org-get-todo-state) '("FUTURE" "BACKLOG"))
(push (org-ql--add-markers (org-element-headline-parser (point)))
nothing)))))))
(reverse (or display nothing)))))))))
(defun my/org-ql-stuck-projects (tag)
(let (narrow-p old-beg old-end)