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

Tidy: (org-ql-sparse-tree) Docstring; use pcase

Browse source
This commit is contained in:
Adam Porter 2023-03-10 04:44:05 -06:00
parent 1ae2f0cd60
commit 99e580b530
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
org-ql-search.el
View file

@ -93,7 +93,7 @@ directories, etc, which would make it slow to list the
The tree will show the lines where the query matches, and any
other context defined in `org-show-context-detail', which see.
QUERY: An `org-ql' query in either sexp or non-sexp form (see
QUERY is an `org-ql' query in either sexp or string form (see
Info node `(org-ql)Queries').
When KEEP-PREVIOUS is non-nil (interactively, with prefix), the
@ -111,14 +111,17 @@ Runs `org-occur-hook' after making the sparse tree."
(org-remove-occur-highlights nil nil t)
(org-overview))
(let ((num-results 0)
(query (cl-etypecase query
(string (if (or (string-prefix-p "(" query)
(string-prefix-p "\"" query))
;; Read sexp query.
(read query)
;; Parse non-sexp query into sexp query.
(org-ql--query-string-to-sexp query)))
(list query))))
(query (pcase-exhaustive query
((and (pred stringp)
(rx bos (0+ blank) (or "(" "\"")))
;; Read sexp query from string.
(read query))
((pred stringp)
;; Parse string query into sexp query.
(org-ql--query-string-to-sexp query))
((pred listp)
;; Sexp query.
query))))
;; FIXME: Accept plain queries as well.
(org-ql-select buffer query
:action (lambda ()