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

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

[elpa] externals/org-modern 83a45ecb01 2/5: Rename link to target


From: ELPA Syncer
Subject: [elpa] externals/org-modern 83a45ecb01 2/5: Rename link to target
Date: Sun, 5 Jun 2022 06:57:43 -0400 (EDT)

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

    Rename link to target
---
 org-modern.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 5ab0a88b08..29348f3020 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -178,11 +178,11 @@ used as replacement for \"#+keyword:\", with t the 
default key."
   "Prettify footnotes."
   :type '(choice (const nil) sexp))
 
-(defcustom org-modern-internal-link '(" ↪ " t " ")
+(defcustom org-modern-internal-target '(" ↪ " t " ")
   "Prettify internal link targets, e.g., <<introduction>>."
   :type '(choice (const nil) (list string boolean string)))
 
-(defcustom org-modern-radio-link '(" ⛯ " t " ")
+(defcustom org-modern-radio-target '(" ⛯ " t " ")
   "Prettify radio link targets, e.g., <<<radio>>>."
   :type '(choice (const nil) (list string boolean string)))
 
@@ -225,11 +225,11 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
     (t :foreground "white"))
   "Face used for tag labels.")
 
-(defface org-modern-internal-link
+(defface org-modern-internal-target
   '((t :inherit org-modern-done))
   "Face used for internal link targets.")
 
-(defface org-modern-radio-link
+(defface org-modern-radio-target
   '((t :inherit org-modern-done))
   "Face used for radio link targets.")
 
@@ -574,23 +574,23 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
         `(("\\(\\[fn:\\)[^]]+\\]"
            (0 '(face nil display ,org-modern-footnote))
            (1 '(face nil display ,(propertize "[" 'display 
org-modern-footnote))))))
-      (when org-modern-internal-link
+      (when org-modern-internal-target
         `(("\\(<<\\)\\([^<][^\n]*?\\)\\(>>\\)"
-           (0 '(face org-modern-internal-link) t)
-           (1 '(face nil display ,(propertize (car org-modern-internal-link)
+           (0 '(face org-modern-internal-target) t)
+           (1 '(face nil display ,(propertize (car org-modern-internal-target)
                                               'face 'org-modern-symbol)))
-           (3 '(face nil display ,(propertize (caddr org-modern-internal-link)
+           (3 '(face nil display ,(propertize (caddr 
org-modern-internal-target)
                                               'face 'org-modern-symbol)))
-           ,@(unless (cadr org-modern-internal-link)
+           ,@(unless (cadr org-modern-internal-target)
                '((2 '(face nil invisible t)))))))
-      (when org-modern-radio-link
+      (when org-modern-radio-target
         `(("\\(<<<\\)\\([^\n]+?\\)\\(>>>\\)"
-           (0 '(face org-modern-radio-link) t)
-           (1 '(face nil display ,(propertize (car org-modern-radio-link)
+           (0 '(face org-modern-radio-target) t)
+           (1 '(face nil display ,(propertize (car org-modern-radio-target)
                                               'face 'org-modern-symbol)))
-           (3 '(face nil display ,(propertize (caddr org-modern-radio-link)
+           (3 '(face nil display ,(propertize (caddr org-modern-radio-target)
                                               'face 'org-modern-symbol)))
-           ,@(unless (cadr org-modern-radio-link)
+           ,@(unless (cadr org-modern-radio-target)
                '((2 '(face nil invisible t)))))))
       (when org-modern-timestamp
         '(("\\(?:<\\|\\[\\)\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\(?: 
[[:word:]]+\\)?\\(?: [.+-]+[0-9ymwdh/]+\\)*\\)\\(\\(?: [0-9:-]+\\)?\\(?: 
[.+-]+[0-9ymwdh/]+\\)*\\)\\(?:>\\|\\]\\)"



reply via email to

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