From 5768c685adc7c6e85c17cfec358aa8a0e368310b Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Sat, 25 Jun 2022 10:53:29 -0500
Subject: [PATCH] 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.
---
 README.org     |  2 --
 org-ql-find.el | 32 --------------------------------
 2 files changed, 34 deletions(-)

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.