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

Remove: org-ql-find-heading, org-ql-find-path

Browse source 
These are virtually obsolete with the introduction of the "rifle"
predicate as the default one.  Having them now is just confusing.
This commit is contained in:
Adam Porter 2022-06-25 10:53:29 -05:00
parent bacdacb1b2
commit 5768c685ad
2 changed files with 0 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

32
org-ql-find.el
View file

@ -194,40 +194,8 @@ single predicate)."
(run-hook-with-args 'org-ql-find-goto-hook))))))
;;;###autoload
(defun org-ql-find-heading (buffers-files)
"Go to an Org entry in BUFFERS-FILES selected by searching with `org-ql'.
Only headings are searched (using the \"heading:\" predicate).
Interactively, with universal prefix, select multiple buffers to
search with completion."
(interactive
(list (if current-prefix-arg
(mapcar #'get-buffer
(completing-read-multiple
"Buffers: "
(mapcar #'buffer-name
(cl-remove-if-not (lambda (buffer)
(eq 'org-mode (buffer-local-value 'major-mode buffer)))
(buffer-list))) nil t))
(current-buffer))))
(org-ql-find buffers-files :prompt "Find heading: " :query-prefix "heading:"))
;;;###autoload
(defun org-ql-find-path (buffers-files)
"Go to an Org entry in BUFFERS-FILES selected by searching with `org-ql'.
Only outline paths are searched (using the \"outline-path:\"
predicate). Interactively, with universal prefix, select
multiple buffers to search with completion."
(interactive
(list (if current-prefix-arg
(mapcar #'get-buffer
(completing-read-multiple
"Buffers: "
(mapcar #'buffer-name
(cl-remove-if-not (lambda (buffer)
(eq 'org-mode (buffer-local-value 'major-mode buffer)))
(buffer-list))) nil t))
(current-buffer))))
(org-ql-find buffers-files :prompt "Find outline path: " :query-prefix "outline-path:"))
(defun org-ql-find--snippet-simple (&optional _regexp)
"Return a snippet of the current entry.