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

Reindent the body, use `append-map'.

Browse Source
This commit is contained in:
Eli Barzilay 2010-08-28 23:56:17 -04:00
parent 82749312f6
commit 0aa659ffe5
1 changed files with 140 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/slideshow/initial-ones.rkt
View File

@ -7,6 +7,7 @@
slideshow/pict slideshow/pict
slideshow/code slideshow/code
racket/class racket/class
racket/list
racket/path racket/path
racket/gui/base racket/gui/base
racket/runtime-path) racket/runtime-path)
@ -52,10 +53,8 @@
#:title "How to Control this Viewer" #:title "How to Control this Viewer"
(scale/improve-new-text (scale/improve-new-text
(table 3 (table 3
(apply (append-map
append (lambda (s) (list (para #:fill? #f (car s)) (t ":") (t (cadr s))))
(map (lambda (s)
(list (para #:fill? #f (car s)) (t ":") (t (cadr s))))
`(((,(meta "q")) "end show") `(((,(meta "q")) "end show")
(("Esc") "if confirmed, end show") (("Esc") "if confirmed, end show")
((,sym:rightarrow ", Space," ,(tt "f") "," ,(tt "n") ", or click") "next slide") ((,sym:rightarrow ", Space," ,(tt "f") "," ,(tt "n") ", or click") "next slide")
@ -68,7 +67,7 @@
((,(meta "d")) "show/hide preview") ((,(meta "d")) "show/hide preview")
((,(meta "m")) "show/hide mouse cursor") ((,(meta "m")) "show/hide mouse cursor")
((,(hbl-append (t "Shift-") sym:rightarrow) ", etc.") "move window 1 pixel") ((,(hbl-append (t "Shift-") sym:rightarrow) ", etc.") "move window 1 pixel")
((,(meta sym:rightarrow) ", etc.") "move window 10 pixels")))) ((,(meta sym:rightarrow) ", etc.") "move window 10 pixels")))
lbl-superimpose lbl-superimpose lbl-superimpose lbl-superimpose
gap-size (/ gap-size 2)) gap-size (/ gap-size 2))
0.9) 0.9)
@ -76,10 +75,8 @@
"The comments are typically fill in the details of what " "The comments are typically fill in the details of what "
"the slide presenter says when giving the talk.")) "the slide presenter says when giving the talk."))
(define mytalk.rkt (tt "mytalk.rkt")) (define mytalk.rkt (tt "mytalk.rkt"))
(slide (slide
#:title "Slideshow Programs" #:title "Slideshow Programs"
(para "A Slideshow program has the form") (para "A Slideshow program has the form")
@ -168,4 +165,5 @@
(make-object style-delta% 'change-family 'modern) (make-object style-delta% 'change-family 'modern)
0 'end) 0 'end)
(send f show #t)))))) (send f show #t))))))
) )