emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

:attach now inserts link if in visual mode

Browse source
This commit is contained in:
Henrik Lissner 2015-11-30 16:47:53 -05:00
parent 4adee58ce9
commit 89c7c77c1d
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/lib/defuns-org-attach.el
View file

@ -20,7 +20,10 @@
(cond ((string-match-p "^https?://" link)
(url-copy-file link new-path))
(t (copy-file link new-path)))
(insert (format "[[./%s]]" (f-relative new-path default-directory))))))
(let ((relpath (f-relative new-path default-directory)))
(if (evil-visual-state-p)
(org-insert-link nil (format "./%s" relpath) (buffer-substring-no-properties (region-beginning) (region-end)))
(insert (format "[[./%s]]" relpath)))))))
;;;###autoload (autoload 'narf:org-attachment-list "defuns-org-attach" nil t)
(evil-define-command narf:org-attachment-list (&optional bang)