1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
;*=====================================================================*/
;* serrano/prgm/project/skribe/doc/user/slide.skb */
;* ------------------------------------------------------------- */
;* Author : Manuel Serrano */
;* Creation : Fri Jan 9 06:37:47 2004 */
;* Last change : Thu Feb 26 21:00:04 2004 (eg) */
;* Copyright : 2004 Manuel Serrano */
;* ------------------------------------------------------------- */
;* Slides */
;*=====================================================================*/
(skribe-load "slide.skr")
;*---------------------------------------------------------------------*/
;* Computer programs */
;*---------------------------------------------------------------------*/
(chapter :title "Slide Package"
(p [
This chapter describes the facilities Skribe offers authoring slides.
In order to access the functionalities described in this chapter, it
is require to introduce a ,(code [(skribe-load "slides.skr")]) expression
at the beginning of the document. The Slide package supports two
,(markup-ref "skribe-load") user options: ,(param :advi) and ,(param :prosper).
The first one tells Skribe to generate slides for the Advi presenter. The
second one tells Skribe to generate slides for the LaTeX prosper package.])
;*---------------------------------------------------------------------*/
;* slide ... @label slide@ */
;*---------------------------------------------------------------------*/
(section :title "Slide"
(p [A ,(code "slide") function call creates a slide.])
(doc-markup 'slide
`((:title [The title of the slide.])
(:number [The number of the slide (a boolean or an integer).])
(:toc [This argument controls if the slide must
be referenced in the ,(mark :mark "toc" "table of contents").])
(:vspace [The boolean ,(code "#f") or an integer representing
the vertical space size between the title and the body of the slide.])
(:vfill [A boolean that is used to control whether a LaTeX
,(code "\\vfill") is issued at the end of the slide.])
(:transition [The boolean ,(code "#f") or a symbol in the
list ,(code "(split blinds box wipe dissolve glitter)").])
(:bg [The background color of the slide.])
(:image [The background image of the slide.]))
:source "../skr/slide.skr"))
;*---------------------------------------------------------------------*/
;* slide-pause */
;*---------------------------------------------------------------------*/
(section :title "Pause"
(p [A ,(code "slide-pause") function call introduces a pause in the slide
projection.])
(doc-markup 'slide-pause
'()
:common-args '()
:source "../skr/slide.skr"))
;*---------------------------------------------------------------------*/
;* slide-vspace ... */
;*---------------------------------------------------------------------*/
(section :title "Slide Vertical Space"
(p [The ,(code "slide-vspace") introduces a vertical space in the slide.])
(doc-markup 'slide-vspace
'((:unit [The unit of the space.])
(#!rest val [The size of the vertical space.]))
:common-args '()
:source "../skr/slide.skr"))
;*---------------------------------------------------------------------*/
;* slide-embed ... */
;*---------------------------------------------------------------------*/
(section :title "Slide Embed Applications"
(p [Embed an application inside a slide.])
(doc-markup 'slide-embed
`((:command [The binary file for running the embedded
application.])
(:geometry-opt [The name of the geometry option to be sent
to the embedded application.])
(:geometry [The geometry value to be sent.])
(:rgeometry [A relative geometry to be sent.])
(:transient-opt [The name of the transient option to be sent
to the embedded application.])
(:transient [The transient value to be sent.])
(:alt [An alternative Skribe expression to be used if the
output format does not support embedded application.]))
:common-args '()
:source "../skr/slide.skr"))
;*---------------------------------------------------------------------*/
;* Example */
;*---------------------------------------------------------------------*/
(section :title "Example"
(p [Here is a complete example of Skribe slides:])
(if (and (engine-format? "html")
(not (equal? (engine-custom html-engine 'html-variant) "html4")))
;; Show the example and its result
(example-produce
(example :legend "Example of Skribe slides"
(prgm :file "src/slides.skb"))
(disp (include "src/slides.skb")))
;; Show only the example (i.e. don't produce a document in a document)
(example :legend "Example of Skribe slides"
(prgm :file "src/slides.skb")))))
|
