From: Torsten Wagner <torsten.wagner@gmail.com>
To: Oleh <ohwoeowho@gmail.com>
Cc: org mode <emacs-orgmode@gnu.org>
Subject: Re: Drag images from Firefox to org-mode
Date: Wed, 16 Oct 2013 15:48:58 +0200 [thread overview]
Message-ID: <CAPaq-gMtvqOiiGb7PP6O2ppnfygB5JzBsPnxyDNLacBq4o1-2w@mail.gmail.com> (raw)
In-Reply-To: <CAA01p3p4efUMcfXYQm+YBiahgS5JQ2OJ0QBBb0WszdfTToGAWA@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 2138 bytes --]
This looks like a nice feature!
Maybe you could add to save the address and date the picture was taken,
thus, one could easily refer to the image origin. That is sometimes of
importance.
Thanks for sharing
Torsten
On 16 October 2013 12:04, 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: Type: text/html, Size: 3128 bytes --]
next prev parent reply other threads:[~2013-10-16 13:49 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 [this message]
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
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=CAPaq-gMtvqOiiGb7PP6O2ppnfygB5JzBsPnxyDNLacBq4o1-2w@mail.gmail.com \
--to=torsten.wagner@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).