Add: Alias "c" to (category)

This commit is contained in:
Adam Porter 2022-08-19 03:38:43 -05:00
parent 7f4faff27b
commit d7ada532c7
3 changed files with 31 additions and 29 deletions

View file

@ -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