org-download

commit 551d1d3b00f4c55c4e878bb40a0c066bb3fcbc3a
parent f1d77100d7208a0cb1f46d3d97e9ed179e0850e9
Author: azzamsa <azzam@azzamsa.com>
Date:   Sat, 12 Jan 2019 22:13:31 +0700

org-download.el (org-download-image): Add ability to delete image after download

Fixes #90

Diffstat:
M
org-download.el
 | 
7
+++++++

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/org-download.el b/org-download.el
@@ -169,6 +169,10 @@ will be used."
   :type 'integer
   :group 'org-download)
 
+(defcustom org-download-delete-image-after-download nil
+  "When non-nil delete local image after download."
+  :group 'org-download)
+
 (defun org-download-get-heading (lvl)
   "Return the heading of the current entry's LVL level parent."
   (save-excursion
@@ -353,6 +357,9 @@ It's inserted before the image link and is used to annotate it.")
         (org-download--image link filename)
         (when (eq org-download-method 'attach)
           (org-attach-attach filename nil 'none))
+        (when (and (eq org-download-delete-image-after-download t)
+                   (not (url-handler-file-remote-p (current-kill 0))))
+          (delete-file link delete-by-moving-to-trash))
         (org-download-insert-link link filename)))))
 
 (defun org-download-rename-at-point ()