├── .gitignore ├── README.md └── info.rkt /.gitignore: -------------------------------------------------------------------------------- 1 | *~ 2 | \#* 3 | .\#* 4 | .DS_Store 5 | compiled/ 6 | /doc/ 7 | *.bak 8 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | Dracula Theme for DrRacket 2 | ========================== 3 | 4 | Just an implementation of the [Dracula][dracula] color scheme for [DrRacket][racket]. To install, use `raco`: 5 | 6 | ```bash 7 | $ raco pkg install dracula-theme 8 | ``` 9 | 10 | Then launch [DrRacket][racket] and go to: 11 | 12 | ``` 13 | Edit > Preferences > Colors > Dracula 14 | ``` 15 | 16 | Enjoy! 17 | 18 | 19 | [dracula]: https://draculatheme.com/ 20 | [racket]: https://racket-lang.org/ 21 | -------------------------------------------------------------------------------- /info.rkt: -------------------------------------------------------------------------------- 1 | #lang info 2 | 3 | ;; Dracula color scheme for DrRacket (https://draculatheme.com) 4 | ;; 5 | 6 | (define deps '("base")) 7 | 8 | ;; RGB colors found at https://spec.draculatheme.com 9 | 10 | (define background #(#x28 #x2A #x36)) 11 | (define foreground #(#xF8 #xF8 #xF2)) 12 | 13 | (define selection #(#x44 #x47 #x5A)) 14 | (define comment #(#x62 #x72 #xA4)) 15 | 16 | (define red #(#xFF #x55 #x55)) 17 | (define orange #(#xFF #xB8 #x6C)) 18 | (define yellow #(#xF1 #xFA #x8C)) 19 | (define green #(#x50 #xFA #x7B)) 20 | (define purple #(#xBD #x93 #xF9)) 21 | (define cyan #(#x8B #xE9 #xFD)) 22 | (define pink #(#xFF #x79 #xC6)) 23 | 24 | (define ansi-black #(#x21 #x22 #x2C)) 25 | (define ansi-red #(#xFF #x55 #x55)) 26 | (define ansi-green #(#x50 #xFA #x7B)) 27 | (define ansi-yellow #(#xF1 #xFA #x8C)) 28 | (define ansi-blue #(#xBD #x93 #xF9)) 29 | (define ansi-magenta #(#xFF #x79 #xC6)) 30 | (define ansi-cyan #(#x8B #xE9 #xFD)) 31 | (define ansi-white #(#xF8 #xF8 #xF2)) 32 | (define ansi-bright-black #(#x62 #x72 #xA4)) 33 | (define ansi-bright-red #(#xFF #x6E #x6E)) 34 | (define ansi-bright-green #(#x69 #xFF #x94)) 35 | (define ansi-bright-yellow #(#xFF #xFF #xA5)) 36 | (define ansi-bright-blue #(#xD6 #xAC #xFF)) 37 | (define ansi-bright-magenta #(#xFF #x92 #xDF)) 38 | (define ansi-bright-cyan #(#xA4 #xFF #xFF)) 39 | (define ansi-bright-white #(#xFF #xFF #xFF)) 40 | 41 | (define framework:color-schemes 42 | `(#hash((name . "Dracula") 43 | (white-on-black-base? . #t) 44 | (colors 45 | . 46 | ((framework:basic-canvas-background ,background) 47 | (framework:default-text-color ,foreground) 48 | (framework:paren-match-color ,selection) 49 | (framework:misspelled-text-color ,red) 50 | 51 | ;; Syntax checks 52 | (drracket:syncheck:template-arrow ,cyan) 53 | (drracket:syncheck:tail-arrow ,cyan) 54 | (drracket:syncheck:var-arrow ,cyan) 55 | (drracket:syncheck:unused-identifier ,comment) 56 | (drracket:syncheck:untacked ,comment) 57 | (drracket:syncheck:document-identifier ,selection) 58 | (drracket:syncheck:matching-identifiers ,selection) 59 | 60 | ;; Color scheme 61 | (framework:syntax-color:scheme:comment ,comment) 62 | (framework:syntax-color:scheme:text ,yellow) 63 | (framework:syntax-color:scheme:string ,yellow) 64 | (framework:syntax-color:scheme:constant ,purple) 65 | (framework:syntax-color:scheme:keyword ,pink) 66 | (framework:syntax-color:scheme:hash-colon-keyword ,cyan italic) 67 | (framework:syntax-color:scheme:parenthesis ,comment) 68 | (framework:syntax-color:scheme:error ,red) 69 | (framework:syntax-color:scheme:symbol ,foreground) 70 | (framework:syntax-color:scheme:other ,pink) 71 | 72 | ;; DrRacket colors 73 | (drracket:check-syntax:both-obligation-style-pref ,orange) 74 | (drracket:check-syntax:free-variable ,orange) 75 | (drracket:check-syntax:imported ,foreground) 76 | (drracket:check-syntax:lexically-bound ,foreground) 77 | (drracket:check-syntax:my-obligation-style-pref ,pink) 78 | (drracket:check-syntax:set!d ,pink) 79 | (drracket:check-syntax:their-obligation-style-pref ,pink) 80 | (drracket:check-syntax:unk-obligation-style-pref ,pink) 81 | (drracket:check-syntax:unused-require ,comment) 82 | (drracket:read-eval-print-loop:error-color ,red) 83 | (drracket:read-eval-print-loop:out-color ,yellow) 84 | (drracket:read-eval-print-loop:value-color ,purple)))))) 85 | --------------------------------------------------------------------------------