diff options
| author | Ludovic Court`es | 2006-10-25 15:04:52 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-25 15:04:52 +0000 |
| commit | 6a06d0449967e85c3aa806736e1a27c9db99db71 (patch) | |
| tree | 2ae7c22c943daf6210294e83e4a95b4ed3315d1c /src/guile/skribilo/package/slide.scm | |
| parent | 3fb6f9a17400d8365519e05a79f09c6c1322eedd (diff) | |
| download | skribilo-6a06d0449967e85c3aa806736e1a27c9db99db71.tar.gz skribilo-6a06d0449967e85c3aa806736e1a27c9db99db71.tar.lz skribilo-6a06d0449967e85c3aa806736e1a27c9db99db71.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-10
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)))) |