jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comment: Add headings

Browse source
This commit is contained in:
Adam Porter 2020-01-03 04:12:59 -06:00
parent 689a197066
commit e9d5bca842
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql.el
View file

@ -784,10 +784,13 @@ replace the clause with a preamble."
;; Always check contents with predicate. ;; Always check contents with predicate.
element) element)
;; Scheduled.
(`(scheduled . ,_) (`(scheduled . ,_)
(setq org-ql-preamble org-scheduled-time-regexp) (setq org-ql-preamble org-scheduled-time-regexp)
;; Return element, because the predicate still needs testing. ;; Return element, because the predicate still needs testing.
element) element)
;; Tags.
(`((or 'tags-local 'local-tags 'tags-l 'ltags) . ,tags) (`((or 'tags-local 'local-tags 'tags-l 'ltags) . ,tags)
;; When searching for local, non-inherited tags, we can ;; When searching for local, non-inherited tags, we can
;; search directly to headings containing one of the tags. ;; search directly to headings containing one of the tags.
@ -796,6 +799,8 @@ replace the clause with a preamble."
t)) t))
;; Return nil, because we don't need to test the predicate. ;; Return nil, because we don't need to test the predicate.
nil) nil)
;; Timestamps.
(`(ts . ,rest) (`(ts . ,rest)
(setq org-ql-preamble (pcase (plist-get rest :type) (setq org-ql-preamble (pcase (plist-get rest :type)
((or 'nil 'both) org-tsr-regexp-both) ((or 'nil 'both) org-tsr-regexp-both)