module Language.Ltml.HTML.CSS.Color
    ( -- * Table Colors
      tocDarkCell
    , tocActiveRow
    , tocCellBorder
    , tableCellBorder

      -- * Link Colors
    , linkText
    , linkTextHover
    , linkUnderline

      -- * Error Colors
    , errorText
    , errorBoxBorder
    ) where

import Clay

tocDarkCell :: Color
tocDarkCell :: Color
tocDarkCell = Integer -> Color
grayish Integer
225

tocActiveRow :: Color
tocActiveRow :: Color
tocActiveRow = Float -> Color -> Color
darken Float
0.2 Color
tocDarkCell

tocCellBorder :: Color
tocCellBorder :: Color
tocCellBorder = Integer -> Color
grayish Integer
180

tableCellBorder :: Color
tableCellBorder :: Color
tableCellBorder = Integer -> Color
grayish Integer
40

-------------------------------------------------------------------------------

linkText :: Color
linkText :: Color
linkText = Integer -> Integer -> Integer -> Color
rgb Integer
0 Integer
0 Integer
100

linkTextHover :: Color
linkTextHover :: Color
linkTextHover = Color
red

linkUnderline :: Color
linkUnderline :: Color
linkUnderline = Color
red

-------------------------------------------------------------------------------

errorText :: Color
errorText :: Color
errorText = Color
red

errorBoxBorder :: Color
errorBoxBorder :: Color
errorBoxBorder = Color
red