diff options
| author | Ludovic Courtès | 2008-12-07 21:09:53 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-12-07 21:09:53 +0100 |
| commit | 211fac7955fca91cc840a01543758c4e687bc12c (patch) | |
| tree | 3261319afa44f7ad3dae9e3cab25eb0a04f1dba5 /src/guile | |
| parent | 9490744cdcabe2a903e2925f266bf373e77bce13 (diff) | |
| download | skribilo-211fac7955fca91cc840a01543758c4e687bc12c.tar.gz skribilo-211fac7955fca91cc840a01543758c4e687bc12c.tar.lz skribilo-211fac7955fca91cc840a01543758c4e687bc12c.zip | |
info: Fix ornaments.
* src/guile/skribilo/engine/info.scm (%ornaments): Remove LaTeXisms.
Use `output-justified' when outputting ornaments.
Diffstat (limited to 'src/guile')
| -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 ... */ |