adjust for new repo layout

lang-slide/find.rkt

@@ -4,6 +4,11 @@
          racket/runtime-path
          "orig-colors.rkt")
 
+(define root-of-plt-git
+  (simplify-path 
+   (build-path (collection-file-path "base.rkt" "racket")
+               'up 'up 'up 'up 'up)))
+
 (define (get-language i)
   (and (or (regexp-match #rx"scrbl$" (path->string i))
            (regexp-match #rx"[.]rkt$" (path->string i))
@@ -14,7 +19,7 @@
            (simplify-language
             (and (not (skip-file? i))
                  (parameterize ([read-accept-reader #t])
-                   (with-handlers ((exn:fail? (λ (x) (printf "exn when reading ~s\n" i) (raise x))))
+                   (with-handlers ((exn:fail? (λ (x) (printf "exn when reading ~s\n" i) #f #;(raise x))))
                      (let loop ()
                        (let ([line (read-line (peeking-input-port port))])
                          (cond
@@ -109,7 +114,7 @@
              
 
 (define ht (make-hash))
-(for ((i (in-directory (simplify-path (build-path (collection-path "racket") 'up)))))
+(for ((i (in-directory root-of-plt-git)))
   (let ([lang (get-language i)])
     (when lang
       (hash-set! ht lang (cons i (hash-ref ht lang '()))))))
@@ -139,8 +144,7 @@
                     (format "rank~a" next)))))))
 
 (define (file-to-dot filename language)
-  (let ([path (find-relative-path (simplify-path (build-path (collection-path "drscheme") 'up 'up))
-                                  filename)])
+  (let ([path (find-relative-path root-of-plt-git filename)])
     (let loop ([eles (explode-path path)]
                [parent (build-path 'same)]
                [depth 0])

lang-slide/hudak-quote.rkt

@@ -11,12 +11,15 @@
   (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 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 p1 (lt-superimpose 
+            (ghost p2)
+            (vl-append (t "In 6000+ files of") (t "Racket source code ..."))))
 
 (define (langs)
   (define p1+p2 (vl-append 10 p1 p2))

lang-slide/lang-colors.rktd

@@ -1,44 +1,65 @@
-(("#%kernel" "#6464ff")
- ("at-exp racket" "#640000")
- ("at-exp racket/base" "#ff0000")
+(("#%kernel" "#000082")
+ ("at-exp racket" "#c80000")
+ ("at-exp racket/base" "#d70000")
  ("at-exp scheme/base" "#e60000")
- ("deinprogramm/DMdA" "#00ff00")
+ ("datalog" "#000000")
+ ("datalog/sexp" "#000000")
+ ("deinprogramm/DMdA" "#00e600")
  ("env-lang.rkt" "#000000")
+ ("eopl" "#000000")
  ("framework/private/decode" "#000000")
  ("frtime" "#f0f0f0")
  ("frtime/frtime-lang-only" "#c8c8c8")
  ("frtime/lang-utils" "#dcdcdc")
- ("htdp/asl" "#00af00")
- ("htdp/bsl" "#00e600")
- ("htdp/isl+" "#00c800")
+ ("honu" "#000000")
+ ("htdp/asl" "#00c800")
+ ("htdp/bsl" "#00af00")
+ ("htdp/isl" "#00ff00")
+ ("htdp/isl+" "#009600")
  ("lang-utils.rkt" "#000000")
  ("meta/web" "#da70d6")
- ("mzscheme" "#6a5acd")
+ ("mzscheme" "#000046")
  ("one off language" "#000000")
- ("pre-base.rkt" "#5050ff")
- ("r6rs" "#ffc0cb")
- ("racket" "#0000f0")
- ("racket/base" "#0000a0")
- ("racket/gui" "#0000dc")
- ("racket/load" "#000046")
- ("racket/private" "#0000cd")
- ("racket/private/base" "#000082")
+ ("plai" "#000000")
+ ("plai/collector" "#000000")
+ ("plai/gc2/collector" "#000000")
+ ("plai/gc2/mutator" "#000000")
+ ("plai/mutator" "#000000")
+ ("pre-base.rkt" "#0000be")
+ ("private/base.rkt" "#000000")
+ ("r5rs" "#ffb6c1")
+ ("r6rs" "#ff00ff")
+ ("racket" "#0000a0")
+ ("racket/base" "#6a5acd")
+ ("racket/gui" "#0000cd")
+ ("racket/kernel" "#0000f0")
+ ("racket/load" "#0000dc")
+ ("racket/mzscheme" "#6464ff")
+ ("racket/private/base" "#0000ff")
  ("racket/private/provider" "#0000ff")
- ("racket/signature" "#000064")
- ("racket/unit" "#3232ff")
- ("scribble/base/reader" "#960000")
- ("scribble/doc" "#af0000")
- ("scribble/lp" "#7d0000")
- ("scribble/manual" "#c80000")
+ ("racket/signature" "#3232ff")
+ ("racket/unit" "#000064")
+ ("racklog" "#000000")
+ ("scribble/base" "#960000")
+ ("scribble/base/reader" "#af0000")
+ ("scribble/doc" "#7d0000")
+ ("scribble/lp" "#ff0000")
+ ("scribble/manual" "#640000")
  ("setup/infotab" "#ffff00")
- ("slideshow" "#0000be")
- ("srfi/provider" "#ffb6c1")
+ ("slideshow" "#5050ff")
+ ("srfi/provider" "#ffc0cb")
  ("string-constant-lang.rkt" "#000000")
  ("swindle/base" "#96ffff")
  ("swindle/turbo" "#00ffff")
  ("syntax/module-reader" "#843c24")
- ("typed-racket/minimal" "#ff8c00")
+ ("typed-racket/minimal" "#ffd700")
+ ("typed-scheme/no-check" "#ffd700")
  ("typed/racket" "#ffa500")
- ("typed/racket/base" "#ffd700")
- ("web-server" "#9400d3")
- ("web-server/insta" "#a020f0"))
+ ("typed/racket/base" "#ff8c00")
+ ("typed/racket/no-check" "#ff8c00")
+ ("typed/scheme/base" "#ffa500")
+ ("web-server" "#a020f0")
+ ("web-server/base" "#9400d3")
+ ("web-server/insta" "#9400d3")
+ ("wrap.rkt" "#000000")
+ ("wrapper.rkt" "#000000"))

lang-slide/main.rkt

@@ -69,7 +69,7 @@
   (partition (λ (x) (equal? (cadr x) "#000000")) lang-colors))
 
 (define (line->color cl)
-  (parameterize ([current-font-size 16])
+  (parameterize ([current-font-size 14])
     (hc-append 6
                (colorize (filled-ellipse 14 14)
                          (string->color (cadr cl)))
@@ -96,7 +96,7 @@
        (append colored-langs (list (list "everything else" "#000000")))))
 
 (define (langs-in-tree color?)
-  (inset (lang-pict 550 color?) 14 10 10 10))
+  (inset (lang-pict 550 color?) 14 10 -10 10))
 
 (module+ main
   (slide (langs-pict #f))

lang-slide/orig-colors.rkt

@@ -5,11 +5,13 @@
                  (50 50 255) (80 80 255) (100 100 255) (0 0 130) (0 0 100) (0 0 70)
                  "slateblue"))
         (green . ((0 255 0) (0 230 0) (0 200 0) (0 175 0) (0 150 0) (0 125 0) (0 100 0)))
-        (red . ((255 0 0) (230 0 0) (200 0 0) (175 0 0) (150 0 0) (125 0 0) (100 0 0)))
+        (red . ((255 0 0) (230 0 0) (215 0 0) (200 0 0) (175 0 0) (150 0 0) (125 0 0) (100 0 0)))
         (yellow . ((255 255 0)))
         (orange . ("orange" "darkorange" "gold"))
-        (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)))
+        (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"))
+        (purple . ("orchid" "purple" "darkviolet" "darkviolet"))
         (cyan . ((0 255 255) (150 255 255)))
         (brown . ("brown"))))