summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-11 07:30:01 +0000
committerLudovic Court`es2006-10-11 07:30:01 +0000
commit19dffc6bdf3c048312352f2f702dc18c9afb88e6 (patch)
tree622cc21b820e3dd4616890bc9ccba74de6637d8a
parent2995e1109063b227827a2e50e34e42d72da3ece2 (diff)
downloadskribilo-19dffc6bdf3c048312352f2f702dc18c9afb88e6.tar.gz
skribilo-19dffc6bdf3c048312352f2f702dc18c9afb88e6.tar.lz
skribilo-19dffc6bdf3c048312352f2f702dc18c9afb88e6.zip
slide: Propagate the `outline?' parameter in `slide-(sub)?topic'.
* src/guile/skribilo/package/slide.scm (slide-topic): Propagate the `outline?' parameter as an option. (slide-subtopic): Likewise. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-60
-rw-r--r--src/guile/skribilo/package/slide.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm
index 380fdc5..7f731e3 100644
--- a/src/guile/skribilo/package/slide.scm
+++ b/src/guile/skribilo/package/slide.scm
@@ -232,7 +232,8 @@
(markup 'slide-topic)
(required-options '(:title :outline?))
(ident (or ident (symbol->string (gensym 'slide-topic))))
- (options (the-options opt))
+ (options `((:outline? ,outline?)
+ ,@(the-options opt :outline?)))
(body (the-body opt))))
;*---------------------------------------------------------------------*/
@@ -245,7 +246,8 @@
(markup 'slide-subtopic)
(required-options '(:title :outline?))
(ident (or ident (symbol->string (gensym 'slide-subtopic))))
- (options (the-options opt))
+ (options `((:outline? ,outline?)
+ ,@(the-options opt :outline?)))
(body (the-body opt))))