|
1 " |
|
2 COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG |
|
3 COPYRIGHT (c) 2015-2016 Jan Vrany |
|
4 All Rights Reserved |
|
5 |
|
6 This software is furnished under a license and may be used |
|
7 only in accordance with the terms of that license and with the |
|
8 inclusion of the above copyright notice. This software may not |
|
9 be provided or otherwise made available to, or used by, any |
|
10 other person. No title to or ownership of the software is |
|
11 hereby transferred. |
|
12 " |
|
13 "{ Package: 'stx:libtool' }" |
|
14 |
|
15 "{ NameSpace: Smalltalk }" |
|
16 |
|
17 CodeViewTheme subclass:#Solarized |
|
18 instanceVariableNames:'' |
|
19 classVariableNames:'Base03 Base02 Base01 Base00 Base0 Base1 Base2 Base3 Yellow Orange |
|
20 Red Magenta Violet Blue Cyan Green' |
|
21 poolDictionaries:'' |
|
22 category:'Views-Text-Theme' |
|
23 ! |
|
24 |
|
25 !Solarized class methodsFor:'documentation'! |
|
26 |
|
27 copyright |
|
28 " |
|
29 COPYRIGHT (c) 1988 by Claus Gittinger / eXept Software AG |
|
30 COPYRIGHT (c) 2015-2016 Jan Vrany |
|
31 All Rights Reserved |
|
32 |
|
33 This software is furnished under a license and may be used |
|
34 only in accordance with the terms of that license and with the |
|
35 inclusion of the above copyright notice. This software may not |
|
36 be provided or otherwise made available to, or used by, any |
|
37 other person. No title to or ownership of the software is |
|
38 hereby transferred. |
|
39 " |
|
40 ! ! |
|
41 |
|
42 !Solarized class methodsFor:'initialization'! |
|
43 |
|
44 initialize |
|
45 "Invoked at system start or when the class is dynamically loaded." |
|
46 |
|
47 "/ please change as required (and remove this comment) |
|
48 |
|
49 Base03 := Color rgbValue: 16r002b36. |
|
50 Base02 := Color rgbValue: 16r073642. |
|
51 Base01 := Color rgbValue: 16r586e75. |
|
52 Base00 := Color rgbValue: 16r657b83. |
|
53 Base0 := Color rgbValue: 16r839496. |
|
54 Base1 := Color rgbValue: 16r93a1a1. |
|
55 Base2 := Color rgbValue: 16reee8d5. |
|
56 Base3 := Color rgbValue: 16rfdf6e3. |
|
57 Yellow :=Color rgbValue: 16rb58900. |
|
58 Orange := Color rgbValue: 16rcb4b16. |
|
59 Red := Color rgbValue: 16rdc322f. |
|
60 Magenta := Color rgbValue: 16rd33682. |
|
61 Violet := Color rgbValue: 16r6c71c4. |
|
62 Blue := Color rgbValue: 16r268bd2. |
|
63 Cyan := Color rgbValue: 16r2aa198. |
|
64 Green := Color rgbValue: 16r859900. |
|
65 |
|
66 "Modified: / 11-12-2017 / 16:23:59 / jv" |
|
67 ! ! |
|
68 |
|
69 !Solarized methodsFor:'styles'! |
|
70 |
|
71 badIdentifierEmphasis |
|
72 "the emphasis used for illegal identifiers; |
|
73 If syntaxColoring is turned on." |
|
74 |
|
75 ^ self errorEmphasis |
|
76 |
|
77 "Created: / 20-12-2017 / 22:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
78 ! |
|
79 |
|
80 commentColor |
|
81 "the color used for comments; |
|
82 If syntaxColoring is turned on." |
|
83 |
|
84 ^ Base01 |
|
85 |
|
86 "Created: / 15-12-2017 / 22:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
87 "Modified: / 16-12-2017 / 20:09:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
88 ! |
|
89 |
|
90 constantColor |
|
91 "the color used for constants; |
|
92 If syntaxColoring is turned on." |
|
93 |
|
94 ^ Cyan |
|
95 |
|
96 "Created: / 15-12-2017 / 22:56:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
97 "Modified: / 16-01-2019 / 19:12:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
98 ! |
|
99 |
|
100 debugSelectorColor |
|
101 "the color used for some selected debug |
|
102 selectors (such as halt etc.); |
|
103 If syntaxColoring is turned on. |
|
104 If left nil, the normal selector color is used." |
|
105 |
|
106 ^ Red |
|
107 |
|
108 "Created: / 16-12-2017 / 21:40:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
109 ! |
|
110 |
|
111 defaultSyntaxBackground |
|
112 "Return a background color for the code editor. If nil is returned, |
|
113 a TextView's default background is used instread." |
|
114 |
|
115 ^ Base3 |
|
116 |
|
117 "Created: / 11-12-2017 / 17:39:33 / jv" |
|
118 "Modified: / 16-12-2017 / 20:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
119 ! |
|
120 |
|
121 defaultSyntaxColor |
|
122 "the color used for anything else; |
|
123 If syntaxColoring is turned on." |
|
124 |
|
125 ^ Color black |
|
126 |
|
127 "Created: / 11-12-2017 / 17:39:45 / jv" |
|
128 "Modified: / 16-12-2017 / 21:39:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
129 ! |
|
130 |
|
131 errorColor |
|
132 "the color used for the thisContext pseudoVariable; |
|
133 If syntaxColoring is turned on." |
|
134 |
|
135 ^ Red |
|
136 |
|
137 "Created: / 20-12-2017 / 22:48:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
138 ! |
|
139 |
|
140 errorEmphasis |
|
141 ^ (Array with:#underwave with:(#underlineColor->Red)) |
|
142 |
|
143 "Created: / 20-12-2017 / 22:51:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
144 ! |
|
145 |
|
146 globalIdentifierEmphasis |
|
147 "the color used for global identifiers; |
|
148 If syntaxColoring is turned on." |
|
149 |
|
150 ^ #bold |
|
151 |
|
152 "Created: / 16-12-2017 / 21:39:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
153 ! |
|
154 |
|
155 identifierColor |
|
156 "the color used for other identifiers; |
|
157 If syntaxColoring is turned on." |
|
158 |
|
159 ^ Blue |
|
160 |
|
161 " |
|
162 UserPreferences current at:#identifierColor put:Color green darkened darkened. |
|
163 UserPreferences current at:#identifierColor put:Color black. |
|
164 " |
|
165 |
|
166 "Created: / 16-12-2017 / 21:41:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
167 ! |
|
168 |
|
169 methodSelectorEmphasis |
|
170 "the emphasis used for a methods selector pattern; |
|
171 If syntaxColoring is turned on." |
|
172 |
|
173 ^ #bold |
|
174 |
|
175 "Created: / 16-12-2017 / 21:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
176 ! |
|
177 |
|
178 numberConstantColor |
|
179 "the color used for number constants; |
|
180 If syntaxColoring is turned on." |
|
181 |
|
182 ^ Magenta |
|
183 |
|
184 "Created: / 16-12-2017 / 20:10:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
185 ! |
|
186 |
|
187 selfColor |
|
188 "the color used for the self pseudoVariable; |
|
189 If syntaxColoring is turned on." |
|
190 |
|
191 ^ Green |
|
192 |
|
193 "Created: / 16-12-2017 / 20:11:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
194 "Modified: / 16-01-2019 / 19:13:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
195 ! |
|
196 |
|
197 selfEmphasis |
|
198 "the emphasis used for the self pseudoVariable; |
|
199 If syntaxColoring is turned on." |
|
200 |
|
201 ^ #bold |
|
202 |
|
203 "Created: / 16-01-2019 / 19:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
204 ! |
|
205 |
|
206 thisContextColor |
|
207 "the color used for the thisContext pseudoVariable; |
|
208 If syntaxColoring is turned on." |
|
209 |
|
210 ^ Green |
|
211 |
|
212 "Created: / 15-12-2017 / 22:58:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
213 ! |
|
214 |
|
215 unimplementedSelectorColor |
|
216 "the color used for bad message selectors; |
|
217 If syntaxColoring is turned on." |
|
218 |
|
219 ^ self selectorColor |
|
220 |
|
221 "Created: / 20-12-2017 / 22:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
222 ! |
|
223 |
|
224 unimplementedSelectorEmphasis |
|
225 "the emphasis used for bad message selectors; |
|
226 If syntaxColoring is turned on." |
|
227 |
|
228 ^ self errorEmphasis |
|
229 |
|
230 "Created: / 20-12-2017 / 22:49:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
231 ! ! |
|
232 |
|
233 !Solarized methodsFor:'styles - navigation'! |
|
234 |
|
235 assignmentHighlightEmphasis |
|
236 ^ Array with:(#backgroundColor -> Red lighter) |
|
237 |
|
238 "Created: / 15-12-2017 / 22:49:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
239 ! |
|
240 |
|
241 selectorHighlightEmphasis |
|
242 ^ Array with:(#backgroundColor -> Blue lighter) |
|
243 |
|
244 "Created: / 15-12-2017 / 22:49:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
245 ! |
|
246 |
|
247 variableHighlightEmphasis |
|
248 ^ Array with:(#backgroundColor -> Yellow lighter) |
|
249 |
|
250 "Created: / 15-12-2017 / 22:49:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
251 ! ! |
|
252 |
|
253 !Solarized class methodsFor:'documentation'! |
|
254 |
|
255 version_HG |
|
256 |
|
257 ^ '$Changeset: <not expanded> $' |
|
258 ! ! |
|
259 |
|
260 |
|
261 Solarized initialize! |