diff options
| author | Ludovic Courtes | 2006-03-18 18:09:34 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-03-18 18:09:34 +0000 |
| commit | f3134f3a59ef182bb8e65f55898a58ed6da77e36 (patch) | |
| tree | 057cb5a327ccb496ffcdf4b3b6fb68abafdccd42 /src | |
| parent | 571d9571a6181139ffed41274d35eadd8a230092 (diff) | |
| download | skribilo-f3134f3a59ef182bb8e65f55898a58ed6da77e36.tar.gz skribilo-f3134f3a59ef182bb8e65f55898a58ed6da77e36.tar.lz skribilo-f3134f3a59ef182bb8e65f55898a58ed6da77e36.zip | |
Lout engine: better handling of the `slides' document type.
* src/guile/skribilo/engine/lout.scm (lout-slides-markup-alist): New.
(lout-structure-markup): Handle `slides'.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-46
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index cfd58c7..c9c6522 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1008,7 +1008,7 @@ ((slides) (display "@SysInclude { slides }\n")) (else (skribe-error 'lout - "`document-type' should be one of `book', `report' or `doc'" + "`document-type' should be one of `book', `report', `doc' or `slides'" doc-type))) (printf "# Custom document includes\n~a\n" doc-include)) @@ -1271,6 +1271,9 @@ (subsection . "SubSubSection") (subsubsection . #f))) +(define lout-slides-markup-alist + '((slide . "Overhead"))) + (define lout-doc-markup-alist lout-report-markup-alist) (define (lout-structure-markup skribe-markup engine) @@ -1283,9 +1286,10 @@ ((book) (assoc-ref lout-book-markup-alist skribe-markup)) ((report) (assoc-ref lout-report-markup-alist skribe-markup)) ((doc) (assoc-ref lout-doc-markup-alist skribe-markup)) + ((slides) (assoc-ref lout-slides-markup-alist skribe-markup)) (else (skribe-error 'lout - "`document-type' should be one of `book', `report' or `doc'" + "`document-type' should be one of `book', `report', `doc' or `slides'" doc-type))))) (define-public (lout-structure-number-string markup) |