Show invisible projects in hold org-ql

This commit is contained in:
Benson Chu 2021-04-07 19:21:55 -05:00
parent 59640e496f
commit 7e94dfa0a9

View file

@ -219,6 +219,15 @@
(org-time> (org-entry-get (point) "DELAYED")
(org-matcher-time "<now>")))
((org-ql-block-header "Delayed projects")))
(org-ql-block '(and (tags "dev")
(todo "TODO" "ONE" "META" "META1" "EMPTY" "SEQ")
(not (property "DELAYED"))
(let* ((ts (opr/get-type-and-state))
(type (car ts))
(state (cdr ts)))
(and (eq type 'project)
(eq state 'invis))))
((org-ql-block-header "Invisible projects")))
(org-ql-block '(and (tags "dev")
(or (todo "HOLD")
(descendants (todo "HOLD"))))