From 6b1715f3f4a1d3718d5ec4eebc2f04023e9564be Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Thu, 24 Aug 2006 13:29:54 +0000 Subject: slide: Added a `:class' argument to (sub)topics. * src/guile/skribilo/package/slide.scm (slide-topic): Added a `class' argument. Specified the required options. (slide-subtopic): Likewise. * src/guile/skribilo/package/slide/base.scm (make-topic-slide): Renamed to `make-outline-slide'. Pass `:class' with the topic's class to `slide'. (slide-topic): Added `:options'. (slide-subtopic): New writer. * src/guile/skribilo/package/slide/html.scm (slide-topic): Added `:options'. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-45 --- src/guile/skribilo/package/slide.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/guile/skribilo/package/slide.scm') diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index 5a5f73d..380fdc5 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -226,9 +226,11 @@ ;* slide-topic ... */ ;*---------------------------------------------------------------------*/ (define-markup (slide-topic #!rest opt - #!key (outline? #t) (title "") (ident #f)) + #!key title (outline? #t) + (ident #f) (class "slide-topic")) (new container (markup 'slide-topic) + (required-options '(:title :outline?)) (ident (or ident (symbol->string (gensym 'slide-topic)))) (options (the-options opt)) (body (the-body opt)))) @@ -237,9 +239,11 @@ ;* slide-subtopic ... */ ;*---------------------------------------------------------------------*/ (define-markup (slide-subtopic #!rest opt - #!key (outline? #f) (title "") (ident #f)) + #!key title (outline? #f) + (ident #f) (class "slide-subtopic")) (new container (markup 'slide-subtopic) + (required-options '(:title :outline?)) (ident (or ident (symbol->string (gensym 'slide-subtopic)))) (options (the-options opt)) (body (the-body opt)))) -- cgit 1.4.1