diff --git a/README.org b/README.org index fe68a62..05b4bfc 100644 --- a/README.org +++ b/README.org @@ -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: - ~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]] diff --git a/org-ql-find.el b/org-ql-find.el index 69f0ad9..bc92277 100644 --- a/org-ql-find.el +++ b/org-ql-find.el @@ -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.