[elpa] externals/denote eee100cc50 062/355: Add denote-dired-rename-file

[ELPA Syncer]

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

    Add denote-dired-rename-file
    
    This is not limited to notes that were created with Denote: it works on
    any file in any directory.  The idea is to apply the Denote-style file
    name in more contexts, such as for longer-term storage and attachments
    to notes.
    
    Also see commit 431124f, which is thematically aligned with this one.
    
    Thanks to Ypot for giving me the idea in issue 1 over at the GitHub
    mirror: <https://github.com/protesilaos/denote/issues/1>.
---
 denote-dired.el | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/denote-dired.el b/denote-dired.el
index 8628f5a1d2..efc78008cd 100644
--- a/denote-dired.el
+++ b/denote-dired.el
@@ -34,11 +34,42 @@
 ;;; Code:
 
 (require 'denote)
+(require 'dired)
 
 (defgroup denote-dired ()
   "Integration between Denote and Dired."
   :group 'denote)
 
+;;;; Commands
+
+;;;###autoload
+(defun denote-dired-rename-file (title keywords)
+  "Rename file at point to new file with TITLE and KEYWORDS.
+This command is intended to complement note-taking, such as by
+renaming attachments that the user adds to their notes."
+  (interactive
+   (list
+    (denote--title-prompt)
+    (denote--keywords-prompt)))
+  (let* ((file (dired-get-filename))
+         (dir (file-name-directory file))
+         (old-name (file-name-nondirectory file))
+         (extension (file-name-extension file t))
+         (new-name (denote--format-file
+                    dir
+                    (format-time-string denote--id)
+                    keywords
+                    (denote--sluggify title)
+                    extension)))
+    (when (y-or-n-p
+           (format "Rename %s to %s?"
+                   (propertize old-name 'face 'error)
+                   (propertize (file-name-nondirectory new-name) 'face 
'success)))
+      (rename-file old-name new-name nil)
+      (revert-buffer))))
+
+;;;; Extra fontification
+
 (defvar dired-font-lock-keywords)
 
 (defvar denote-dired-original-keywords dired-font-lock-keywords