jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add: (blocked) predicate

Browse source
This commit is contained in:
Akira Komamura 2021-07-28 17:31:29 +09:00 • committed by Adam Porter
parent e5e9daab07
commit 6afe3be572
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql.el
View file

@ -2377,6 +2377,11 @@ any planning prefix); it defaults to 0 (i.e. the whole regexp)."
(from (test-timestamps (ts<= from next-ts)))
(to (test-timestamps (ts<= next-ts to)))))))
(org-ql-defpred blocked ()
"Return non-nil if the entry is blocked."
:body
(org-entry-blocked-p))
;; NOTE: Predicates defined: stop deferring and define normalizer and
;; preamble functions now. Reversing preserves the order in which
;; they were defined. Generally it shouldn't matter, but it might...