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

Added a defective outline.

parent 8565ec00
...@@ -16,6 +16,7 @@ ...@@ -16,6 +16,7 @@
;(define bad-background (bitmap bad-bg-path)) ;(define bad-background (bitmap bad-bg-path))
(require scheme/gui/base) (require scheme/gui/base)
(require slideshow/code)
(define ~ @t{ }) (define ~ @t{ })
...@@ -37,6 +38,38 @@ ...@@ -37,6 +38,38 @@
(lambda (kw kv . l) (lambda (kw kv . l)
(keyword-apply slide kw kv (spacing l))))) (keyword-apply slide kw kv (spacing l)))))
(define outline
(let ([sub-para (lambda l
(para #:width (* 3/4 (current-para-width)) l))])
'one "Part I: Basic Concepts"
'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 (slide
#:title "ASDF 2" #:title "ASDF 2"
@bt{Building Common Lisp software} @bt{Building Common Lisp software}
...@@ -46,6 +79,8 @@ ...@@ -46,6 +79,8 @@
@t{Boston Lisp Meeting, 2010-05-24} @t{Boston Lisp Meeting, 2010-05-24}
@url{}) @url{})
(outline 'one)
(xlide (xlide
#:title "ASDF" #:title "ASDF"
@para{@it{De facto} standard for building CL software} @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