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

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

View file

@ -112,8 +112,6 @@ Lisp code examples are in [[examples.org]].
These commands jump to a heading selected using Emacs's built-in completion facilities with an Org QL query: These commands jump to a heading selected using Emacs's built-in completion facilities with an Org QL query:
- ~org-ql-find~ searches all entry content. - ~org-ql-find~ searches all entry content.
- ~org-ql-find-path~ searches only headings (using the ~outline-path:~ predicate).
- ~org-ql-find-heading~ searches only headings (using the ~heading:~ predicate).
[[images/org-ql-find.png]] [[images/org-ql-find.png]]

View file

@ -194,40 +194,8 @@ single predicate)."
(run-hook-with-args 'org-ql-find-goto-hook)))))) (run-hook-with-args 'org-ql-find-goto-hook))))))
;;;###autoload ;;;###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 ;;;###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) (defun org-ql-find--snippet-simple (&optional _regexp)
"Return a snippet of the current entry. "Return a snippet of the current entry.