summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtes2006-03-18 18:09:34 +0000
committerLudovic Courtes2006-03-18 18:09:34 +0000
commitf3134f3a59ef182bb8e65f55898a58ed6da77e36 (patch)
tree057cb5a327ccb496ffcdf4b3b6fb68abafdccd42 /src
parent571d9571a6181139ffed41274d35eadd8a230092 (diff)
downloadskribilo-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.scm8
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)