diff options
| -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 |