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

Comment: Tidy preamble function

Browse source
This commit is contained in:
Adam Porter 2019-09-09 13:38:58 -05:00
parent 4e90ba47b0
commit f6bd02b355
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql.el
View file

@ -321,6 +321,7 @@ Replaces bare strings with (regexp) selectors, and appropriate
(ts-adjust 'day num-days) (ts-adjust 'day num-days)
(ts-apply :hour 23 :minute 59 :second 59)))) (ts-apply :hour 23 :minute 59 :second 59))))
`(,pred :to ,to))) `(,pred :to ,to)))
;; Priorities ;; Priorities
(`(priority) ;; Match any defined priority by comparing to C. (`(priority) ;; Match any defined priority by comparing to C.
;; Note that we quote the comparator again for consistency. ;; Note that we quote the comparator again for consistency.
@ -446,6 +447,7 @@ replace the clause with a preamble."
(setq org-ql-preamble (rx-to-string `(seq bol (0+ space) ":STYLE:" (1+ space) (setq org-ql-preamble (rx-to-string `(seq bol (0+ space) ":STYLE:" (1+ space)
"habit" (0+ space) eol))) "habit" (0+ space) eol)))
nil) nil)
;; Heading levels.
(`(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) "*"))
@ -459,6 +461,8 @@ replace the clause with a preamble."
(`(level ,num) (`(level ,num)
(setq org-ql-preamble (rx-to-string `(seq bol (repeat ,num "*") " ") t)) (setq org-ql-preamble (rx-to-string `(seq bol (repeat ,num "*") " ") t))
nil) nil)
;; Planning lines.
(`(planning . ,_) (`(planning . ,_)
(setq org-ql-preamble org-ql-planning-regexp) (setq org-ql-preamble org-ql-planning-regexp)
;; Return element, because the predicate still needs testing. ;; Return element, because the predicate still needs testing.