Make custom Org location query function available in main init file

I haven't used this … ever?

init.el

@@ -727,7 +727,8 @@ split horizontally again, but this extra work should not matter much."
              db/org-bookmark-store-link
              db/org-bookmark-export
              db/org-lint-invalid-bookmark-link
-             db/org-lint-possible-bookmark-link))
+             db/org-lint-possible-bookmark-link
+             db/org-get-location))
 
 ;; This is to make the byte-compiler happy about setting some variables later on
 ;; that are defined in those packages.
@@ -872,7 +873,7 @@ split horizontally again, but this extra work should not matter much."
                                        (db/org-default-notes-file . (:maxlevel . 9)))
                   org-refile-use-outline-path 'buffer-name
                   org-refile-use-cache nil
-                  org-refile-allow-creating-parent-nodes 'confirm
+                  org-refile-allow-creating-parent-nodes 'nil
                   org-indirect-buffer-display 'current-window
                   org-outline-path-complete-in-steps nil
                   org-refile-target-verify-function 'db/verify-refile-target)

site-lisp/db-org.el

@@ -1896,7 +1896,8 @@ linking to any item."
                                                            org-agenda-files)))
 
            (scope (cond (use-all-org-files
-                         (append (list (buffer-file-name default-buffer))
+                         (append (unless current-buffer-is-in-org-agenda-files? ; avoid duplicate entries
+                                   (list (buffer-file-name default-buffer)))
                                  (org-agenda-files)
                                  (cl-remove-if-not #'stringp
                                                    org-agenda-text-search-extra-files)))