From 6ad93ae6312bc4ce68dd45e982e32314f80c7e0e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Fri, 30 Nov 2007 21:23:38 +0100
Subject: lout: Use `@M' instead of `@Eq' for special characters.
* src/guile/skribilo/engine/lout.scm (lout-engine): Use `@M' instead of
`@Eq' in the symbol table.
---
src/guile/skribilo/engine/lout.scm | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index a170d7c..e9483dd 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -304,9 +304,9 @@
("Downarrow" ,(sym "arrowdbldown"))
("<=>" ,(sym "arrowdblboth"))
("<==>" "{ { 1.6 1 } @Scale { @Sym arrowdblboth } }")
- ;; Mathematical operators (we try to avoid `@Eq' since it
- ;; requires to `@SysInclude { eq }' -- one solution consists in copying
- ;; the symbol definition from `eqf')
+ ;; Mathematical operators (we try to avoid `@M' since it
+ ;; requires to `@SysInclude { math }' -- one solution consists in copying
+ ;; the symbol definition from `mathf')
("forall" "{ { Symbol Base } @Font \"\\042\" }")
("partial" ,(sym "partialdiff"))
("exists" "{ { Symbol Base } @Font \"\\044\" }")
@@ -757,11 +757,12 @@
:symbol-table (lout-symbol-table
(lambda (m)
;; We don't use `@Sym' because it doesn't
- ;; work within `@Eq'.
+ ;; work within `@M'.
(string-append "{ { Symbol Base } @Font "
"@Char \"" m "\" }"))
(lambda (m)
- (format #f "{ @Eq { ~a } }" m)))))
+ ;; This form requires `@SysInclude { math }'.
+ (format #f "{ @M { ~a } }" m)))))
;; So that calls to `markup-writer' automatically use `lout-engine'...
--
cgit v1.2.3