branch: externals/org-modern
commit acaaa30f31fe2f1d1b2c77795672291ff0d9d0a2
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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)
