Revert "change the default colors a bit based on color-blindness feedback"
This reverts commit 3c439a7731
.
Instead of changing the default colors, add support for color
schemes and then use these colors as a starting point for a new
color scheme
This commit is contained in:
parent
31111119eb
commit
136c18f7e9
|
@ -291,16 +291,16 @@
|
|||
|
||||
|
||||
(define color-prefs-table
|
||||
(let ([constant-green (make-object color% 211 72 255)]
|
||||
(let ([constant-green (make-object color% 41 128 38)]
|
||||
[symbol-blue (make-object color% 38 38 128)])
|
||||
`((symbol ,symbol-blue ,(string-constant scheme-mode-color-symbol))
|
||||
(keyword ,symbol-blue ,(string-constant scheme-mode-color-keyword))
|
||||
(comment ,(make-object color% 194 158 31) ,(string-constant scheme-mode-color-comment))
|
||||
(comment ,(make-object color% 194 116 31) ,(string-constant scheme-mode-color-comment))
|
||||
(string ,constant-green ,(string-constant scheme-mode-color-string))
|
||||
(constant ,constant-green ,(string-constant scheme-mode-color-constant))
|
||||
(hash-colon-keyword ,(make-object color% "brown")
|
||||
,(string-constant scheme-mode-color-hash-colon-keyword))
|
||||
(parenthesis ,(make-object color% 0 150 255) ,(string-constant scheme-mode-color-parenthesis))
|
||||
(parenthesis ,(make-object color% "brown") ,(string-constant scheme-mode-color-parenthesis))
|
||||
(error ,(make-object color% "red") ,(string-constant scheme-mode-color-error))
|
||||
(other ,(make-object color% "black") ,(string-constant scheme-mode-color-other)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user