Use consult function to provide org-goto

`org-goto` does not work as before, as our custom Org refile location query function does not honor
the `org-refile-targets` variable.  So, let's just use `consult-org-heading` directly, since this is
what I want.

init.el

@@ -741,7 +741,8 @@ split horizontally again, but this extra work should not matter much."
   :pin "gnu"
   :bind (:map org-mode-map
               ([remap org-return] . (lambda () (interactive) (org-return :indent)))
-              ([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox))
+              ([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox)
+              ([remap org-goto] . consult-org-heading))
   :autoload (org-get-todo-state
              org-entry-get)
   :commands (org-return)
@@ -953,7 +954,7 @@ split horizontally again, but this extra work should not matter much."
 
             ;; Use consult for querying refile targets
             (define-advice org-refile-get-location (:around
-                                                    (orig-func prompt default-buffer new-nodes)
+                                                    (orig-func &optional prompt default-buffer new-nodes)
                                                     use-consult-instead)
               (ignore orig-func)
               (db/org-refile-get-location prompt default-buffer new-nodes))))

site-lisp/db-org.el

@@ -478,7 +478,7 @@ Via %%(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-
    ;; any agenda when a super-item is tagged with :HOLD:.
    (not (member "HOLD" (org-get-tags (point))))))
 
-(defun db/org-refile-get-location (prompt default-buffer new-nodes)
+(defun db/org-refile-get-location (&optional prompt default-buffer new-nodes)
   "Replacement function for `org-refile-get-location' using `consult'.
 
 This function can be used instead of `org-refile-get-location',
@@ -496,7 +496,8 @@ Also note that the usual variables governing the behavior of
                (db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function
     (list (buffer-name (marker-buffer pom))
           (buffer-file-name (marker-buffer pom))
-          ""                            ; some regexp matching the headline?
+          ;; The third entry is some regexp matching the headline, apparently?
+          (format org-complex-heading-regexp-format (org-entry-get pom "ITEM"))
           (marker-position pom))))