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

WIP: Tidy

Browse source
This commit is contained in:
Adam Porter 2021-06-19 00:18:21 -05:00
parent 26c58c6c77
commit 8e93f4cbb3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
org-ql.el
View file

@ -2019,8 +2019,8 @@ parseable by `parse-time-string' which may omit the time value."
;; NOTE: The argument `regexp' is provided by pre-processing done by `org-ql--query-predicate'.
;; MAYBE: Should the regexp be done in the normalizer instead? (If so, also in other ts-related predicates.)
:body
(org-ql--predicate-ts :from from :to to :match-group 1 :limit (line-end-position 2)
:regexp regexp))
(org-ql--predicate-ts :from from :to to :regexp regexp :match-group 1
:limit (line-end-position 2)))
(org-ql-defpred scheduled (&key from to _on regexp _with-time)
;; The underscore before `on' prevents "unused lexical variable"
@ -2056,7 +2056,8 @@ parseable by `parse-time-string' which may omit the time value."
:limit (line-end-position 2)))
(org-ql-defpred (ts ts-active ts-a ts-inactive ts-i)
(&key from to _on regexp _with-time (match-group 0) (limit (org-entry-end-position)))
(&key from to _on regexp _with-time
(match-group 0) (limit (org-entry-end-position)))
;; NOTE: Arguments to this predicate are pre-processed in `org-ql--normalize-query'.
;; The underscore before `on' prevents "unused lexical variable" warnings due to the
;; pre-processing converting that argument to FROM and TO. The `regexp' argument is