From: Carsten Dominik <drostekirsten@gmail.com>
To: Oleh <ohwoeowho@gmail.com>
Cc: org mode <emacs-orgmode@gnu.org>
Subject: Re: Drag images from Firefox to org-mode
Date: Thu, 17 Oct 2013 14:04:10 +0200 [thread overview]
Message-ID: <C7C02B1D-C8A7-4012-983B-A9CB8002B3E6@gmail.com> (raw)
In-Reply-To: <CAA01p3p4efUMcfXYQm+YBiahgS5JQ2OJ0QBBb0WszdfTToGAWA@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 2160 bytes --]
Hi Oleh and others,
does anyone know how general this code is? Does it works on different operating systems?
We might want to include this into the Org core.
- Carsten
On Oct 16, 2013, at 12:04 PM, Oleh <ohwoeowho@gmail.com> wrote:
> Hi all,
>
> Here's a little hack that I use to make my life easier:
>
> (require 'async)
> (eval-when-compile
> (require 'cl))
> (defun org-store-image (link basedir)
> (async-start
> `(lambda() (shell-command
> ,(format "wget \"%s\" -P \"%s\""
> link
> (expand-file-name basedir))))
> (lexical-let ((cur-buf (current-buffer)))
> (lambda(x)
> (with-current-buffer cur-buf
> (org-display-inline-images))))))
>
> (defun org-store-image-clipboard (link)
> "Save image at address LINK to current directory's subdirectory DIR.
> DIR is the name of the current level 0 heading."
> (interactive (list (current-kill 0)))
> (let ((filename (car (last (split-string link "/"))))
> (dir (save-excursion
> (org-up-heading-all (1- (org-current-level)))
> (substring-no-properties
> (org-get-heading)))))
> (if (null (image-type-from-file-name filename))
> (message "not an image URL")
> (unless (file-exists-p (expand-file-name filename dir))
> (org-store-image link dir))
> (insert (format "[[./%s/%s]]" dir filename))
> (org-display-inline-images))))
>
> (setcdr (assoc "^\\(https?\\|ftp\\|file\\|nfs\\)://" dnd-protocol-alist) 'dnd-org-insert)
>
> (defun dnd-org-insert (uri action)
> (org-store-image-clipboard uri))
>
> When it's a plain image, I can just drag it from the browser to org-mode.
> It will be downloaded in async to a subdirectory of the current directory and the link will be inserted
> at point.
> For stubborn images that are links I can right click to copy image location and call
> `org-store-image-clipboard' interactively.
>
> I hope it's useful to someone and that I'm not re-implementing standard functionality.
>
> regards,
> Oleh
>
> regards,
> Oleh
[-- Attachment #2: Message signed with OpenPGP using GPGMail --]
[-- Type: application/pgp-signature, Size: 455 bytes --]
next prev parent reply other threads:[~2013-10-17 12:04 UTC|newest]
Thread overview: 40+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-10-16 10:04 Drag images from Firefox to org-mode Oleh
2013-10-16 13:48 ` Torsten Wagner
2013-10-16 14:22 ` Xebar Saram
2013-10-16 15:52 ` Oleh
2013-10-16 17:28 ` Marcin Borkowski
2013-10-17 11:49 ` Samuel Loury
2013-10-17 3:42 ` Eric Abrahamsen
2013-10-17 12:04 ` Carsten Dominik [this message]
2013-10-17 12:43 ` Nicolas Richard
2013-10-17 14:04 ` Rick Frankel
2013-10-17 14:48 ` Nicolas Richard
2013-10-17 16:51 ` Rick Frankel
2013-10-18 5:29 ` Nicolas Richard
2013-10-18 14:44 ` Rick Frankel
2013-10-18 15:39 ` Nicolas Richard
2013-10-18 9:24 ` Oleh
2013-10-18 9:28 ` Carsten Dominik
2013-10-18 9:33 ` Oleh
2013-10-18 9:47 ` Nicolas Richard
2013-10-18 10:04 ` Oleh
2013-10-18 10:23 ` Nicolas Richard
[not found] ` <CAA01p3obTUXshcS-m=iB2KOADAx9eNpj8PK_F5O1x5dLtCobcA@mail.gmail.com>
2013-10-18 11:00 ` Nicolas Richard
2013-10-18 11:06 ` Oleh
2013-10-18 15:03 ` Rick Frankel
2013-10-18 15:36 ` Nicolas Richard
2013-10-18 15:44 ` Rick Frankel
2013-10-18 18:24 ` Rick Frankel
2013-10-18 19:22 ` Oleh
2013-10-18 20:45 ` Rick Frankel
2013-10-19 10:34 ` Oleh
2013-10-20 20:42 ` Nicolas Richard
2013-10-21 7:24 ` Oleh
2013-10-23 17:13 ` Rick Frankel
2013-10-23 18:26 ` Oleh
2013-10-23 18:59 ` Torsten Wagner
2013-10-23 20:01 ` Torsten Wagner
2013-10-24 6:47 ` Christian Moe
2014-01-04 15:01 ` Oleh
2014-01-04 15:17 ` Bastien
2013-10-18 10:44 ` Nicolas Richard
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=C7C02B1D-C8A7-4012-983B-A9CB8002B3E6@gmail.com \
--to=drostekirsten@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=ohwoeowho@gmail.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).