diff options
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 30 |
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 ... */ |