From 19dffc6bdf3c048312352f2f702dc18c9afb88e6 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 11 Oct 2006 07:30:01 +0000
Subject: 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
---
 src/guile/skribilo/package/slide.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

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))))
 
 
-- 
cgit v1.2.3