summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-08-24 08:31:04 +0000
committerLudovic Court`es2007-08-24 08:31:04 +0000
commitfcb03872ea196c88990e1ce18894bfad20fa7b11 (patch)
tree566181681f2882b1885fc540cfa3d0e76fc92a19 /src/guile
parent8b212eafb7492a5125827c8e1b8279c3a7ed05c9 (diff)
parentc8a16aabaf8725f1358f60b9bf1c734b1012d9e0 (diff)
downloadskribilo-fcb03872ea196c88990e1ce18894bfad20fa7b11.tar.gz
skribilo-fcb03872ea196c88990e1ce18894bfad20fa7b11.tar.lz
skribilo-fcb03872ea196c88990e1ce18894bfad20fa7b11.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-147
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/eq.scm7
-rw-r--r--src/guile/skribilo/package/eq/lout.scm14
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