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

lang/org: add completion + highlighting for attach:%s links

Browse source
This commit is contained in:
Henrik Lissner 2018-03-22 07:31:36 -04:00
parent 5570fbb353
commit 747a334d54
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/lang/org/+attach.el
View file

@ -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)