diff options
| author | Ludovic Courtès | 2010-11-07 22:30:48 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2010-11-07 22:30:48 +0100 |
| commit | fb8d006c8480587e216c34777c132c766344970f (patch) | |
| tree | b944f8a9cac66efb6e79b3fb914034ec273408d6 | |
| parent | c8c67b39bb0ee3147a1fcfef9716c79034c073df (diff) | |
| download | skribilo-fb8d006c8480587e216c34777c132c766344970f.tar.gz skribilo-fb8d006c8480587e216c34777c132c766344970f.tar.lz skribilo-fb8d006c8480587e216c34777c132c766344970f.zip | |
eq: lout: Honor `:inline?' when it's not `auto'.
* src/guile/skribilo/package/eq/lout.scm (eq): Honor `:inline?' when
it's not `auto'.
| -rw-r--r-- | src/guile/skribilo/package/eq/lout.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm index d7571c4..336ee31 100644 --- a/src/guile/skribilo/package/eq/lout.scm +++ b/src/guile/skribilo/package/eq/lout.scm @@ -1,6 +1,6 @@ ;;; lout.scm -- Lout implementation of the `eq' package. ;;; -;;; Copyright 2005, 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2006, 2007, 2008, 2010 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -59,9 +59,11 @@ (markup-writer 'eq (find-engine 'lout) :options '(:inline? :align-with :div-style :mul-style :number) :before (lambda (node engine) - (let* ((parent (ast-parent node)) - (displayed? (is-markup? parent 'eq-display)) - (number (equation-number-string node))) + (let ((displayed? (case (markup-option node :inline?) + ((auto) (is-markup? (ast-parent node) + 'eq-display)) + (else (not (markup-option node :inline?))))) + (number (equation-number-string node))) ;; Note: The `@BypassNumber' option appeared in Lout 3.36. (if (and displayed? (not (*embedded-renderer*))) (display (if (string? number) |