module Design.Constants where

import Clay

iconFontSize :: Size Abs
iconFontSize = px 32

radius :: Size Abs
radius = px 3

blockPadding :: Size Abs
blockPadding = px 15

blockPercentWidth :: Double
blockPercentWidth = 90

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

blockMarginBottom :: Size Abs
blockMarginBottom = px 50

rowHeightPx :: Integer
rowHeightPx = 60

inputHeight :: Integer
inputHeight = 40

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

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