suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

slideshow play: allow procedure as name

Browse Source 
svn: r15776
This commit is contained in:
Matthew Flatt 2009-08-18 01:24:59 +00:00
parent 6d68894263
commit 663a24dad6
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/slideshow/play.ss
View File

@ -28,14 +28,14 @@
#:steps [N 10] #:steps [N 10]
mid) mid)
(slide #:title (if (procedure? title) (title 0) title) (slide #:title (if (procedure? title) (title 0) title)
#:name name #:name (if (procedure? name) (name 0) name)
#:layout layout #:layout layout
(mid 0)) (mid 0))
(if condense? (if condense?
(skip-slides N) (skip-slides N)
(map (lambda (n) (map (lambda (n)
(slide #:title (if (procedure? title) (title n) title) (slide #:title (if (procedure? title) (title n) title)
#:name name #:name (if (procedure? name) (name n) name)
#:layout layout #:layout layout
#:timeout 0.05 #:timeout 0.05
(mid n))) (mid n)))
@ -63,7 +63,7 @@
(if (null? post) (if (null? post)
(unless skip-last? (unless skip-last?
(slide #:title (if (procedure? title) (apply title pre) title) (slide #:title (if (procedure? title) (apply title pre) title)
#:name name #:name (if (procedure? name) (apply name pre) name)
#:layout layout #:layout layout
(apply mid pre))) (apply mid pre)))
(begin (begin
@ -71,7 +71,10 @@
(lambda (n) (lambda (n)
(apply title (append pre (list n) (cdr post)))) (apply title (append pre (list n) (cdr post))))
title) title)
#:name name #:name (if (procedure? name)
(lambda (n)
(apply name (append pre (list n) (cdr post))))
name)
#:layout layout #:layout layout
#:steps N #:steps N
(lambda (n) (lambda (n)