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

WIP: (org-ql-search) Rename argument

Browse source
This commit is contained in:
Adam Porter 2024-01-01 16:05:50 -06:00
parent 2c2d2a1aee
commit ed73a15c69
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql-search.el
View file

@ -147,13 +147,13 @@ Runs `org-occur-hook' after making the sparse tree."
num-results))) num-results)))
;;;###autoload ;;;###autoload
(cl-defun org-ql-search (buffers-files query &key narrow super-groups sort title (cl-defun org-ql-search (in query &key narrow super-groups sort title
(buffer org-ql-view-buffer)) (buffer org-ql-view-buffer))
"Search for QUERY with `org-ql'. "Search for QUERY with `org-ql'.
Interactively, prompt for these variables: Interactively, prompt for these variables:
BUFFERS-FILES: A list of buffers and/or files to search. IN: Passed to `org-ql-select', which see. Interactively, may
Interactively, may also be: also be:
- `buffer': search the current buffer - `buffer': search the current buffer
- `all': search all Org buffers - `all': search all Org buffers
@ -209,16 +209,16 @@ necessary."
;; Parse non-sexp query into sexp query. ;; Parse non-sexp query into sexp query.
(org-ql--query-string-to-sexp query))) (org-ql--query-string-to-sexp query)))
(list query))) (list query)))
(results (org-ql-select buffers-files query (results (org-ql-select in query
:action 'element-with-markers :action 'element-with-markers
:narrow narrow :narrow narrow
:sort sort)) :sort sort))
(strings (-map #'org-ql-view--format-element results)) (strings (-map #'org-ql-view--format-element results))
(buffer (or buffer (format "%s %s*" org-ql-view-buffer-name-prefix (or title query)))) (buffer (or buffer (format "%s %s*" org-ql-view-buffer-name-prefix (or title query))))
(header (org-ql-view--header-line-format (header (org-ql-view--header-line-format
:buffers-files buffers-files :query query :title title)) :buffers-files in :query query :title title))
;; Bind variables for `org-ql-view--display' to set. ;; Bind variables for `org-ql-view--display' to set.
(org-ql-view-buffers-files buffers-files) (org-ql-view-buffers-files in)
(org-ql-view-query query) (org-ql-view-query query)
(org-ql-view-sort sort) (org-ql-view-sort sort)
(org-ql-view-narrow narrow) (org-ql-view-narrow narrow)