module Design.Constants where

import           Clay

iconFontSize :: Size LengthUnit
iconFontSize = px 32

radius :: Size LengthUnit
radius = px 3

blockPadding :: Size LengthUnit
blockPadding = px 15

blockPercentWidth :: Double
blockPercentWidth = 90

blockPercentMargin :: Double
blockPercentMargin = (100 - blockPercentWidth) / 2

inputHeight :: Double
inputHeight = 40

focusLighten :: Color -> Color
focusLighten baseColor = baseColor +. 20

focusDarken :: Color -> Color
focusDarken baseColor = baseColor -. 20