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 | |
| 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
| -rw-r--r-- | ChangeLog | 14 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 8 |
2 files changed, 20 insertions, 2 deletions
@@ -2,6 +2,20 @@ # arch-tag: automatic-ChangeLog--lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2 # +2006-03-18 18:09:34 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-46 + + Summary: + Lout engine: better handling of the `slides' document type. + Revision: + skribilo--devel--1.2--patch-46 + + * src/guile/skribilo/engine/lout.scm (lout-slides-markup-alist): New. + (lout-structure-markup): Handle `slides'. + + modified files: + ChangeLog src/guile/skribilo/engine/lout.scm + + 2006-03-18 17:25:58 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-45 Summary: 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) |