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

Move to subdir for Planet2. Extension fixes.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2012-11-12 18:12:25 -05:00
parent 2a09449884
commit fd0f9e836b
8 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
draw-plain.ss → lang-slide/draw-plain.rkt
View File

4
find.rkt → lang-slide/find.rkt
View File

@ -261,8 +261,8 @@
(to-dot))) (to-dot)))
#:exists 'truncate) #:exists 'truncate)
(define-runtime-path lang-colors.rkt "lang-colors.rkt") (define-runtime-path lang-colors.rktd "lang-colors.rktd")
(call-with-output-file lang-colors.rkt (call-with-output-file lang-colors.rktd
(λ (port) (λ (port)
(pretty-write (pretty-write
(sort (hash-map colors list) (sort (hash-map colors list)

0
lang-colors.rkt → lang-slide/lang-colors.rktd
View File

4
lang-slide.ss → lang-slide/lang-slide.rkt
View File

@ -7,7 +7,7 @@
slideshow slideshow/code slideshow slideshow/code
scheme/runtime-path scheme/runtime-path
racket/gui/base) 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 (color->name c)
(define-values (r g b) (split-out-color c)) (define-values (r g b) (split-out-color c))
@ -61,7 +61,7 @@
(color-name->index n2))]))) (color-name->index n2))])))
(define lang-colors (define lang-colors
(sort (call-with-input-file lang-colors.rkt read) (sort (call-with-input-file lang-colors.rktd read)
color<=? color<=?
#:key cadr)) #:key cadr))

0
lang.plain → lang-slide/lang.plain
View File

0
main.rkt → lang-slide/main.rkt
View File

0
mk-img.ss → lang-slide/mk-img.rkt
View File

0
orig-colors.rkt → lang-slide/orig-colors.rkt
View File