org-download

commit 3f568b163a8a26f22a9b2d9a90b85fcea89c67f2
parent addb5eaacf2a833251e59dcb18f506dbf83f7248
Author: kiuuik <kiu@mailbox.org>
Date:   Tue, 13 Mar 2018 20:26:32 +0100

org-download.el (org-download-rename-at-point): Remove extension

Fixes #70

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: " current-name))
+         (new-name (read-string "Rename file at point to: " (file-name-sans-extension current-name)))
          (new-path (concat dir-path "/" new-name "." ext)))
     (rename-file current-path new-path)
     (message "File successfully renamed...")