[elpa] externals/denote 0165b00ddb 145/355: Use only denote-retrieve functions in denote-link

[ELPA Syncer]

branch: externals/denote
commit 0165b00ddb5afe5518175c24bf962e9971168748
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Use only denote-retrieve functions in denote-link
---
 denote-link.el | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

diff --git a/denote-link.el b/denote-link.el
index e20d24244b..5624d915bc 100644
--- a/denote-link.el
+++ b/denote-link.el
@@ -112,18 +112,6 @@ files."
 (defconst denote-link--backlink-regexp "\\[\\[file:\\(.*?\\)\\]\\[backlink: 
\\(.*?\\) (\\(.*?\\))\\]\\]"
   "Regexp of `denote-link--backlink-format-org'.")
 
-(defun denote-link--retrieve-value (note regexp)
-  "Return REGEXP value from NOTE."
-  (let ((default-directory (denote-directory)))
-    (with-temp-buffer
-      (insert-file-contents-literally note)
-      (denote-retrieve--find-value regexp))))
-
-(defun denote-link--read-file-prompt ()
-  "Prompt for regular file in variable `denote-directory'."
-  (read-file-name "Select note: " (denote-directory)
-                  nil t nil #'file-regular-p))
-
 (defun denote-link--file-type-format (file &optional backlink)
   "Return link pattern based on FILE format.
 With optional BACKLINK, return a backlink pattern"
@@ -136,16 +124,16 @@ With optional BACKLINK, return a backlink pattern"
   "Prepare link to FILE using PATTERN.
 With optional BACKLINK, format it as a backlink."
   (let* ((dir (denote-directory))
-         (file-id (denote-link--retrieve-value file 
denote-retrieve--identifier-regexp))
+         (file-id (denote-retrieve--retrieve-value file 
denote-retrieve--identifier-regexp))
          (file-path (file-name-completion file-id dir))
-         (file-title (denote-link--retrieve-value file 
denote-retrieve--title-regexp)))
+         (file-title (denote-retrieve--retrieve-value file 
denote-retrieve--title-regexp)))
     (format pattern file-path file-title file-id)))
 
 ;;;###autoload
 (defun denote-link (target)
   "Create Org link to TARGET note in variable `denote-directory'.
 Run `denote-link-insert-functions' afterwards."
-  (interactive (list (denote-link--read-file-prompt)))
+  (interactive (list (denote-retrieve--read-file-prompt)))
   (let* ((origin (buffer-file-name))
          (link (denote-link--format-link target (denote-link--file-type-format 
origin)))
          (backlink (denote-link--format-link origin 
(denote-link--file-type-format target :backlink))))
@@ -191,7 +179,7 @@ PROOF-OF-CONCEPT."
   (interactive)
   (let* ((default-directory (denote-directory))
          (file (file-name-nondirectory (buffer-file-name)))
-         (id (denote-link--retrieve-value file 
denote-retrieve--identifier-regexp))
+         (id (denote-retrieve--retrieve-value file 
denote-retrieve--identifier-regexp))
          (buf (format "*denote-backlinks to %s*" id)))
   (compilation-start
    (format "find * -type f -exec %s --color=auto -l -m 1 -e %s- %s %s"