aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/package/eq.scm12
-rw-r--r--src/guile/skribilo/package/eq/lout.scm2
2 files changed, 7 insertions, 7 deletions
diff --git a/src/guile/skribilo/package/eq.scm b/src/guile/skribilo/package/eq.scm
index 7ad39d8..8b4d325 100644
--- a/src/guile/skribilo/package/eq.scm
+++ b/src/guile/skribilo/package/eq.scm
@@ -19,7 +19,7 @@
;;; USA.
(define-module (skribilo package eq)
- :autoload (skribilo ast) (markup? find-up)
+ :autoload (skribilo ast) (markup? find1-up)
:autoload (skribilo output) (output)
:use-module (skribilo writer)
:use-module (skribilo engine)
@@ -124,9 +124,9 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g.,
(let ((i (markup-option m :inline?)))
(case i
((auto)
- (not (find-up (lambda (n)
- (is-markup? n 'eq-display))
- m)))
+ (not (find1-up (lambda (n)
+ (is-markup? n 'eq-display))
+ m)))
((#t) #t)
(else #f)))))
@@ -217,9 +217,9 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g.,
(class class)
(loc &invocation-location)
(options `((:div-style ,div-style) (:align-with ,align-with)
- (:mul-style ,mul-style)
+ (:mul-style ,mul-style) (:inline? ,inline?)
,@(the-options opts
- :ident :class
+ :ident :class :inline?
:div-style :mul-style :align-with)))
(body (let loop ((body (the-body opts))
(result '()))
diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm
index 5633ae4..d0d9570 100644
--- a/src/guile/skribilo/package/eq/lout.scm
+++ b/src/guile/skribilo/package/eq/lout.scm
@@ -66,7 +66,7 @@
"\n@IAD " ""))))
:action (lambda (node engine)
(display (if (inline-equation? node)
- "@E { "
+ "@OneRow @OneCol @E { "
"@Eq { "))
(let ((eq (markup-body node)))
;;(fprint (current-error-port) "eq=" eq)