From 36ff9854ce4a8573386e7073fa2e8084dc06c0fe Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 25 Dec 2022 12:09:50 -0600 Subject: [PATCH] Fix: (category) Add normalizer for alias --- org-ql.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/org-ql.el b/org-ql.el index 7c9d5a9..ea6aec1 100644 --- a/org-ql.el +++ b/org-ql.el @@ -1327,6 +1327,8 @@ result form." (org-ql-defpred (category c) (&rest categories) "Return non-nil if current heading is in one or more of CATEGORIES (a list of strings)." + :normalizers ((`(,predicate-names . ,rest) + `(category ,@rest))) :body (when-let ((category (org-get-category (point)))) (cl-typecase categories (null t)