[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/]+\\)*\\)\\(?:>\\|\\]\\)"