From 89c7c77c1d2ca2e4b0ed870405360a3f4dc999e2 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 30 Nov 2015 16:47:53 -0500 Subject: [PATCH] :attach now inserts link if in visual mode --- modules/lib/defuns-org-attach.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/modules/lib/defuns-org-attach.el b/modules/lib/defuns-org-attach.el index 840595322..f8105a50d 100644 --- a/modules/lib/defuns-org-attach.el +++ b/modules/lib/defuns-org-attach.el @@ -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)