[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote 8d3590027b 1/4: Use a face for 'denote:' links
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote 8d3590027b 1/4: Use a face for 'denote:' links |
Date: |
Thu, 4 Aug 2022 06:57:29 -0400 (EDT) |
branch: externals/denote
commit 8d3590027b0666f04659bf906f5008d173f8d5c8
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Use a face for 'denote:' links
This lets the user style them differently than ordinary links.
Thanks to Peter Prevos for the request on the mailing list:
<https://lists.sr.ht/~protesilaos/denote/%3C03618bb20d3eaba78c32cd0cb63bfc71@prevos.net%3E>.
---
denote.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/denote.el b/denote.el
index 7b4a2d17e7..db46bed3b8 100644
--- a/denote.el
+++ b/denote.el
@@ -1383,6 +1383,11 @@ The operation does the following:
"Faces for Denote."
:group 'denote)
+
+(defface denote-faces-link '((t :inherit link))
+ "Face used to style Denote links in the buffer."
+ :group 'denote-faces)
+
(defface denote-faces-subdirectory
'((t :inherit bold))
"Face for subdirectory of file name.
@@ -1657,6 +1662,7 @@ format is always [[denote:IDENTIFIER]]."
;; not need it.
(define-button-type 'denote-link-button
'follow-link t
+ 'face 'denote-faces-link
'action #'denote-link--find-file-at-button)
(autoload 'thing-at-point-looking-at "thingatpt")
@@ -1971,6 +1977,7 @@ backend."
(org-link-set-parameters
"denote"
:follow #'denote-link-ol-follow
+ :face 'denote-faces-link
:complete #'denote-link-ol-complete
:export #'denote-link-ol-export)))))