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

Add: ts preambles

Browse source
This commit is contained in:
Adam Porter 2019-08-11 16:40:05 -05:00
parent 4954789ca5
commit a425c45afd
2 changed files with 160 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql.el
View file

@ -403,6 +403,15 @@ replace the clause with a preamble."
t))
;; Return nil, because we don't need to test the predicate.
nil)
(`(ts . ,rest)
(setq org-ql-preamble (pcase (plist-get rest :type)
((or 'nil 'both) org-tsr-regexp-both)
('active org-tsr-regexp)
('inactive org-ql-tsr-regexp-inactive)))
;; Predicate needs testing only when args are present.
(-let (((&keys :from :to :on) rest))
(when (or from to on)
element)))
(`(and . ,rest)
(let ((clauses (mapcar #'rec rest)))
`(and ,@(-non-nil clauses))))