Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
ilc2010
Commits
28725592
Commit
28725592
authored
Sep 30, 2010
by
Robert P. Goldman
Browse files
Added a defective outline.
parent
8565ec00
Changes
1
Hide whitespace changes
Inline
Side-by-side
ilc2010-presentation.rkt
View file @
28725592
...
...
@@ -16,6 +16,7 @@
;(define bad-background (bitmap bad-bg-path))
(
require
scheme/gui/base
)
(
require
slideshow/code
)
(
define
~
@t
{
})
...
...
@@ -37,6 +38,38 @@
(
lambda
(
kw
kv
.
l
)
(
keyword-apply
slide
kw
kv
(
spacing
l
)))))
(
define
outline
(
let
([
sub-para
(
lambda
l
(
para
#:width
(
*
3
/4
(
current-para-width
))
l
))])
(
make-outline
'one
"Part I: Basic Concepts"
#f
'two
"Part II: Practical Slides"
(
lambda
(
tag
)
(
sub-para
"Using"
(
code
make-outline
)
"and more..."
))
'three
"Part III: Fancy Picts"
(
lambda
(
tag
)
(
sub-para
"Creating interesting graphics"
))
'four
"Part IV: Advanced Slides"
(
lambda
(
tag
)
(
sub-para
"Beyond"
(
code
'next
)
"and"
(
code
'alts
)))
'background
"Part V: Controlling the Background"
(
lambda
(
tag
)
(
sub-para
"Changing the overall look of your talk"
))
'printing
"Part VI: Printing"
(
lambda
(
tag
)
(
sub-para
"Exporting slides as PostScript"
))
'end
"Conclusion"
(
lambda
(
tag
)
(
sub-para
"This is the end"
)))))
(
slide
#:title
"ASDF 2"
@bt
{
Building
Common
Lisp
software
}
...
...
@@ -46,6 +79,8 @@
@t
{
Boston
Lisp
Meeting
,
2010-05-24
}
@url
{
http://fare
.
tunes
.
org/computing/asdf2
.
ss
})
(
outline
'one
)
(
xlide
#:title
"ASDF"
@para
{
@it
{
De
facto
}
standard
for
building
CL
software
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment