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

brought info up to date with recent Racket

Browse Source
This commit is contained in:
Robby Findler 2012-09-04 20:25:05 +02:00
parent eb63b4f9ca
commit a5653bf9bb
6 changed files with 3467 additions and 3444 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
README.md
View File

@ -1,6 +1,6 @@
## Finding files
`find.ss` generates `lang.plain` (I don't remember how)
`find.rkt` generates `lang.plain` (I don't remember how)
## Pictures
@ -8,6 +8,6 @@
## Slides
`lang-slide.ss` has a slideshow slide that uses the picture.
`lang-slide.rkt` has a slideshow slide that uses the picture.
##### Originally by Robby Findler.

6
find.rkt
View File

@ -189,7 +189,8 @@
[(or (regexp-match #rx"scheme" lang)
(regexp-match #rx"racket" lang)
(regexp-match #rx"slideshow" lang)
(regexp-match #rx"#%kernel" lang))
(regexp-match #rx"#%kernel" lang)
(regexp-match #rx"pre-base.rkt" lang))
(next-color lang 'blue)]
[(or (regexp-match #rx"srfi" lang)
(regexp-match #rx"r6rs" lang)
@ -202,6 +203,8 @@
[(or (regexp-match #rx"htdp" lang)
(regexp-match #rx"DMdA" lang))
(next-color lang 'green)]
[(regexp-match #rx"swindle" lang)
(next-color lang 'cyan)]
[else
(fprintf (current-error-port) "unknown language ~s ~s\n" lang (length (hash-ref ht lang)))
(new-color lang 0 0 0)]))))
@ -226,6 +229,7 @@
(gray . ((240 240 240) (220 220 220) (200 200 200) (180 180 180) (160 160 160) (130 130 130) (100 100 100) (70 70 70) (50 50 50) (30 30 30)))
(pink . ("pink" "lightpink" "fuchsia"))
(purple . ("orchid" "purple" "darkviolet"))
(cyan . ((0 255 255) (150 255 255)))
(brown . ("brown"))))
(define colors-table (hash-copy orig-colors))

27
lang-colors.rkt
View File

@ -1,5 +1,7 @@
(("#%kernel" "#3232ff")
("at-exp racket" "#7d0000")
("at-exp racket/base" "#ff0000")
("at-exp scheme/base" "#e60000")
("deinprogramm/DMdA" "#00ff00")
("env-lang.rkt" "#000000")
("framework/private/decode" "#000000")
@ -11,30 +13,29 @@
("htdp/isl+" "#00af00")
("lang-utils.rkt" "#000000")
("meta/web" "#da70d6")
("mzscheme" "#000046")
("mzscheme" "#6a5acd")
("one off language" "#000000")
("pre-base.rkt" "#000000")
("r5rs" "#ffb6c1")
("pre-base.rkt" "#6464ff")
("r6rs" "#ffc0cb")
("racket" "#0000f0")
("racket/base" "#0000a0")
("racket/gui" "#0000dc")
("racket/load" "#000064")
("racket/load" "#000046")
("racket/private" "#0000cd")
("racket/private/base" "#5050ff")
("racket/private/provider" "#0000ff")
("racket/signature" "#000082")
("racket/unit" "#6464ff")
("scribble/base/reader" "#960000")
("scribble/doc" "#c80000")
("scribble/lp" "#af0000")
("scribble/manual" "#e60000")
("racket/signature" "#000064")
("racket/unit" "#000082")
("scribble/base/reader" "#640000")
("scribble/doc" "#af0000")
("scribble/lp" "#960000")
("scribble/manual" "#c80000")
("setup/infotab" "#ffff00")
("slideshow" "#0000be")
("srfi/provider" "#ff00ff")
("srfi/provider" "#ffb6c1")
("string-constant-lang.rkt" "#000000")
("swindle/base" "#000000")
("swindle/turbo" "#000000")
("swindle/base" "#96ffff")
("swindle/turbo" "#00ffff")
("syntax/module-reader" "#843c24")
("typed-racket/minimal" "#ffa500")
("typed/racket" "#ff8c00")

8
lang-slide.ss
View File

@ -80,6 +80,8 @@
(append colored-langs (list (list "everything else" "#000000")))))
(define (langs-in-tree color?)
(inset (lang-pict 550 color?) 14 -30 10 10))
;(slide (langs-pict #f)) (slide (langs-pict #t))
(inset (lang-pict 550 color?) 14 10 10 10))
(module+ main
(slide (langs-pict #f))
(slide (langs-pict #t)))

6864
lang.plain
View File

File diff suppressed because it is too large Load Diff

2
main.rkt
View File

@ -28,7 +28,7 @@
[(eq? stage-name 'hudak)
(mini-slide (vr-append 60 hudak-quote perlis-quote))]
[(eq? stage-name 'one)
(langs-pict #f #:picts (list (lt-superimpose p1 (ghost p1+p2))))]
(frame (langs-pict #f #:picts (list (lt-superimpose p1 (ghost p1+p2)))))]
[else
(langs-pict p1+p2)]))))