blob: 391518b3b53a8aad82939674b753b47b92136db1 (
plain)
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
|
(use-modules (skribilo package slide))
(document :title (color :fg "red" (sf "Skribilo Slides"))
:author (author :name (it [Bob Smith])
:affiliation [The Organization]
:address (ref :url "http://example.org/"))
(slide :title "Table of Contents" :number #f
;; "Manually" produce a list of the slides. This works by traversing
;; the whole document tree, looking for `slide' nodes.
(p
(resolve (lambda (n e env)
(let ((slides (search-down (lambda (n)
(is-markup? n 'slide))
(ast-document n))))
(itemize
(map (lambda (n)
(item (ref :handle (handle n)
:text (markup-option n :text))))
slides)))))))
(slide :title "Introduction" :vspace 0.3
(p [This is a simple slide, not grouped in any topic.]))
(slide-topic :title "Interactive Features" :outline? #t
(slide :title "X11 Clients" :toc #t :vspace 0.3
(itemize
(item "xlock")
(item "xeyes")
(item "xterm")))
(slide :title "Xclock" :toc #t :vspace 0.3
(center (sf (underline "The Unix xclock client")))
(slide-vspace 0.3)
(slide-pause)
(slide-embed :command "xlock"
:alt (frame "Can't run embedded application")))))
|
