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

fix(org): support module link names with A-Z0-9

Browse source 
We also guard against calling doom-module-locate-path unless the
category is non-nil.
This commit is contained in:
TEC 2022-12-01 10:46:47 +08:00 • committed by Henrik Lissner
parent 0f7f91750a
commit 14bf870025
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -80,7 +80,7 @@ exist, and `org-link' otherwise."
(defun +org-link--read-module-spec (module-spec-str)
(if (string-prefix-p "+" (string-trim-left module-spec-str))
(let ((title (cadar (org-collect-keywords '("TITLE")))))
(if (and title (string-match-p "\\`:[a-z]+ [a-z]+\\'" title))
(if (and title (string-match-p "\\`:[a-z]+ [A-Za-z0-9]+\\'" title))
(+org-link--read-module-spec (concat title " " module-spec-str))
(list :category nil :module nil :flag (intern module-spec-str))))
(cl-destructuring-bind (category &optional module flag)
@ -167,7 +167,7 @@ exist, and `org-link' otherwise."
(defun +org-link--doom-module-link-face-fn (module-path)
(cl-destructuring-bind (&key category module flag)
(+org-link--read-module-spec module-path)
(if (doom-module-locate-path category module)
(if (and category (doom-module-locate-path category module))
`(:inherit org-priority
:weight bold)
'error)))