Add: Alias "c" to (category)
This commit is contained in:
parent
7f4faff27b
commit
d7ada532c7
3 changed files with 31 additions and 29 deletions
|
|
@ -1318,7 +1318,7 @@ result form."
|
|||
;; redefinitions until all of the predicates have been defined.
|
||||
(setf org-ql-defpred-defer t)
|
||||
|
||||
(org-ql-defpred category (&rest categories)
|
||||
(org-ql-defpred (category c) (&rest categories)
|
||||
"Return non-nil if current heading is in one or more of CATEGORIES (a list of strings)."
|
||||
:body (when-let ((category (org-get-category (point))))
|
||||
(cl-typecase categories
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue