From: Oleh <ohwoeowho@gmail.com>
To: org mode <emacs-orgmode@gnu.org>
Subject: Drag images from Firefox to org-mode
Date: Wed, 16 Oct 2013 12:04:14 +0200 [thread overview]
Message-ID: <CAA01p3p4efUMcfXYQm+YBiahgS5JQ2OJ0QBBb0WszdfTToGAWA@mail.gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 1753 bytes --]
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: 2471 bytes --]
next reply other threads:[~2013-10-16 10:04 UTC|newest]
Thread overview: 40+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-10-16 10:04 Oleh [this message]
2013-10-16 13:48 ` Drag images from Firefox to org-mode 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
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=CAA01p3p4efUMcfXYQm+YBiahgS5JQ2OJ0QBBb0WszdfTToGAWA@mail.gmail.com \
--to=ohwoeowho@gmail.com \
--cc=emacs-orgmode@gnu.org \
/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).