-- |

module Test.Sandwich.Formatters.Print.Color where

import Data.Colour.RGBSpace
import Data.Colour.SRGB

expectedColor :: Colour Float
expectedColor = Colour Float
midWhite
sawColor :: Colour Float
sawColor = Colour Float
midWhite
integerColor :: Colour Float
integerColor = Colour Float
solarizedMagenta
floatColor :: Colour Float
floatColor = Colour Float
solarizedMagenta
charColor :: Colour Float
charColor = Colour Float
solarizedCyan
stringColor :: Colour Float
stringColor = Colour Float
solarizedYellow
dateColor :: Colour Float
dateColor = Colour Float
solarizedBase2
timeColor :: Colour Float
timeColor = Colour Float
solarizedBase3
quoteColor :: Colour Float
quoteColor = Colour Float
solarizedBase1
slashColor :: Colour Float
slashColor = Colour Float
solarizedViolet
negColor :: Colour Float
negColor = Colour Float
solarizedViolet
listBracketColor :: Colour Float
listBracketColor = Colour Float
solarizedOrange -- TODO: make green?
tupleBracketColor :: Colour Float
tupleBracketColor = Colour Float
solarizedGreen
braceColor :: Colour Float
braceColor = Colour Float
solarizedGreen
ellipsesColor :: Colour Float
ellipsesColor = Colour Float
solarizedBase0
recordNameColor :: Colour Float
recordNameColor = Colour Float
solarizedRed
fieldNameColor :: Colour Float
fieldNameColor = Colour Float
solarizedYellow
constructorNameColor :: Colour Float
constructorNameColor = Colour Float
solarizedViolet


midWhite :: Colour Float
midWhite = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
c Word8
c Word8
c :: Colour Float
  where c :: Word8
c = Word8
0xc0

midGray :: Colour Float
midGray = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
c Word8
c Word8
c :: Colour Float
  where c :: Word8
c = Word8
0x70

solarizedBase03 :: Colour Float
solarizedBase03 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x00 Word8
0x2b Word8
0x36 :: Colour Float
solarizedBase02 :: Colour Float
solarizedBase02 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x07 Word8
0x36 Word8
0x42 :: Colour Float
solarizedBase01 :: Colour Float
solarizedBase01 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x58 Word8
0x6e Word8
0x75 :: Colour Float
solarizedbase00 :: Colour Float
solarizedbase00 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x65 Word8
0x7b Word8
0x83 :: Colour Float
solarizedBase0 :: Colour Float
solarizedBase0 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x83 Word8
0x94 Word8
0x96 :: Colour Float
solarizedBase1 :: Colour Float
solarizedBase1 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x93 Word8
0xa1 Word8
0xa1 :: Colour Float
solarizedBase2 :: Colour Float
solarizedBase2 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0xee Word8
0xe8 Word8
0xd5 :: Colour Float
solarizedBase3 :: Colour Float
solarizedBase3 = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0xfd Word8
0xf6 Word8
0xe3 :: Colour Float
solarizedYellow :: Colour Float
solarizedYellow = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0xb5 Word8
0x89 Word8
0x00 :: Colour Float
solarizedOrange :: Colour Float
solarizedOrange = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0xcb Word8
0x4b Word8
0x16 :: Colour Float
solarizedRed :: Colour Float
solarizedRed = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0xdc Word8
0x32 Word8
0x2f :: Colour Float
solarizedMagenta :: Colour Float
solarizedMagenta = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0xd3 Word8
0x36 Word8
0x82 :: Colour Float
solarizedViolet :: Colour Float
solarizedViolet = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x6c Word8
0x71 Word8
0xc4 :: Colour Float
solarizedBlue :: Colour Float
solarizedBlue = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x26 Word8
0x8b Word8
0xd2 :: Colour Float
solarizedCyan :: Colour Float
solarizedCyan = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x2a Word8
0xa1 Word8
0x98 :: Colour Float
solarizedGreen :: Colour Float
solarizedGreen = Word8 -> Word8 -> Word8 -> Colour Float
forall b.
(Ord b, Floating b) =>
Word8 -> Word8 -> Word8 -> Colour b
sRGB24 Word8
0x85 Word8
0x99 Word8
0x00 :: Colour Float