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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-modern 4982a63926: org-modern-radio-link/org-modern


From: ELPA Syncer
Subject: [elpa] externals/org-modern 4982a63926: org-modern-radio-link/org-modern-internal-link: Use org-modern-symbol face
Date: Sat, 4 Jun 2022 06:57:41 -0400 (EDT)

branch: externals/org-modern
commit 4982a63926aae047d24c22f089314731ad84839d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    org-modern-radio-link/org-modern-internal-link: Use org-modern-symbol face
---
 org-modern.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 611209282e..737544e439 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -569,15 +569,19 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
       (when org-modern-internal-link
         `(("\\(<<\\)\\([^<][^\n]*?\\)\\(>>\\)"
            (0 '(face org-modern-internal-link) t)
-           (1 '(face nil display ,(car org-modern-internal-link)))
-           (3 '(face nil display ,(caddr org-modern-internal-link)))
+           (1 '(face nil display ,(propertize (car org-modern-internal-link)
+                                              'face 'org-modern-symbol)))
+           (3 '(face nil display ,(propertize (caddr org-modern-internal-link)
+                                              'face 'org-modern-symbol)))
            ,@(unless (cadr org-modern-internal-link)
                '((2 '(face nil invisible t)))))))
       (when org-modern-radio-link
         `(("\\(<<<\\)\\([^\n]+?\\)\\(>>>\\)"
            (0 '(face org-modern-radio-link) t)
-           (1 '(face nil display ,(car org-modern-radio-link)))
-           (3 '(face nil display ,(caddr org-modern-radio-link)))
+           (1 '(face nil display ,(propertize (car org-modern-radio-link)
+                                              'face 'org-modern-symbol)))
+           (3 '(face nil display ,(propertize (caddr org-modern-radio-link)
+                                              'face 'org-modern-symbol)))
            ,@(unless (cadr org-modern-radio-link)
                '((2 '(face nil invisible t)))))))
       (when org-modern-timestamp



reply via email to

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