Commit 28725592 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Added a defective outline.

parent 8565ec00
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment