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

helm-org-ql: add an 'input' argument

Browse source 
To support customized helm-org-ql command with pre-filled portion
This commit is contained in:
L 2021-09-22 22:27:36 +08:00
parent 31aeb0a250
commit c75b2bc40c
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
helm-org-ql.el
View file

@ -93,7 +93,7 @@ Based on `helm-map'.")
;;;###autoload ;;;###autoload
(cl-defun helm-org-ql (buffers-files (cl-defun helm-org-ql (buffers-files
&key (boolean 'and) (name "helm-org-ql")) &key (boolean 'and) (name "helm-org-ql") (input ""))
"Display results in BUFFERS-FILES for an `org-ql' non-sexp query using Helm. "Display results in BUFFERS-FILES for an `org-ql' non-sexp query using Helm.
Interactively, search the current buffer. Note that this command Interactively, search the current buffer. Note that this command
only accepts non-sexp, \"plain\" queries. only accepts non-sexp, \"plain\" queries.
@ -125,7 +125,9 @@ Is transformed into this query:
(let ((boolean (if current-prefix-arg 'or boolean)) (let ((boolean (if current-prefix-arg 'or boolean))
(helm-input-idle-delay helm-org-ql-input-idle-delay)) (helm-input-idle-delay helm-org-ql-input-idle-delay))
(helm :prompt (format "Query (boolean %s): " (-> boolean symbol-name upcase)) (helm :prompt (format "Query (boolean %s): " (-> boolean symbol-name upcase))
:sources (helm-org-ql-source buffers-files :name name)))) :sources (helm-org-ql-source buffers-files :name name)
:input input
)))
;;;###autoload ;;;###autoload
(defun helm-org-ql-agenda-files () (defun helm-org-ql-agenda-files ()