awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-18 16:06:49 -05:00
Code Issues Packages Projects Releases Wiki Activity

(feat): add custom face for invalid links (#564)

Browse Source 
* (feat): add custom face for links without destinations

* Rename to ‘invalid’

* Update docstring

* Remove ‘typically’
This commit is contained in:
Leo Vivier
2020-05-04 15:47:27 +02:00
committed by GitHub
parent f6e84caf72
commit 11e15594cc
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
org-roam.el
View File

@@ -671,6 +671,12 @@ ARG is used to forward interactive calls to
"Face for Org-roam links pointing to the current buffer." "Face for Org-roam links pointing to the current buffer."
:group 'org-roam-faces) :group 'org-roam-faces)
(defface org-roam-link-invalid
'((t :inherit (error org-link)))
"Face for Org-roam links that are not valid.
This face is used for links without a destination."
:group 'org-roam-faces)
(defun org-roam--in-buffer-p () (defun org-roam--in-buffer-p ()
"Return t if in the Org-roam buffer." "Return t if in the Org-roam buffer."
(and (boundp org-roam-backlinks-mode) (and (boundp org-roam-backlinks-mode)
@@ -697,7 +703,7 @@ currently opened Org-roam file in the backlink buffer, or
`org-roam-link-face' if PATH corresponds to any other Org-roam `org-roam-link-face' if PATH corresponds to any other Org-roam
file." file."
(cond ((not (file-exists-p path)) (cond ((not (file-exists-p path))
'error) 'org-roam-link-invalid)
((and (org-roam--in-buffer-p) ((and (org-roam--in-buffer-p)
(org-roam--backlink-to-current-p)) (org-roam--backlink-to-current-p))
'org-roam-link-current) 'org-roam-link-current)