diff options
author | Ludovic Courtes | 2006-12-02 10:40:47 +0000 |
---|---|---|
committer | Ludovic Courtes | 2006-12-02 10:40:47 +0000 |
commit | 81f9b6cae9be169cf0723434dc629d75a37595a7 (patch) | |
tree | 46bd26814327edb5437bba33a0b210ea27f74f18 /src/guile/skribilo/package/eq.scm | |
parent | 80b757fc4bf93f59edde426b9fca4dcca15509c3 (diff) | |
download | skribilo-81f9b6cae9be169cf0723434dc629d75a37595a7.tar.gz skribilo-81f9b6cae9be169cf0723434dc629d75a37595a7.tar.lz skribilo-81f9b6cae9be169cf0723434dc629d75a37595a7.zip |
eq: Added the `:div-style' option.
* src/guile/skribilo/package/eq.scm (eq): New `:div-style' option.
Return a container rather than a markup.
(eq:/): Added support for `:div-style'.
* src/guile/skribilo/package/eq/lout.scm (eq): List `:div-style' as
supported.
(div-style->lout): New.
(simple-lout-markup-writer): Handle LOUT-NAME as procedure.
(eq:/): Use the `:div-style' option.
(eq:script): Only use "on" when SUP is passed.
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-22
Diffstat (limited to 'src/guile/skribilo/package/eq.scm')
-rw-r--r-- | src/guile/skribilo/package/eq.scm | 22 |
1 files changed, 17 insertions, 5 deletions
diff --git a/src/guile/skribilo/package/eq.scm b/src/guile/skribilo/package/eq.scm index 4f5020e..58fb77c 100644 --- a/src/guile/skribilo/package/eq.scm +++ b/src/guile/skribilo/package/eq.scm @@ -169,12 +169,15 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., ;;; Markup. ;;; -(define-markup (eq :rest opts :key (ident #f) (inline? #f) - (renderer #f) (class "eq")) - (new markup +(define-markup (eq :rest opts :key (ident #f) (class "eq") + (inline? #f) + (renderer #f) (div-style 'over)) + (new container (markup 'eq) (ident (or ident (symbol->string (gensym "eq")))) - (options (the-options opts)) + (class class) + (options `((:div-style ,div-style) + ,@(the-options opts :ident :class :div-style))) (body (let loop ((body (the-body opts)) (result '())) (if (null? body) @@ -187,7 +190,16 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., ;; passed )))))) -(define-simple-markup eq:/) +(define-markup (eq:/ :rest opts :key (ident #f) (div-style #f)) + ;; If no `:div-style' is specified here, obey the top-level one. + (new markup + (markup 'eq:/) + (ident (or ident (symbol->string (gensym "eq:/")))) + (class #f) + (options `((:div-style ,div-style) + ,@(the-options opts :ident :class :div-style))) + (body (the-body opts)))) + (define-simple-markup eq:*) (define-simple-markup eq:+) (define-simple-markup eq:-) |