emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: "Mark S." <throaway@yahoo.com>
To: nicholas.dokos@hp.com
Cc: emacs-orgmode@gnu.org
Subject: Re: insert picture feature request.
Date: Sun, 8 May 2011 19:05:13 -0700 (PDT)	[thread overview]
Message-ID: <52439.46653.qm@web32007.mail.mud.yahoo.com> (raw)
In-Reply-To: <22031.1304896279@alphaville.dokosmarshall.org>

Thanks Nick!

Revised code below with your help. Note that I've changed the name of function to reflect the fact that we're using the clipboard for the shot. Also, needed "file:" in the insert name for the inline images to view directly.

Note to Aankhen: To get inline images to work, you need to install the PNG and JPEG libraries from http://gnuwin32.sourceforge.net/ . Then put the resulting C:...gnuwin32/bin directory in your windows system path. Maybe everyone here already knew this, but I had to spend a bit of time to work it out.

Thanks!
Mark


(defun org-clipshot ()
  "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)
                 (file-name-directory (buffer-file-name))
                  "images/"
                 (file-name-nondirectory (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 "[[file:" filename "]]"))
  (org-display-inline-images))




--- On Sun, 5/8/11, Nick Dokos <nicholas.dokos@hp.com> wrote:

> From: Nick Dokos <nicholas.dokos@hp.com>
> Subject: Re: [O] insert picture feature request.
> To: "Mark S." <throaway@yahoo.com>
> Cc: nicholas.dokos@hp.com, emacs-orgmode@gnu.org
> Date: Sunday, May 8, 2011, 4:11 PM
> Mark S. <throaway@yahoo.com>
> wrote:
> 
> > Additional thought. Having all those pngs in the main
> directory will
> > get messy. I would like to put them in a sub-directory
> like
> > "images". But there doesn't seem to be an easy way to
> insert that into
> > (buffer-file-name). I've looked, but can't seem to be
> a variable that
> > just holds the current buffer directory. Where would I
> start?
> > 
> 
> C-h f file-name-directory <RET>
> C-h f file-name-nondirectory <RET>
> 
> Nick
> 
> 

  reply	other threads:[~2011-05-09  2:05 UTC|newest]

Thread overview: 18+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-05-02 12:42 insert picture feature request Piter_
2011-05-02 13:28 ` Russell Adams
2011-05-02 14:23   ` brian powell
2011-05-02 23:34     ` Piter_
2011-05-04  0:37   ` Mark S.
2011-05-04 10:01     ` Rainer Stengele
2011-05-04 12:38       ` Jambunathan K
2011-05-04 14:10         ` Jambunathan K
2011-05-04 13:19       ` Russell Adams
2011-05-07 21:33         ` Mark S.
2011-05-08  4:29           ` Aankhen
2011-05-08 16:28             ` Mark S.
2011-05-08 18:51               ` Mark S.
2011-05-08 23:11                 ` Nick Dokos
2011-05-09  2:05                   ` Mark S. [this message]
2011-05-16  8:32                     ` Aankhen
2011-05-25  9:00           ` Stinky Wizzleteet
2011-05-04 13:28       ` Rainer Stengele

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=52439.46653.qm@web32007.mail.mud.yahoo.com \
    --to=throaway@yahoo.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=nicholas.dokos@hp.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).