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.
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)