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

lang/org: highlight broken file: links with error face

Browse Source
This commit is contained in:
Henrik Lissner
2018-03-12 13:24:23 -04:00
parent 62025c8107
commit 88d3e91ee4
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/lang/org/config.el
View File

@ -199,6 +199,13 @@ unfold to point on startup."
(file-relative-name path)
path))
;; highlight broken links
(org-link-set-parameters
"file"
:face (lambda (path)
(unless (file-remote-p path)
(if (file-exists-p path) 'org-link 'error))))
(defmacro def-org-file-link! (key dir)
`(org-link-set-parameters
,key
@ -207,7 +214,7 @@ unfold to point on startup."
:face (lambda (link)
(if (file-exists-p (expand-file-name link ,dir))
'org-link
'(:inherit (error underline))))))
'error))))
(def-org-file-link! "org" +org-dir)
(def-org-file-link! "doom" doom-emacs-dir)