summaryrefslogtreecommitdiff
path: root/module/texinfo/plain-text.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/texinfo/plain-text.scm')
-rw-r--r--module/texinfo/plain-text.scm13
1 files changed, 12 insertions, 1 deletions
diff --git a/module/texinfo/plain-text.scm b/module/texinfo/plain-text.scm
index 6b7885ada..5ea99c86b 100644
--- a/module/texinfo/plain-text.scm
+++ b/module/texinfo/plain-text.scm
@@ -198,6 +198,16 @@
(define (var tag . body)
(string-upcase (stexi->plain-text body)))
+(define (acronym tag . elts)
+ (match elts
+ ((('% ('acronym text)))
+ (stexi->plain-text text))
+ ((('% ('acronym text) ('meaning . body)))
+ (string-append (stexi->plain-text text)
+ " ("
+ (string-concatenate (map stexi->plain-text body))
+ ")"))))
+
(define (passthrough tag . body)
(stexi->plain-text body))
@@ -246,7 +256,8 @@
(url ,code)
(dfn ,(make-surrounder "\""))
(cite ,(make-surrounder "\""))
- (acro ,passthrough)
+ (acro ,acronym) ;XXX: useless?
+ (acronym ,acronym)
(email ,key)
(emph ,(make-surrounder "_"))
(sc ,var)