diff options
| author | Ludovic Courtès | 2008-03-03 15:44:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-03-03 15:44:35 +0100 |
| commit | 569391b672f12a742a61f3575ca09660098d7514 (patch) | |
| tree | cbc4107117f07b740bb7ac483f94de2c7c642dde /src/guile/skribilo/package/slide.scm | |
| parent | 60e24026ecf587e203edfed981f5c6347f0c548a (diff) | |
| download | skribilo-569391b672f12a742a61f3575ca09660098d7514.tar.gz skribilo-569391b672f12a742a61f3575ca09660098d7514.tar.lz skribilo-569391b672f12a742a61f3575ca09660098d7514.zip | |
slide: Determine what to include in the outline slide based on `:toc'.
* NEWS: Update. * doc/user/slide.skb: Update. * src/guile/skribilo/package/slide.scm (slide-topic, slide-subtopic): Add `toc' option. * src/guile/skribilo/package/slide/base.scm (make-subtopic-list): Filter topic nodes whose `:toc' is true.
Diffstat (limited to 'src/guile/skribilo/package/slide.scm')
| -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 86cfb90..050ed6a 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -252,7 +252,7 @@ ;* slide-topic ... */ ;*---------------------------------------------------------------------*/ (define-markup (slide-topic :rest opt - :key title (outline? #t) (unfold? #t) + :key title (outline? #t) (unfold? #t) (toc #t) (ident #f) (class #f)) (new container (markup 'slide-topic) @@ -262,6 +262,7 @@ (loc &invocation-location) (options `((:outline? ,outline?) (:unfold? ,unfold?) + (:toc ,toc) ,@(the-options opt :outline? :unfold? :class))) (body (the-body opt)))) @@ -269,7 +270,7 @@ ;* slide-subtopic ... */ ;*---------------------------------------------------------------------*/ (define-markup (slide-subtopic :rest opt - :key title (outline? #f) (unfold? #f) + :key title (outline? #f) (unfold? #f) (toc #t) (ident #f) (class #f)) (new container (markup 'slide-subtopic) @@ -279,6 +280,7 @@ (loc &invocation-location) (options `((:outline? ,outline?) (:unfold? ,unfold?) + (:toc ,toc) ,@(the-options opt :outline? :class))) (body (the-body opt)))) |