Re: RFQ - new contribution - org-screenshot.el

[Viktor Rosenfeld <listuser36@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 2527 bytes --]

Forgot to attach the patch in my last mail.

Sorry about the double posting.

Viktor Rosenfeld wrote:

> Hi,
> 
> Haider Rizvi wrote:
> 
> > Max Mikhanosha <max@openchat.com> writes:
> > 
> > > Hi All,
> > >
> > > I've been writing some documentation in OrgMode with screenshots, and
> > > as with any screenshot taking, it takes a while to get one just right.
> > >
> > > A few tiny helper utilities, quickly snowballed into this :-) It may
> > > need some cleanup, but IMHO its too awesome not to share it with the
> > > list.
> > >
> > > To try it out, you'll need /usr/bin/scrot which is available as
> > > "scrot" package on most distributions.
> > 
> > Cool. Can you make this a bit portable. On Mac OSX, the utility is
> > called screencapture, and can be run with the same flags. 
> 
> Attached is a very first try at making org-screenshot run on OS X. Many
> open issues remain:
> 
> - Clicking in a window will not take a screenshot using `screencapture
>   -s' but aborts the process altogether and does not create a file. To
>   capture a window one has to use `screencapture -w'. Another option is
>   to use `screencapture -i' and toggle between window and selection mode
>   using the space bar. The problem with this approach is that hitting
>   the control key will place the screenshot into the clipboard and not
>   create a file either.  
>   
> - Delay does not work because `screencapture -d' has a different
>   meaning. To delay a screenshot, one has to use `screencapture -T'.
> 
> Cheers,
> Viktor
>   
> > Here is a
> > piece of code that was published earlier with a sample use.
> > 
> > http://thread.gmane.org/gmane.emacs.orgmode/69221/focus=69272
> > 
> > ,----
> > | #+BEGIN_SRC emacs-lisp
> > |   (defun paste-clipboard-to-file (&optional filename temp-dir)
> > |     "Take a screenshot using the crosshairs and saveit to FILENAME,
> > |     if it is given or to a temp file in the TEMP-DIR
> > |     directory. Then add an orgmode style link at point."
> > |     (interactive)
> > |     (let* ((temporary-file-directory (or temp-dir "images"))
> > |            (fname (or filename (make-temp-file "img" nil ".jpg"))))
> > |       (call-process-shell-command (concat 
> > |                                     "/usr/sbin/screencapture -s " fname))
> > |       (insert "\n[[file:" fname "]]")
> > |       (org-display-inline-images)))  
> > |   ;;
> > |   (global-set-key (kbd "C-c p") 'paste-clipboard-to-file)
> > |   
> > | #+END_SRC
> > `----
> > 
> > Regards, 
> > -- 
> > Haider
> > 
> > 

[-- Attachment #2: 0001-org-screenshot-Let-user-configure-capture-program.patch --]
[-- Type: text/plain, Size: 1596 bytes --]

From 5938b848f4b9b30b25c903e3487834f9400f6ad9 Mon Sep 17 00:00:00 2001
From: Viktor Rosenfeld <listuser36@gmail.com>
Date: Tue, 21 May 2013 19:32:16 +0200
Subject: [PATCH] org-screenshot: Let user configure capture program.

	* org-screenshot.el (org-screenshot-capture-binary): Configure
	the binary to capture a screenshot.
	(org-screenshot-take): Do not use hardcoded `scrot' binary.
---
 contrib/lisp/org-screenshot.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/contrib/lisp/org-screenshot.el b/contrib/lisp/org-screenshot.el
index a54cb8f..54c8074 100644
--- a/contrib/lisp/org-screenshot.el
+++ b/contrib/lisp/org-screenshot.el
@@ -85,6 +85,11 @@
   "Options for taking and managing screen-shots"
   :group 'org-link)
 
+(defcustom org-screenshot-capture-binary "scrot"
+  "Binary to capture screen contents. Use `scrot' on Linux and `screencapture' on Mac OS X."
+  :type 'string
+  :group 'org-screenshot)
+
 (defcustom org-screenshot-image-directory "./images/"
   "Directory in which screenshot image files will be stored, it
 be automatically created if it does't already exist."
@@ -307,7 +312,7 @@ screenshot is done, any more `C-u' after that increases delay by
           (or 
            (apply 'start-process
                   (append
-                   (list "scrot" "*scrot*" "scrot" "-s" path)
+                   (list "scrot" "*scrot*" org-screenshot-capture-binary "-s" path)
                    (when (plusp delay)
                      (list "-d" (format "%d" delay)))))
            (error "Unable to start scrot process")))
-- 
1.8.2.3