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

lang/org: Support option in custom org links

Browse source
This commit is contained in:
How Si Wei 2020-05-22 22:11:14 +08:00
parent a262527a7f
commit 88903551c0
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/lang/org/autoload/org-link.el
View file

@ -32,9 +32,12 @@ exist, and `org-link' otherwise."
:follow (lambda (link) :follow (lambda (link)
(org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil)) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
:face (lambda (link) :face (lambda (link)
(if (file-exists-p (expand-file-name link (funcall dir-fn))) (let* ((path (expand-file-name link (funcall dir-fn)))
'org-link (option-index (string-match-p "::\\(.*\\)\\'" path))
'error)) (file-name (substring path 0 option-index)))
(if (file-exists-p file-name)
'org-link
'error)))
(doom-plist-delete plist :requires)))) (doom-plist-delete plist :requires))))