diff options
author | Ludovic Court`es | 2007-08-23 15:14:13 +0000 |
---|---|---|
committer | Ludovic Court`es | 2007-08-23 15:14:13 +0000 |
commit | c8a16aabaf8725f1358f60b9bf1c734b1012d9e0 (patch) | |
tree | e963d99a20fac5700cc0628044d50b2c8b8a68dd /src/guile | |
parent | ec5596d48ae42a7b2f883f5c1086a69494aa27d1 (diff) | |
download | skribilo-c8a16aabaf8725f1358f60b9bf1c734b1012d9e0.tar.gz skribilo-c8a16aabaf8725f1358f60b9bf1c734b1012d9e0.tar.lz skribilo-c8a16aabaf8725f1358f60b9bf1c734b1012d9e0.zip |
`eq' package: Switched to Lout's `@Math'.
* src/guile/skribilo/package/eq.scm (*use-lout-eq2?*): Renamed to...
(*use-lout-math?*): Default to `#t' since `@Math' is now part of Lout,
from version 3.36.
* src/guile/skribilo/package/eq/lout.scm: Updated accordingly.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-89
Diffstat (limited to 'src/guile')
-rw-r--r-- | src/guile/skribilo/package/eq.scm | 7 | ||||
-rw-r--r-- | src/guile/skribilo/package/eq/lout.scm | 14 |
2 files changed, 13 insertions, 8 deletions
diff --git a/src/guile/skribilo/package/eq.scm b/src/guile/skribilo/package/eq.scm index 31b297d..a9a64c1 100644 --- a/src/guile/skribilo/package/eq.scm +++ b/src/guile/skribilo/package/eq.scm @@ -60,9 +60,10 @@ ;; native engine. (make-parameter #f)) -(define-public *use-lout-eq2?* - ;; Whether the use the new Lout `eq2' package instead of `eq'. - (make-parameter #f)) +(define-public *use-lout-math?* + ;; Whether the use the Lout's `math' package (new in Lout 3.36) instead + ;; of `eq'. + (make-parameter #t)) (define %operators diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm index 577f6da..ce478f7 100644 --- a/src/guile/skribilo/package/eq/lout.scm +++ b/src/guile/skribilo/package/eq/lout.scm @@ -44,7 +44,7 @@ (engine-custom-set! lout 'includes (string-append includes "\n" "@SysInclude { " - (if (*use-lout-eq2?*) "eq2" "eq") + (if (*use-lout-math?*) "math" "eq") " }\n"))))) @@ -71,8 +71,12 @@ (display "{ "))) :action (lambda (node engine) (display (if (inline-equation? node) - "@OneRow @OneCol @E { " - "@Eq { ")) + (if (*use-lout-math?*) + "@M { " + "@OneRow @OneCol @E { ") + (if (*use-lout-math?*) + "@Math { " + "@Eq { "))) (let ((eq (markup-body node))) ;;(fprint (current-error-port) "eq=" eq) (output eq engine))) @@ -240,7 +244,7 @@ (var (markup-option node :var)) (limit (markup-option node :limit))) (format #t "{ lim ~a { { " - (if (*use-lout-eq2?*) + (if (*use-lout-math?*) "atop @SubScriptStyle" "from")) (output var engine) @@ -273,7 +277,7 @@ (to (markup-option node :to)) (body (markup-body node))) (display ,(string-append " { " - (if (*use-lout-eq2?*) + (if (*use-lout-math?*) "" "big ") lout-name |