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

make #:keywords have different color prefs in DrRacket

Browse Source 
closes PR 13492
This commit is contained in:
Robby Findler 2013-02-05 12:29:57 -06:00
parent 014abe64c0
commit 12ebfa2cf4
6 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/racket.rkt
View File

@ -297,6 +297,7 @@
(comment ,(make-object color% 194 116 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)) (string ,constant-green ,(string-constant scheme-mode-color-string))
(constant ,constant-green ,(string-constant scheme-mode-color-constant)) (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% "brown") ,(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)) (error ,(make-object color% "red") ,(string-constant scheme-mode-color-error))
(other ,(make-object color% "black") ,(string-constant scheme-mode-color-other))))) (other ,(make-object color% "black") ,(string-constant scheme-mode-color-other)))))
@ -309,6 +310,7 @@
(comment ,(make-object color% 249 148 40)) (comment ,(make-object color% 249 148 40))
(string ,(make-object color% 51 174 51)) (string ,(make-object color% 51 174 51))
(constant ,(make-object color% 60 194 57)) (constant ,(make-object color% 60 194 57))
(hash-colon-keyword ,(make-object color% 151 69 43))
(parenthesis ,(make-object color% 151 69 43)) (parenthesis ,(make-object color% 151 69 43))
(other ,(make-object color% "white")))]) (other ,(make-object color% "white")))])
(map (map

2
collects/scribble/private/manual-code.rkt
View File

@ -183,7 +183,7 @@
(let ([scribble-style (let ([scribble-style
(case style (case style
[(symbol) symbol-color] [(symbol) symbol-color]
[(parenthesis) paren-color] [(parenthesis hash-colon-keyword) paren-color]
[(constant string) value-color] [(constant string) value-color]
[(comment) comment-color] [(comment) comment-color]
[else default-color])]) [else default-color])])

1
collects/string-constants/private/english-string-constants.rkt
View File

@ -330,6 +330,7 @@ please adhere to these guidelines:
(scheme-mode-color-string "String") (scheme-mode-color-string "String")
(scheme-mode-color-constant "Constant") (scheme-mode-color-constant "Constant")
(scheme-mode-color-parenthesis "Parenthesis") (scheme-mode-color-parenthesis "Parenthesis")
(scheme-mode-color-hash-colon-keyword "#:Keyword")
(scheme-mode-color-error "Error") (scheme-mode-color-error "Error")
(scheme-mode-color-other "Other") (scheme-mode-color-other "Other")
;; the ~a is filled in with one of the above (scheme-mode-*) ;; the ~a is filled in with one of the above (scheme-mode-*)

2
collects/syntax-color/racket-lexer.rkt
View File

@ -315,7 +315,7 @@
(make-num digit10 (:? radix10)) (make-num digit10 (:? radix10))
(make-num digit16 radix16)) (make-num digit16 radix16))
(ret lexeme 'constant #f start-pos end-pos 'datum)] (ret lexeme 'constant #f start-pos end-pos 'datum)]
[keyword (ret lexeme 'parenthesis #f start-pos end-pos 'datum)] [keyword (ret lexeme 'hash-colon-keyword #f start-pos end-pos 'datum)]
[str (ret lexeme 'string #f start-pos end-pos 'datum)] [str (ret lexeme 'string #f start-pos end-pos 'datum)]
[";" [";"
(values (apply string (read-line/skip-over-specials input-port)) 'comment #f (values (apply string (read-line/skip-over-specials input-port)) 'comment #f

2
collects/syntax-color/syntax-color.scrbl
View File

@ -54,7 +54,7 @@ The @racket[racket-lexer] function returns 5 values:
This may change in the future to other string or non-string data.} This may change in the future to other string or non-string data.}
@item{A symbol in @racket['(error comment sexp-comment @item{A symbol in @racket['(error comment sexp-comment
white-space constant string no-color parenthesis other symbol eof)].} white-space constant string no-color parenthesis hash-colon-keyword symbol eof other)].}
@item{A symbol in @racket['(|(| |)| |[| |]| |{| |}|)] or @racket[#f].} @item{A symbol in @racket['(|(| |)| |[| |]| |{| |}|)] or @racket[#f].}

3
doc/release-notes/racket/HISTORY.txt
View File

@ -6,6 +6,9 @@ racket/date: changed current-date to provide nanoseconds,
added date*->seconds added date*->seconds
racket/gui/base: changed menu-bar% get-frame method to racket/gui/base: changed menu-bar% get-frame method to
return 'root for root menu bar return 'root for root menu bar
syntax-color/racket-lexer: added 'hash-colon-keyword
(which also affects syntax-color/scheme-lexer,
syntax-color/module-lexer, and syntax-color/scribble-lexer)
Version 5.3.2.2 Version 5.3.2.2
Added file-truncate Added file-truncate