org-download

commit 474a624d7911c7b1046bf49168ba16eb52a9899a
parent 50988b94d6996f6102d3d420fd33882a8c8cdb16
Author: Oleh Krehel <ohwoeowho@gmail.com>
Date:   Thu, 31 Oct 2013 14:13:24 +0100

org-download.el (org-download-scrot): added screenshot support.

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

1 file changed, 10 insertions(+), 0 deletions(-)
diff --git a/org-download.el b/org-download.el
@@ -191,6 +191,16 @@ COMMAND is a format-style string with two slots for LINK and FILENAME."
   (interactive)
   (org-download-image (current-kill 0)))
 
+(defun org-download-scrot ()
+  "Call \"scrot -s\" and insert the resulting file.
+scrot supports:
+1. capture window: single click
+2. general area: mouse drag"
+  (interactive)
+  (let ((link (format-time-string "/tmp/screenshot.png")))
+    (shell-command (format "scrot -s %s" link))
+    (org-download-image link)))
+
 (defun org-download-image (link)
   "Save image at address LINK to `org-download--dir'."
   (interactive "sUrl: ")