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