[elpa] externals/denote bbd0b79162 2/2: Sort keywords where relevant

[ELPA Syncer]

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

    Sort keywords where relevant
    
    A continuation of commit 877e205 by Florian:
    
<https://lists.sr.ht/~protesilaos/denote/%3C166689879712.8.6808878344988686135.71824507%40aboulafia.org%3E#%3C166738607395.7.4984032286065984949.73057415@aboulafia.org%3E>.
    
    Florian's contributions are still within the ~15 line limit and thus
    do not require copyright assignment to the Free Software Foundation.
---
 denote.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index 59d67d7484..c59ca18217 100644
--- a/denote.el
+++ b/denote.el
@@ -1717,7 +1717,7 @@ When called from Lisp, KEYWORDS is a list of strings.
 
 Rename the file without further prompt so that its name reflects
 the new front matter, per `denote-rename-file-using-front-matter'."
-  (interactive (list (denote-keywords-prompt)))
+  (interactive (list (denote-keywords-sort (denote-keywords-prompt))))
   ;; A combination of if-let and let, as we need to take into account
   ;; the scenario in which there are no keywords yet.
   (if-let* ((file (buffer-file-name))
@@ -2027,7 +2027,7 @@ files)."
       file
       (denote-title-prompt
        (denote--retrieve-title-or-filename file file-type))
-      (denote-keywords-sort (denote-keywords-prompt))
+      (denote-keywords-prompt)
       current-prefix-arg)))
   (let* ((dir (file-name-directory file))
          (id (denote-retrieve-or-create-file-identifier file date))
@@ -2074,7 +2074,7 @@ The operation does the following:
   the user option `denote-file-type')."
   (interactive nil dired-mode)
   (if-let ((marks (dired-get-marked-files)))
-      (let ((keywords (denote-keywords-prompt)))
+      (let ((keywords (denote-keywords-sort (denote-keywords-prompt))))
         (when (yes-or-no-p "Add front matter or rewrite front matter of 
keywords (buffers are not saved)?")
           (progn
             (dolist (file marks)
@@ -2219,7 +2219,7 @@ relevant front matter."
    (list
     (buffer-file-name)
     (denote-title-prompt)
-    (denote-keywords-prompt)))
+    (denote-keywords-sort (denote-keywords-prompt))))
   (when (denote-file-is-writable-and-supported-p file)
     (denote--add-front-matter
      file title keywords
@@ -3120,7 +3120,7 @@ arbitrary text).
 
 Consult the manual for template samples."
   (let* ((title (denote-title-prompt))
-         (keywords (denote-keywords-prompt))
+         (keywords (denote-keywords-sort (denote-keywords-prompt)))
          (front-matter (denote--format-front-matter
                         title (denote--date nil 'org) keywords
                         (format-time-string denote-id-format nil) 'org)))