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

alphapapa · Sep 8, 2023 · 1314078 · 1314078
1 parent f65b1d9
commit 1314078
Show file tree

Hide file tree

Showing 3 changed files with 112 additions and 95 deletions.
diff --git a/README.org b/README.org
@@ -546,6 +546,7 @@ Simple links may also be written manually in either sexp or non-sexp form, like:
 
 *Fixes*
 + Timestamp predicates are more tolerant of partial input (e.g. preventing errors while the user is typing a query into ~org-ql-find~).
++ Query parser ignores leading whitespace (e.g. preventing errors while the user is typing a query into ~org-ql-find~).
 
 ** 0.7.1
 

diff --git a/org-ql.el b/org-ql.el
@@ -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))))
-Original file line number
+Diff line change
@@ Expand Up @@
     *Fixes*
     + Timestamp predicates are more tolerant of partial input (e.g. preventing errors while the user is typing a query into ~org-ql-find~).
+    + Query parser ignores leading whitespace (e.g. preventing errors while the user is typing a query into ~org-ql-find~).
     ** 0.7.1
@@ Expand Down @@