From 2ae4d1b3edd9606f5ad73762431879ab4a6e7ea6 Mon Sep 17 00:00:00 2001 From: Feng Shu Date: Sun, 8 Dec 2019 13:58:47 +0800 Subject: [PATCH] Add r as regexp alias --- org-ql.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index 7e15cc0..1f39d3f 100644 --- a/org-ql.el +++ b/org-ql.el @@ -575,6 +575,11 @@ Replaces bare strings with (regexp) selectors, and appropriate ;; "h" alias. `(heading ,@args)) + ;; Regexps. + (`(r . ,args) + ;; "r" alias. + `(regexp ,@args)) + ;; Outline paths. (`(,(or 'outline-path 'olp) . ,strings) ;; Regexp quote headings. @@ -1127,7 +1132,7 @@ priority B)." "Return non-nil if entry is a habit." (org-is-habit-p)) -(org-ql--defpred regexp (&rest regexps) +(org-ql--defpred (regexp r) (&rest regexps) "Return non-nil if current entry matches all of REGEXPS (regexp strings)." (let ((end (or (save-excursion (outline-next-heading))