[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] capture, attach, link files from web
From: |
Myles English |
Subject: |
[O] capture, attach, link files from web |
Date: |
Mon, 07 Oct 2013 12:49:58 +0100 |
User-agent: |
mu4e 0.9.9.5; emacs 24.3.1 |
Hello,
Just thought I would share something I find useful. What the code below
does is:
1) prompts for a link to a file on the internet
2) downloads the file
3) attaches the file to the current subtree
4) inserts at the current point a link to the attachment
This is useful if (e.g.) you are scouring Google images for ideas and
want to save lots of image files.
Requirements: wget, set $TMPDIR.
TODO: integrate properly with capture template
#+here_is_some elisp
(setq org-link-abbrev-alist '(("att" . org-attach-expand-link)))
(defun my-attach-and-link-web-file (lnk)
"Download a file, attach it to our heading, insert a link"
(interactive "*sAttach and link to url: \n")
(let ((tmpdir (expand-file-name (getenv "TMPDIR")))
(fname (file-name-nondirectory lnk)))
(progn (message (concat "Downloading " lnk " to " tmpdir "/" fname))
(call-process "wget" nil '("*Messages*" t) nil "-P"
tmpdir "-d"
lnk)
(org-attach-attach (concat tmpdir "/" fname) nil 'mv)
(insert (concat "[[att:" fname "]]")))))
(define-key global-map "\C-cs" 'my-attach-and-link-web-file)
#+that_was_elisp
Myles
- [O] capture, attach, link files from web,
Myles English <=
- Re: [O] capture, attach, link files from web, Oleh, 2013/10/07
- Re: [O] capture, attach, link files from web, Eric Abrahamsen, 2013/10/07
- Re: [O] capture, attach, link files from web, Myles English, 2013/10/07
- Re: [O] capture, attach, link files from web, Eric Abrahamsen, 2013/10/07
- Re: [O] capture, attach, link files from web, Myles English, 2013/10/08
- Re: [O] capture, attach, link files from web, Eric Abrahamsen, 2013/10/08