From e9d5bca84205efa2b00957acd2c34eaa49b44a0c Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Fri, 3 Jan 2020 04:12:59 -0600 Subject: [PATCH] Comment: Add headings --- org-ql.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/org-ql.el b/org-ql.el index 22e3708..9d47132 100644 --- a/org-ql.el +++ b/org-ql.el @@ -784,10 +784,13 @@ replace the clause with a preamble." ;; Always check contents with predicate. element) + ;; Scheduled. (`(scheduled . ,_) (setq org-ql-preamble org-scheduled-time-regexp) ;; Return element, because the predicate still needs testing. element) + + ;; Tags. (`((or 'tags-local 'local-tags 'tags-l 'ltags) . ,tags) ;; When searching for local, non-inherited tags, we can ;; search directly to headings containing one of the tags. @@ -796,6 +799,8 @@ replace the clause with a preamble." t)) ;; Return nil, because we don't need to test the predicate. nil) + + ;; Timestamps. (`(ts . ,rest) (setq org-ql-preamble (pcase (plist-get rest :type) ((or 'nil 'both) org-tsr-regexp-both)