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
