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

Comment: Add/improve some comments

Browse source
This commit is contained in:
Adam Porter 2019-07-26 02:13:32 -05:00
parent 8a8b74f141
commit f8a5dc353d
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
org-ql.el
View file

@ -316,15 +316,17 @@ replace the clause with a preamble."
(`(or _) element)
(`(regexp . ,regexps)
(setq org-ql-preamble (rx-to-string `(or ,@regexps) t))
;; Return nil
;; Return nil, because we don't need to test the predicate.
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".
;; FIXME: With case-folding, a query like (todo "WAITING") can find a non-todo
;; heading named "Waiting". For correctness, we could test the predicate
;; anyway, but that would negate some of the speed, and in most cases it
;; probably won't matter, so I'm leaving it this way for now.
(setq org-ql-preamble
(rx-to-string `(seq bol (1+ "*") (1+ space) (or ,@todo-keywords) (or " " eol))
t))
;; Return nil
;; Return nil, don't test the predicate.
nil)
(`(level ,comparator-or-num ,num)
(let ((repeat (pcase comparator-or-num
@ -334,6 +336,7 @@ replace the clause with a preamble."
('>= `(>= ,num "*"))
((pred integerp) `(repeat ,comparator-or-num ,num "*")))))
(setq org-ql-preamble (rx-to-string `(seq bol ,repeat " ") t))
;; Return nil, because we don't need to test the predicate.
nil))
(`(level ,num)
(setq org-ql-preamble (rx-to-string `(seq bol (repeat ,num "*") " ") t))