emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]