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

Change: (--query-preamble) Simplify

Browse source
This commit is contained in:
Adam Porter 2019-07-23 21:32:44 -05:00
parent 6728ddaaa7
commit 06c7f55b21
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql.el
View file

@ -281,10 +281,9 @@ replace the clause with a preamble."
(pcase element
(`(or _) element)
(`(regexp . ,regexps)
(let* ((regexp (rx-to-string `(or ,@regexps) t)))
(setq org-ql-preamble regexp)
;; Return nil
nil))
(setq org-ql-preamble (rx-to-string `(or ,@regexps) t))
;; Return nil
nil)
(`(todo . ,(and todo-keywords (guard todo-keywords)))
;; FIXME: With case-folding, a query like (todo "WAITING")
;; can find a non-todo heading named "Waiting".
@ -303,9 +302,8 @@ replace the clause with a preamble."
(setq org-ql-preamble (rx-to-string `(seq bol ,repeat " ") t))
nil))
(`(level ,num)
(let* ((regexp (rx-to-string `(seq bol (repeat ,num "*") " ") t)))
(setq org-ql-preamble regexp)
nil))
(setq org-ql-preamble (rx-to-string `(seq bol (repeat ,num "*") " ") t))
nil)
(`(and . ,rest)
(let ((clauses (mapcar #'rec rest)))
`(and ,@(-non-nil clauses))))