emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Drag images from Firefox to org-mode
@ 2013-10-16 10:04 Oleh
  2013-10-16 13:48 ` Torsten Wagner
  2013-10-17 12:04 ` Carsten Dominik
  0 siblings, 2 replies; 40+ messages in thread
From: Oleh @ 2013-10-16 10:04 UTC (permalink / raw)
  To: org mode

[-- 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 --]

^ permalink raw reply	[flat|nested] 40+ messages in thread

end of thread, other threads:[~2014-01-04 15:18 UTC | newest]

Thread overview: 40+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
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
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

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).