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

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

[elpa] externals/org-modern acaaa30f31 6/6: Improve org-modern-footnote


From: ELPA Syncer
Subject: [elpa] externals/org-modern acaaa30f31 6/6: Improve org-modern-footnote handling
Date: Sun, 5 Jun 2022 07:57:44 -0400 (EDT)

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

    Improve org-modern-footnote handling
---
 org-modern.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 620374b73a..d7c7fc9b43 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -574,11 +574,15 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
            (0 (org-modern--tag)))))
       (when org-modern-footnote
         `(("^\\(\\[fn:\\)[[:word:]-_]+\\]" ;; Definition
-           (0 '(face nil display ,(car org-modern-footnote)))
-           (1 '(face nil display ,(propertize "[" 'display (car 
org-modern-footnote)))))
+           ,@(if-let (x (car org-modern-footnote))
+                 `((0 '(face nil display ,x))
+                   (1 '(face nil display ,(propertize "[" 'display x))))
+               '((1 '(face nil display "[")))))
           ("[^\n]\\(\\(\\[fn:\\)[[:word:]-_]+\\]\\)" ;; Reference
-           (1 '(face nil display ,(cdr org-modern-footnote)))
-           (2 '(face nil display ,(propertize "[" 'display (cdr 
org-modern-footnote)))))))
+           ,@(if-let (x (cdr org-modern-footnote))
+                 `((1 '(face nil display ,x))
+                   (2 '(face nil display ,(propertize "[" 'display x))))
+               '((2 '(face nil display "[")))))))
       (when org-modern-internal-target
         `(("\\(<<\\)\\([^<][^\n]*?\\)\\(>>\\)"
            (0 '(face org-modern-internal-target) t)



reply via email to

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