Add r as regexp alias

2019-12-08 13:58:47 +08:00 · 2019-12-08 13:58:47 +08:00 · 2ae4d1b3ed
commit 2ae4d1b3ed
parent 70a1acde93
1 changed files with 6 additions and 1 deletions
--- 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))