commit 42ac361ef5502017e6fc1bceb00333eba90402f4
parent 67b3c744f94cf0bf50f7052ce428e95af5a6ff3f
Author: Oleh Krehel <ohwoeowho@gmail.com>
Date: Mon, 14 Sep 2020 17:58:11 +0200
org-download.el (org-download--fullname): Use spaces in saved file instea of %20
Fixes #142
Diffstat:
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/org-download.el b/org-download.el
@@ -280,9 +280,11 @@ The directory is created if it didn't exist before."
It's affected by `org-download--dir'.
EXT can hold the file extension, in case LINK doesn't provide it."
(let ((filename
- (file-name-nondirectory
- (car (url-path-and-query
- (url-generic-parse-url link)))))
+ (replace-regexp-in-string
+ "%20" " "
+ (file-name-nondirectory
+ (car (url-path-and-query
+ (url-generic-parse-url link))))))
(dir (org-download--dir)))
(when (string-match ".*?\\.\\(?:png\\|jpg\\)\\(.*\\)$" filename)
(setq filename (replace-match "" nil nil filename 1)))