[elpa] externals/denote b4d1a73629 3/4: Set default-value to previous title in denote--title-prompt

[ELPA Syncer]

branch: externals/denote
commit b4d1a73629ca7b80a9724c86bb3d99af919bd719
Author: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>

    Set default-value to previous title in denote--title-prompt
    
    denote--title-prompt accepts a DEFAULT-TITLE parameter which the
    command denote-dired-rename-file sets to the previous title
---
 denote-dired.el |  9 +++++----
 denote.el       | 13 +++++++++----
 2 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/denote-dired.el b/denote-dired.el
index 23bd006ff9..c24717d49b 100644
--- a/denote-dired.el
+++ b/denote-dired.el
@@ -231,10 +231,11 @@ This command is intended to (i) rename existing Denote
 notes, (ii) complement note-taking, such as by renaming
 attachments that the user adds to their notes."
   (interactive
-   (list
-    (denote-dired--rename-file-is-regular 
(denote-dired--rename-dired-file-or-prompt))
-    (denote--title-prompt)
-    (denote--keywords-prompt)))
+   (let ((file (denote-dired--rename-file-is-regular 
(denote-dired--rename-dired-file-or-prompt))))
+     (list
+      file
+      (denote--title-prompt (denote-retrieve--value-title file))
+      (denote--keywords-prompt))))
   (let* ((dir (file-name-directory file))
          (old-name (file-name-nondirectory file))
          (extension (file-name-extension file t))
diff --git a/denote.el b/denote.el
index 039a8ffd7f..909c8610e1 100644
--- a/denote.el
+++ b/denote.el
@@ -631,10 +631,15 @@ used to construct the path's identifier."
 (defvar denote--title-history nil
   "Minibuffer history of `denote--title-prompt'.")
 
-(defun denote--title-prompt ()
-  "Read file title for `denote'."
-  (setq denote-last-title
-        (read-string "File title: " nil 'denote--title-history)))
+(defun denote--title-prompt (&optional default-title)
+  "Read file title for `denote'.
+
+Optional DEFAULT-TITLE is used as the default value."
+  (let ((format (if default-title
+                    (format " File title [%s]: " default-title)
+                  "File title: ")))
+    (setq denote-last-title
+          (read-string format nil 'denote--title-history default-title))))
 
 ;;;###autoload
 (defun denote (title keywords)