aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/info.scm30
1 files changed, 16 insertions, 14 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index fa4fe5c..8647db3 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -343,17 +343,17 @@
;*---------------------------------------------------------------------*/
;* *ornaments* ... */
;*---------------------------------------------------------------------*/
-(define *ornaments*
- `((bold "{\\textbf{" "}}")
- (emph "*" "*")
- (underline "_" "_")
- (it "{\\textit{" "}}")
- (samp "{\\textit{" "}}")
- (sc "{\\sc{" "}}")
- (sup "^" "")
- (sub "_" "")
- (code "`" "'")
- (samp "`" "'")))
+(define %ornaments
+ `((bold "*" "*")
+ (emph "_" "_")
+ (underline "*" "*")
+ (it "_" "_")
+ (samp "_" "_")
+ (sc "" "")
+ (sup "^" "")
+ (sub "_" "")
+ (code "`" "'")
+ (samp "`" "'")))
;*---------------------------------------------------------------------*/
;* info ::%ornament ... */
@@ -363,9 +363,11 @@
(before (cadr ornament))
(after (caddr ornament)))
(markup-writer name info-engine
- :before before
- :after after)))
- *ornaments*)
+ :before (lambda (n e)
+ (output-justified before))
+ :after (lambda (n e)
+ (output-justified after)))))
+ %ornaments)
;*---------------------------------------------------------------------*/
;* info ::%pre ... */