summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-12-07 21:09:53 +0100
committerLudovic Courtès2008-12-07 21:09:53 +0100
commit211fac7955fca91cc840a01543758c4e687bc12c (patch)
tree3261319afa44f7ad3dae9e3cab25eb0a04f1dba5
parent9490744cdcabe2a903e2925f266bf373e77bce13 (diff)
downloadskribilo-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.
-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 ... */