awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-06 15:13:33 -05:00
Code Issues Packages Projects Releases 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)