Re: [O] insert picture feature request.

[Mark S.]

Thanks Aankhen.

That seems to have fixed the technical problem. Unfortunately, because of the 
way irfan works, all I was able to get pictures of was the emacs screen! People 
with lots of screen real-estate can have emacs and their target application up 
at the same time, but that doesn't work on my older screen.

So instead, I have the code grab whatever is in the clipboard and use it. Then 
if I want a screen capture, I can use whatever tool is available. Surfulator 
has a really nice free screen capture. Also, with this approach I can 
right-click on images in the browser, click "copy image" and use those images 
directly. 

As for viewing, the only way I know is to export to HTML. Ctl-c e b is quick. I 
vaguely remember that there is a way to actually view images inline in Emacs, 
but its not portable or something.

Modified code below.

Thanks!
Mark

(defun org-screenshot ()
  "Take a screenshot into a time stamped
   unique-named file in the same directory as
   the org-buffer and insert a link to this file."
  (interactive)
  (setq filename
       (convert-standard-filename
        (concat
         (make-temp-name
          (concat (buffer-file-name)
                  "_"
                  (format-time-string
                   "%Y%m%d_%H%M%S_")) ) ".png")))
  (call-process "C:\\Program Files\\IrfanView\\i_view32.exe" nil nil nil
                "/clippaste" (concat "/convert=" filename) )
  (insert (concat "[[" filename "]]"))
  (org-display-inline-images))


--- On Sat, 5/7/11, Aankhen wrote:

> Subject: Re: [O] insert picture feature request.
> 
> I believe ‘convert-standard-filename’ should do it:
> 
> ,----
> | (defun org-screenshot ()
> |  "Take a screenshot into a time stamped
> |   unique-named file in the same directory
> as
> |   the org-buffer and insert a link to this
> file."
> |  (interactive)
> |  (setq filename
> |        (convert-standard-filename
> |         (concat
> |          (make-temp-name
> |           (concat
> (buffer-file-name)
> |               
>    "_"
> |               
>    (format-time-string
> |               
>     "%Y%m%d_%H%M%S_")) ) ".png")))
> |  (call-process "i_view32.exe" nil nil nil
> |               
> "/capture=2" (concat "/convert=" filename) )
> |  (insert (concat "[[" filename "]]"))
> |  (org-display-inline-images))
> `----
> 
> Seems to work here, although I’m unable to get the
> resulting image to
> display inline.
> 
> Aankhen
>