diff options
| author | Ludovic Court`es | 2006-10-25 12:41:54 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-25 12:41:54 +0000 |
| commit | 43d1ade366511da4dfd6af3f507a6713fb1ef0e7 (patch) | |
| tree | 2ae7c22c943daf6210294e83e4a95b4ed3315d1c /src/guile/skribilo/package/slide.scm | |
| parent | 85ce5551bc2af12450d10527f925181bd048e6bc (diff) | |
| download | skribilo-43d1ade366511da4dfd6af3f507a6713fb1ef0e7.tar.gz skribilo-43d1ade366511da4dfd6af3f507a6713fb1ef0e7.tar.lz skribilo-43d1ade366511da4dfd6af3f507a6713fb1ef0e7.zip | |
slide: Improved HTML output, especially wrt. the use of CSS.
* src/guile/skribilo/package/slide.scm (slide-topic): Pass CLASS as the `class' slot rather than as an option. (slide-subtopic): Likewise. * src/guile/skribilo/package/slide/base.scm (make-outline-slide): Use `(markup-class topic)' instead of `(markup-option topic :class)'. * src/guile/skribilo/package/slide/html.scm: Use a native Guile module. Use `format' instead of `printf'. (%slide-html-initialize): Simply issue `div' tags when a class is specified. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-69
Diffstat (limited to 'src/guile/skribilo/package/slide.scm')
| -rw-r--r-- | src/guile/skribilo/package/slide.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index c0a8473..898f105 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -228,13 +228,14 @@ ;*---------------------------------------------------------------------*/ (define-markup (slide-topic #!rest opt #!key title (outline? #t) - (ident #f) (class "slide-topic")) + (ident #f) (class #f)) (new container (markup 'slide-topic) (required-options '(:title :outline?)) (ident (or ident (symbol->string (gensym 'slide-topic)))) + (class class) (options `((:outline? ,outline?) - ,@(the-options opt :outline?))) + ,@(the-options opt :outline? :class))) (body (the-body opt)))) ;*---------------------------------------------------------------------*/ @@ -242,13 +243,14 @@ ;*---------------------------------------------------------------------*/ (define-markup (slide-subtopic #!rest opt #!key title (outline? #f) - (ident #f) (class "slide-subtopic")) + (ident #f) (class #f)) (new container (markup 'slide-subtopic) (required-options '(:title :outline?)) (ident (or ident (symbol->string (gensym 'slide-subtopic)))) + (class class) (options `((:outline? ,outline?) - ,@(the-options opt :outline?))) + ,@(the-options opt :outline? :class))) (body (the-body opt)))) |