Re: [O] RFQ - new contribution - org-screenshot.el

[Viktor Rosenfeld]

Forgot to attach the patch in my last mail.

Sorry about the double posting.

Viktor Rosenfeld wrote:

> Hi,
> 
> Haider Rizvi wrote:
> 
> > Max Mikhanosha <address@hidden> 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
> > 
> >

0001-org-screenshot-Let-user-configure-capture-program.patch
Description: Text document