diff options
| author | Ludovic Courtès | 2007-11-30 21:23:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-11-30 21:23:38 +0100 |
| commit | 6ad93ae6312bc4ce68dd45e982e32314f80c7e0e (patch) | |
| tree | 0e72d28e742dad04a18d7d9ae9cf3a782c7a57a4 | |
| parent | 03d382c571b169482846a501933a95391ac2764b (diff) | |
| download | skribilo-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.scm | 11 |
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'... |