blob: e7f5aec12077dd6a3a66347cc29520767ef35113 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
module Design.Color where
import Clay
import qualified Clay.Color as C
import Data.Text (Text)
-- http://chir.ag/projects/name-that-color/#969696
white :: C.Color
white = C.white
black :: C.Color
black = C.black
chestnutRose :: C.Color
chestnutRose = C.rgb 207 92 86
unknown :: C.Color
unknown = C.rgb 86 92 207
mossGreen :: C.Color
mossGreen = C.rgb 159 210 165
gothic :: C.Color
gothic = C.rgb 108 162 164
negroni :: C.Color
negroni = C.rgb 255 223 196
wildSand :: C.Color
wildSand = C.rgb 245 245 245
silver :: C.Color
silver = C.rgb 200 200 200
dustyGray :: C.Color
dustyGray = C.rgb 150 150 150
toString :: C.Color -> Text
toString = plain . unValue . value
|
