org-download

commit d8f509f5ae35a868c9bdd579375097a9a4b40fed
parent ed0932331ec2636be86a4baf4104717d38863822
Author: kiuuik <kiu@mailbox.org>
Date:   Sun, 11 Mar 2018 15:22:20 +0100

org-download-rename-at-point - offer initial input
Diffstat:
M
org-download.el
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/org-download.el b/org-download.el
@@ -349,7 +349,7 @@ It's inserted before the image link and is used to annotate it.")
                         (org-element-property :path (org-element-context))))
          (current-path (concat dir-path "/" current-name))
          (ext (file-name-extension current-name))
-         (new-name (read-string "Rename file at point to: "))
+         (new-name (read-string "Rename file at point to: " current-name))
          (new-path (concat dir-path "/" new-name "." ext)))
     (rename-file current-path new-path)
     (message "File successfully renamed...")