From fd0f9e836ba7a1af619e09df430690c38a7f2b0a Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Mon, 12 Nov 2012 18:12:25 -0500
Subject: [PATCH] Move to subdir for Planet2.  Extension fixes.

---
 draw-plain.ss => lang-slide/draw-plain.rkt     | 0
 find.rkt => lang-slide/find.rkt                | 4 ++--
 lang-colors.rkt => lang-slide/lang-colors.rktd | 0
 lang-slide.ss => lang-slide/lang-slide.rkt     | 4 ++--
 lang.plain => lang-slide/lang.plain            | 0
 main.rkt => lang-slide/main.rkt                | 0
 mk-img.ss => lang-slide/mk-img.rkt             | 0
 orig-colors.rkt => lang-slide/orig-colors.rkt  | 0
 8 files changed, 4 insertions(+), 4 deletions(-)
 rename draw-plain.ss => lang-slide/draw-plain.rkt (100%)
 rename find.rkt => lang-slide/find.rkt (99%)
 rename lang-colors.rkt => lang-slide/lang-colors.rktd (100%)
 rename lang-slide.ss => lang-slide/lang-slide.rkt (96%)
 rename lang.plain => lang-slide/lang.plain (100%)
 rename main.rkt => lang-slide/main.rkt (100%)
 rename mk-img.ss => lang-slide/mk-img.rkt (100%)
 rename orig-colors.rkt => lang-slide/orig-colors.rkt (100%)

diff --git a/draw-plain.ss b/lang-slide/draw-plain.rkt
similarity index 100%
rename from draw-plain.ss
rename to lang-slide/draw-plain.rkt
diff --git a/find.rkt b/lang-slide/find.rkt
similarity index 99%
rename from find.rkt
rename to lang-slide/find.rkt
index a26c525..7a975b7 100644
--- a/find.rkt
+++ b/lang-slide/find.rkt
@@ -261,8 +261,8 @@
       (to-dot)))
   #:exists 'truncate)
 
-(define-runtime-path lang-colors.rkt "lang-colors.rkt")
-(call-with-output-file lang-colors.rkt
+(define-runtime-path lang-colors.rktd "lang-colors.rktd")
+(call-with-output-file lang-colors.rktd
   (λ (port)
     (pretty-write
      (sort (hash-map colors list)
diff --git a/lang-colors.rkt b/lang-slide/lang-colors.rktd
similarity index 100%
rename from lang-colors.rkt
rename to lang-slide/lang-colors.rktd
diff --git a/lang-slide.ss b/lang-slide/lang-slide.rkt
similarity index 96%
rename from lang-slide.ss
rename to lang-slide/lang-slide.rkt
index 2812d44..62da466 100644
--- a/lang-slide.ss
+++ b/lang-slide/lang-slide.rkt
@@ -7,7 +7,7 @@
          slideshow slideshow/code
          scheme/runtime-path
          racket/gui/base)
-(define-runtime-path lang-colors.rkt "lang-colors.rkt")
+(define-runtime-path lang-colors.rktd "lang-colors.rktd")
 
 (define (color->name c)
   (define-values (r g b) (split-out-color c))
@@ -61,7 +61,7 @@
            (color-name->index n2))])))
 
 (define lang-colors 
-  (sort (call-with-input-file lang-colors.rkt read)
+  (sort (call-with-input-file lang-colors.rktd read)
         color<=?
         #:key cadr))
 
diff --git a/lang.plain b/lang-slide/lang.plain
similarity index 100%
rename from lang.plain
rename to lang-slide/lang.plain
diff --git a/main.rkt b/lang-slide/main.rkt
similarity index 100%
rename from main.rkt
rename to lang-slide/main.rkt
diff --git a/mk-img.ss b/lang-slide/mk-img.rkt
similarity index 100%
rename from mk-img.ss
rename to lang-slide/mk-img.rkt
diff --git a/orig-colors.rkt b/lang-slide/orig-colors.rkt
similarity index 100%
rename from orig-colors.rkt
rename to lang-slide/orig-colors.rkt