31 lines
1.2 KiB
Racket
31 lines
1.2 KiB
Racket
#lang racket/base
|
|
(require "lang-slide.rkt"
|
|
slideshow unstable/gui/slideshow)
|
|
|
|
(provide langs hudak-quote perlis-quote)
|
|
|
|
|
|
(define hudak-quote
|
|
(vr-append 10 (vl-append (t "“A domain specific language is the ultimate abstraction.” "))
|
|
(t " — Paul Hudak")))
|
|
|
|
(define perlis-quote (vr-append 10 (vr-append (t "“There will always be things we wish to say in our programs")
|
|
(t "that in all known languages can only be said poorly.”"))
|
|
(t " — Alan Perlis")))
|
|
|
|
(define p2 (vl-append (t "Racket ships more than") (t "40 documented languages")))
|
|
(define p1 (lt-superimpose (ghost p2) (vl-append (t "In 6000+ files of") (t "Racket source code ..."))))
|
|
|
|
(define (langs)
|
|
(slide/staged [#;hudak one two]
|
|
;#:title "Files in Racket"
|
|
;#:layout 'tall
|
|
(cond
|
|
[(eq? stage-name 'hudak)
|
|
(mini-slide (vr-append 60 hudak-quote perlis-quote))]
|
|
[(eq? stage-name 'one)
|
|
(langs-pict #f #:picts (list p1))]
|
|
[else
|
|
(langs-pict (vl-append 10 p1 p2))])))
|
|
|