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

Fix: (org-ql--def-query-string-to-sexp-fn) Ignore leading blanks

Browse source
This commit is contained in:
Adam Porter 2023-09-08 02:22:40 -05:00
parent f65b1d91a4
commit 131407814e
3 changed files with 112 additions and 95 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-ql.el
View file

@ -945,7 +945,7 @@ value of `org-ql-predicates')."
;; obscure bug in `peg': when one keyword is a substring of another,
;; and the shorter one is listed first, the shorter one fails to match.
(-sort (-on #'> #'length))))
(pexs `((query (+ (and term (* [blank]))))
(pexs `((query (and (* [blank]) (+ (and term (* [blank])))))
(term (or (and negation (list positive-term)
;; This is a bit confusing, but it seems to work. There's probably a better way.
`(pred -- (list 'not (car pred))))