summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2007-11-30 21:23:38 +0100
committerLudovic Courtès2007-11-30 21:23:38 +0100
commit6ad93ae6312bc4ce68dd45e982e32314f80c7e0e (patch)
tree0e72d28e742dad04a18d7d9ae9cf3a782c7a57a4
parent03d382c571b169482846a501933a95391ac2764b (diff)
downloadskribilo-6ad93ae6312bc4ce68dd45e982e32314f80c7e0e.tar.gz
skribilo-6ad93ae6312bc4ce68dd45e982e32314f80c7e0e.tar.lz
skribilo-6ad93ae6312bc4ce68dd45e982e32314f80c7e0e.zip
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.
-rw-r--r--src/guile/skribilo/engine/lout.scm11
1 files 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'...