├── .gitignore ├── img ├── spacemacs-dark-572x122.png └── spacemacs-light-572x122.png ├── info.rkt └── readme.org /.gitignore: -------------------------------------------------------------------------------- 1 | compiled -------------------------------------------------------------------------------- /img/spacemacs-dark-572x122.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tuirgin/drracket-spacemacs-schemes/f7b271d821460f0c445b71a893022094efd50858/img/spacemacs-dark-572x122.png -------------------------------------------------------------------------------- /img/spacemacs-light-572x122.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tuirgin/drracket-spacemacs-schemes/f7b271d821460f0c445b71a893022094efd50858/img/spacemacs-light-572x122.png -------------------------------------------------------------------------------- /info.rkt: -------------------------------------------------------------------------------- 1 | #lang info 2 | 3 | ;; Spacemacs Themes for DrRacket 4 | ;; pkg metadata 5 | (define deps '("base")) 6 | 7 | ;; Spacemacs Common Colors 8 | (define green #(103 177 29)) 9 | (define magenta #(163 29 177)) 10 | (define red #(242 36 31)) 11 | (define yellow #(177 149 29)) 12 | 13 | (define comment #(42 161 174)) 14 | (define error #(224 33 29)) 15 | (define warning #(220 117 47)) 16 | (define string #(45 149 116)) 17 | 18 | ;; Spacemacs Light Colors 19 | (define light-blue #(58 129 195)) 20 | (define light-cyan #(33 184 199)) 21 | (define light-green green) 22 | (define light-magenta magenta) 23 | (define light-red red) 24 | (define light-yellow yellow) 25 | 26 | (define light-background #(251 248 239)) 27 | (define light-comment comment) 28 | (define light-constant #(78 49 99)) 29 | (define light-error error) 30 | (define light-foreground #(101 83 112)) 31 | (define light-dim #(160 148 162)) 32 | (define light-function #(108 49 99)) 33 | (define light-hash-colon-keyword #(205 0 0)) 34 | (define light-highlight #(211 211 231 0.5)) 35 | (define light-highlight-dim #(231 231 251 0.5)) 36 | (define light-isearch-background #(186 47 89 0.75)) 37 | (define light-keyword light-blue) 38 | (define light-paren-match #(210 206 218 0.5)) 39 | (define light-string string) 40 | (define light-variable #(113 90 177)) 41 | (define light-warning warning) 42 | (define light-output #(108 65 115)) 43 | 44 | ;; Spacemacs Dark Colors 45 | (define dark-blue #(79 151 215)) 46 | (define dark-cyan #(40 222 240)) 47 | (define dark-green green) 48 | (define dark-magenta magenta) 49 | (define dark-red red) 50 | (define dark-yellow yellow) 51 | 52 | (define dark-background #(41 43 46)) 53 | (define dark-comment comment) 54 | (define dark-constant #(164 91 173)) 55 | (define dark-error error) 56 | (define dark-foreground #(178 178 178)) 57 | (define dark-dim #(104 104 104)) 58 | (define dark-function #(188 110 197)) 59 | (define dark-hash-colon-keyword #(205 92 92)) 60 | (define dark-highlight #(68 65 85 0.5)) 61 | (define dark-highlight-dim #(48 45 65 0.5)) 62 | (define dark-isearch-background #(134 220 47 0.85)) 63 | (define dark-keyword dark-blue) 64 | (define dark-paren-match #(41 66 45 0.5)) 65 | (define dark-string string) 66 | (define dark-variable #(117 144 219)) 67 | (define dark-warning warning) 68 | (define dark-output #(197 110 195)) 69 | 70 | (define framework:color-schemes 71 | `(#hash((name . "Spacemacs Light") 72 | (white-on-black-base? . #f) 73 | (colors 74 | . 75 | ( 76 | (drracket:check-syntax:both-obligation-style-pref ,light-yellow) 77 | (drracket:check-syntax:free-variable ,light-red) 78 | (drracket:check-syntax:imported ,light-magenta) 79 | (drracket:check-syntax:lexically-bound ,light-keyword) 80 | (drracket:check-syntax:my-obligation-style-pref ,light-cyan) 81 | (drracket:check-syntax:set!d ,light-warning) 82 | (drracket:check-syntax:their-obligation-style-pref ,light-green) 83 | (drracket:check-syntax:unk-obligation-style-pref ,light-warning) 84 | (drracket:check-syntax:unused-require ,light-red) 85 | (drracket:read-eval-print-loop:error-color ,light-error) 86 | (drracket:read-eval-print-loop:out-color ,light-output) 87 | (drracket:read-eval-print-loop:value-color ,light-keyword) 88 | (drracket:syncheck:matching-identifiers ,dark-isearch-background) 89 | (framework:basic-canvas-background ,light-background) 90 | (framework:default-text-color ,light-foreground) 91 | (framework:misspelled-text-color ,light-warning) 92 | (framework:paren-match-color ,light-highlight) 93 | (framework:syntax-color:scheme:comment ,light-comment) 94 | (framework:syntax-color:scheme:constant ,light-constant) 95 | (framework:syntax-color:scheme:error ,light-error) 96 | (framework:syntax-color:scheme:hash-colon-keyword ,light-hash-colon-keyword) 97 | (framework:syntax-color:scheme:keyword ,light-keyword bold) 98 | (framework:syntax-color:scheme:other ,light-foreground) 99 | (framework:syntax-color:scheme:parenthesis ,light-dim) 100 | (framework:syntax-color:scheme:string ,light-string) 101 | (framework:syntax-color:scheme:symbol ,light-foreground) 102 | (framework:syntax-color:scheme:text ,light-comment) 103 | ;; (plt:htdp:test-coverage-off ,light-warning bold) 104 | (plt:htdp:test-coverage-on ,light-foreground) 105 | ;; (plt:module-language:test-coverage-off ,light-warning bold) 106 | (plt:module-language:test-coverage-on ,light-foreground)))) 107 | 108 | #hash((name . "Spacemacs Dark") 109 | (white-on-black-base? . #t) 110 | (colors 111 | . 112 | ((drracket:check-syntax:both-obligation-style-pref ,dark-yellow) 113 | (drracket:check-syntax:free-variable ,dark-red) 114 | (drracket:check-syntax:imported ,dark-magenta) 115 | (drracket:check-syntax:lexically-bound ,dark-keyword) 116 | (drracket:check-syntax:my-obligation-style-pref ,dark-cyan) 117 | (drracket:check-syntax:set!d ,dark-warning) 118 | (drracket:check-syntax:their-obligation-style-pref ,dark-green) 119 | (drracket:check-syntax:unk-obligation-style-pref ,dark-warning) 120 | (drracket:check-syntax:unused-require ,dark-red) 121 | (drracket:read-eval-print-loop:error-color ,dark-error) 122 | (drracket:read-eval-print-loop:out-color ,dark-output) 123 | (drracket:read-eval-print-loop:value-color ,dark-keyword) 124 | (drracket:syncheck:matching-identifiers ,light-isearch-background) 125 | (framework:basic-canvas-background ,dark-background) 126 | (framework:default-text-color ,dark-foreground) 127 | (framework:misspelled-text-color ,dark-warning) 128 | (framework:paren-match-color ,dark-highlight) 129 | (framework:syntax-color:scheme:comment ,dark-comment) 130 | (framework:syntax-color:scheme:constant ,dark-constant) 131 | (framework:syntax-color:scheme:error ,dark-error) 132 | (framework:syntax-color:scheme:hash-colon-keyword ,dark-hash-colon-keyword) 133 | (framework:syntax-color:scheme:keyword ,dark-keyword bold) 134 | (framework:syntax-color:scheme:other ,dark-foreground) 135 | (framework:syntax-color:scheme:parenthesis ,dark-dim) 136 | (framework:syntax-color:scheme:string ,dark-string) 137 | (framework:syntax-color:scheme:symbol ,dark-foreground) 138 | (framework:syntax-color:scheme:text ,dark-comment) 139 | ;; (plt:htdp:test-coverage-off ,dark-warning bold) 140 | (plt:htdp:test-coverage-on ,dark-foreground) 141 | ;; (plt:module-language:test-coverage-off ,dark-warning bold) 142 | (plt:module-language:test-coverage-on ,dark-foreground)))))) 143 | -------------------------------------------------------------------------------- /readme.org: -------------------------------------------------------------------------------- 1 | * Spacemacs Color Schemes for DrRacket 2 | 3 | ** Installation 4 | 5 | #+begin_src sh 6 | raco pkg install https://github.com/tuirgin/drracket-spacemacs-schemes.git 7 | #+end_src 8 | 9 | ** Screenshots 10 | 11 | | Scheme | Screenshot | 12 | |-----------------+-----------------------------------| 13 | | Spacemacs Light | [[./img/spacemacs-light-572x122.png]] | 14 | | Spacemacs Dark | [[./img/spacemacs-dark-572x122.png]] | 15 | --------------------------------------------------------------------------------