From 88d3e91ee428367c429a14002a4eb93b754e1ef5 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 12 Mar 2018 13:24:23 -0400 Subject: [PATCH] lang/org: highlight broken file: links with error face --- modules/lang/org/config.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 9b2e7e3ea..4863316fd 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -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)