Add: (habit) preamble

2019-08-09 17:19:07 -05:00 · 2019-08-09 17:19:07 -05:00 · 2cdc210645
commit 2cdc210645
parent 1c5bf06804
2 changed files with 18 additions and 0 deletions
--- a/org-ql.el
+++ b/org-ql.el
@ -348,6 +348,10 @@ replace the clause with a preamble."
                                                     t))
                                 ;; Return nil, don't test the predicate.
                                 nil)
+                                (`(habit)
+                                 (setq org-ql-preamble (rx-to-string `(seq bol (0+ space) ":STYLE:" (1+ space)
+                                                                           "habit" (0+ space) eol)))
+                                 nil)
                                (`(level ,comparator-or-num ,num)
                                 (let ((repeat (pcase comparator-or-num
                                                 ('< `(repeat 1 ,(1- num) "*"))