diff options
| author | Ludovic Court`es | 2006-08-24 13:29:54 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-08-24 13:29:54 +0000 |
| commit | 6b1715f3f4a1d3718d5ec4eebc2f04023e9564be (patch) | |
| tree | ca1981fdbee54d469534b80330d9959e00ef88b1 /src/guile/skribilo/package/slide.scm | |
| parent | 63e2a9629a0dc13ccb8602b8496454233314187d (diff) | |
| download | skribilo-6b1715f3f4a1d3718d5ec4eebc2f04023e9564be.tar.gz skribilo-6b1715f3f4a1d3718d5ec4eebc2f04023e9564be.tar.lz skribilo-6b1715f3f4a1d3718d5ec4eebc2f04023e9564be.zip | |
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
Diffstat (limited to 'src/guile/skribilo/package/slide.scm')
| -rw-r--r-- | src/guile/skribilo/package/slide.scm | 8 |
1 files changed, 6 insertions, 2 deletions
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)))) |