Commit 82fe9598 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Trivial changes in comments and whitespace

parent 28725592
#lang at-exp slideshow
@(begin
;; Slides for lightning talk about ASDF2, 2010-05-24
;; http://fare.tunes.org/computing/asdf2.ss
;; Slides for lightning talk about ASDF2, 2010-10-18
;; http://www.common-lisp.net/project/asdf/ilc2010-presentation.rkt
;; This document is available under the bugroff license.
;; _bugroff: http://tunes.org/legalese/bugroff.html
;; _slides: http://fare.tunes.org/computing/asdf2.ss
(define *width* 1024)
(define *height* 768) ;700
......@@ -38,25 +37,25 @@
(lambda (kw kv . l)
(keyword-apply slide kw kv (spacing l)))))
(define outline
(define outline
(let ([sub-para (lambda l
(para #:width (* 3/4 (current-para-width)) l))])
(make-outline
'one "Part I: Basic Concepts"
'one "Part I: Basic Concepts"
#f
'two "Part II: Practical Slides"
'two "Part II: Practical Slides"
(lambda (tag)
(sub-para "Using" (code make-outline) "and more..."))
'three "Part III: Fancy Picts"
'three "Part III: Fancy Picts"
(lambda (tag)
(sub-para "Creating interesting graphics"))
'four "Part IV: Advanced Slides"
'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"))
......@@ -65,7 +64,7 @@
(lambda (tag)
(sub-para "Exporting slides as PostScript"))
'end "Conclusion"
'end "Conclusion"
(lambda (tag)
(sub-para "This is the end")))))
......
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