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

another attempt at color-blindness friendly colors

Browse Source 
These are based on Tol's "Scheme for Marking Text" colors,
but with some variations
This commit is contained in:
Robby Findler 2013-10-28 19:54:22 -05:00
parent 5c373c5d07
commit 87e29b424b
1 changed files with 38 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
pkgs/drracket-pkgs/drracket/drracket/info.rkt
View File

@ -15,54 +15,61 @@
;; color-blind friendly palette from Paul Tol:
;; http://www.sron.nl/~pault/
(define dark-blue '#(#x33 #x22 #x88))
(define light-blue #(#x88 #xCC #xEE))
(define medium-green #(#x44 #xAA #x99))
(define dark-green #(#x11 #x77 #x33))
(define olive-green #(#x99 #x99 #x33))
(define tan #(#xDD #xCC #x77))
(define orangy-pink #(#xCC #x66 #x77))
(define dark-red #(#x88 #x22 #x55))
(define purple #(#xAA #x44 #x99))
;; using his Scheme for Marking Text colors
(define light-blue #(#x90 #xb3 #xff))
(define light-cyan #(#xcc #xee #xff))
(define light-green #(#xcc #xdd #xaa))
(define light-tan #(#xee #xee #xbb))
(define light-pink #(#xff #xcc #xcc))
(define light-grey #(#xdd #xdd #xdd))
(define dark-blue #(#x22 #x22 #x77))
(define dark-cyan #(#x22 #x77 #x77))
(define dark-green #(#x22 #x77 #x22))
(define dark-olive #(#x66 #x66 #x33))
(define dark-red #(#x88 #x11 #x11))
(define sea-green #(#x00 #xb2 #xb2))
(define error-color orangy-pink)
(define tol-bow-error-color dark-red)
(define tol-bow-constants dark-green)
(define tol-black-on-white-colors
`((framework:paren-match-color ,tan)
(framework:syntax-color:scheme:comment ,olive-green)
(framework:syntax-color:scheme:constant ,dark-green)
(framework:syntax-color:scheme:error ,error-color)
(framework:syntax-color:scheme:hash-colon-keyword ,dark-green)
`((framework:paren-match-color ,light-tan)
(framework:syntax-color:scheme:comment ,dark-olive)
(framework:syntax-color:scheme:constant ,tol-bow-constants)
(framework:syntax-color:scheme:error ,tol-bow-error-color)
(framework:syntax-color:scheme:hash-colon-keyword ,tol-bow-constants)
(framework:syntax-color:scheme:keyword ,dark-blue)
(framework:syntax-color:scheme:string ,dark-green)
(framework:syntax-color:scheme:string ,tol-bow-constants)
(framework:syntax-color:scheme:text ,tol-bow-constants)
(framework:syntax-color:scheme:other ,dark-blue)
(framework:syntax-color:scheme:parenthesis ,light-blue)
(framework:syntax-color:scheme:parenthesis ,sea-green)
(framework:syntax-color:scheme:symbol ,dark-blue)
(drracket:read-eval-print-loop:error-color ,error-color)
(drracket:read-eval-print-loop:out-color ,dark-green)
(drracket:read-eval-print-loop:error-color ,tol-bow-error-color)
(drracket:read-eval-print-loop:out-color ,tol-bow-constants)
(drracket:read-eval-print-loop:value-color ,dark-blue)
(drracket:check-syntax:free-variable ,error-color)
(drracket:check-syntax:set!d ,error-color)
(drracket:check-syntax:unused-require ,error-color)))
(drracket:check-syntax:free-variable ,tol-bow-error-color)
(drracket:check-syntax:set!d ,tol-bow-error-color)
(drracket:check-syntax:unused-require ,tol-bow-error-color)))
(define tol-wob-constants purple)
(define tol-wob-constants light-blue)
(define tol-wob-error light-pink)
(define tol-white-on-black-colors
`((framework:paren-match-color ,dark-blue)
(framework:syntax-color:scheme:comment ,olive-green)
(framework:syntax-color:scheme:comment ,light-green)
(framework:syntax-color:scheme:constant ,tol-wob-constants)
(framework:syntax-color:scheme:error ,error-color)
(framework:syntax-color:scheme:error ,tol-wob-error)
(framework:syntax-color:scheme:hash-colon-keyword ,tol-wob-constants)
(framework:syntax-color:scheme:keyword ,light-blue)
(framework:syntax-color:scheme:string ,tol-wob-constants)
(framework:syntax-color:scheme:text ,tol-wob-constants)
(framework:syntax-color:scheme:other ,light-blue)
(framework:syntax-color:scheme:parenthesis ,dark-green)
(framework:syntax-color:scheme:parenthesis ,dark-cyan)
(framework:syntax-color:scheme:symbol ,light-blue)
(drracket:read-eval-print-loop:error-color ,error-color)
(drracket:read-eval-print-loop:error-color ,tol-wob-error)
(drracket:read-eval-print-loop:out-color ,dark-green)
(drracket:read-eval-print-loop:value-color ,light-blue)
(drracket:check-syntax:free-variable ,error-color)
(drracket:check-syntax:set!d ,error-color)
(drracket:check-syntax:unused-require ,error-color)))
(drracket:check-syntax:free-variable ,tol-wob-error)
(drracket:check-syntax:set!d ,tol-wob-error)
(drracket:check-syntax:unused-require ,tol-wob-error)))
(define framework:color-schemes
(list