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