From 88903551c03d4d633e42c9ef305af4a872a44692 Mon Sep 17 00:00:00 2001 From: How Si Wei Date: Fri, 22 May 2020 22:11:14 +0800 Subject: [PATCH] lang/org: Support option in custom org links --- modules/lang/org/autoload/org-link.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/modules/lang/org/autoload/org-link.el b/modules/lang/org/autoload/org-link.el index 28e7bde1e..fedfcad16 100644 --- a/modules/lang/org/autoload/org-link.el +++ b/modules/lang/org/autoload/org-link.el @@ -32,9 +32,12 @@ exist, and `org-link' otherwise." :follow (lambda (link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil)) :face (lambda (link) - (if (file-exists-p (expand-file-name link (funcall dir-fn))) - 'org-link - 'error)) + (let* ((path (expand-file-name link (funcall dir-fn))) + (option-index (string-match-p "::\\(.*\\)\\'" path)) + (file-name (substring path 0 option-index))) + (if (file-exists-p file-name) + 'org-link + 'error))) (doom-plist-delete plist :requires))))