awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #3196 from howsiwei/develop

Browse Source 
lang/org: Support option in custom org links
This commit is contained in:
Henrik Lissner
2020-05-24 22:51:47 -04:00
committed by GitHub
parent 3f5600a2e8 88903551c0
commit 121710f779
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))))