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

Add: (org-ql-find) :query-filter

Browse source 
Also, tidy docstring.
This commit is contained in:
Adam Porter 2022-06-02 07:43:08 -05:00
parent 67506a56f8
commit 64a9234733
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
org-ql-find.el
View file

@ -51,15 +51,21 @@
;;;; Functions ;;;; Functions
;;;###autoload ;;;###autoload
(cl-defun org-ql-find (buffers-files &key query-prefix (cl-defun org-ql-find (buffers-files &key query-prefix query-filter
(prompt "Find entry: ")) (prompt "Find entry: "))
"Go to an Org entry in BUFFERS-FILES selected by searching entries with `org-ql'. "Go to an Org entry in BUFFERS-FILES selected by searching entries with `org-ql'.
Interactively, with universal prefix, select multiple buffers to Interactively, with universal prefix, select multiple buffers to
search with completion. search with completion.
If QUERY-PREFIX, prepend it to the query (e.g. use \"heading:\" QUERY-PREFIX may be a string to prepend to the query (e.g. use
to only search headings, easily creating a custom command that \"heading:\" to only search headings, easily creating a custom
saves the user from having to type it)." command that saves the user from having to type it).
QUERY-FILTER may be a function through which the query the user
types is filtered before execution (e.g. it could replace spaces
with commas to turn multiple tokens, which would normally be
treated as multiple predicates, into multiple arguments to a
single predicate)."
(interactive (interactive
(list (if current-prefix-arg (list (if current-prefix-arg
(mapcar #'get-buffer (mapcar #'get-buffer
@ -126,6 +132,8 @@ saves the user from having to type it)."
(cons 'affixation-function #'affix) (cons 'affixation-function #'affix)
(cons 'annotation-function #'annotate))) (cons 'annotation-function #'annotate)))
(`t (unless (string-empty-p str) (`t (unless (string-empty-p str)
(when query-filter
(setf str (funcall query-filter str)))
(org-ql-select buffers-files (org-ql--query-string-to-sexp (concat query-prefix str)) (org-ql-select buffers-files (org-ql--query-string-to-sexp (concat query-prefix str))
:action #'action)))))) :action #'action))))))
(let* ((completion-styles '(org-ql-find)) (let* ((completion-styles '(org-ql-find))