Add: blocked predicate

alphapapa · Feb 11, 2021 · 59beb87 · 59beb87
1 parent 208e103
commit 59beb87
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/org-ql.el b/org-ql.el
@@ -1669,6 +1669,11 @@ parseable by `parse-time-string' which may omit the time value."
   (org-ql--predicate-ts :from from :to to :regexp org-closed-time-regexp :match-group 1
                         :limit (line-end-position 2)))
 
+(org-ql-defpred blocked ()
+  "Return non-nil if the entry is blocked."
+  :body
+  (org-entry-blocked-p))
+
 (org-ql-defpred deadline (&key from to _on)
   ;; The underscore before `on' prevents "unused lexical variable"
   ;; warnings, because we pre-process that argument in a macro before