From 747a334d54eb627d5248262b7c9caf156c86a728 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 22 Mar 2018 07:31:36 -0400 Subject: [PATCH] lang/org: add completion + highlighting for attach:%s links --- modules/lang/org/+attach.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/modules/lang/org/+attach.el b/modules/lang/org/+attach.el index 131e3fea0..34bc985a2 100644 --- a/modules/lang/org/+attach.el +++ b/modules/lang/org/+attach.el @@ -75,6 +75,18 @@ ;; A shorter link to attachments (push (cons "attach" (abbreviate-file-name org-attach-directory)) org-link-abbrev-alist) + ;; Enhance attach links + (org-link-set-parameters + "attach" + :follow (lambda (link) (find-file (expand-file-name link org-attach-directory))) + :complete (lambda (&optional _arg) + (+org--relpath (+org-link-read-file "attach" org-attach-directory) + org-attach-directory)) + :face (lambda (link) + (if (file-exists-p (expand-file-name link org-attach-directory)) + 'org-link + 'error))) + (push (car (last (split-string +org-attach-dir "/" t))) projectile-globally-ignored-directories)