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

Change: (--query-preamble) Simplify (todo) preamble

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

10
org-ql.el
View file

@ -288,13 +288,11 @@ replace the clause with a preamble."
(`(todo . ,(and todo-keywords (guard todo-keywords))) (`(todo . ,(and todo-keywords (guard todo-keywords)))
;; FIXME: With case-folding, a query like (todo "WAITING") ;; FIXME: With case-folding, a query like (todo "WAITING")
;; can find a non-todo heading named "Waiting". ;; can find a non-todo heading named "Waiting".
(let* ((regexps (--map (list 'regexp (setq org-ql-preamble
(format org-heading-keyword-regexp-format it)) (rx-to-string `(seq bol (1+ "*") (1+ space) (or ,@todo-keywords) (or " " eol))
todo-keywords)) t))
(regexp (rx-to-string `(or ,@regexps) t)))
(setq org-ql-preamble regexp)
;; Return nil ;; Return nil
nil)) nil)
(`(level ,comparator-or-num ,num) (`(level ,comparator-or-num ,num)
(let ((repeat (pcase comparator-or-num (let ((repeat (pcase comparator-or-num
('< `(repeat 1 ,(1- num) "*")) ('< `(repeat 1 ,(1- num) "*"))