diff options
| author | Ludovic Court`es | 2006-10-11 07:30:01 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-11 07:30:01 +0000 |
| commit | 19dffc6bdf3c048312352f2f702dc18c9afb88e6 (patch) | |
| tree | 622cc21b820e3dd4616890bc9ccba74de6637d8a | |
| parent | 2995e1109063b227827a2e50e34e42d72da3ece2 (diff) | |
| download | skribilo-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.scm | 6 |
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)))) |