module Clay.Box
( BoxType
, paddingBox, borderBox, contentBox
, boxSizing
, boxShadow
)
where
import Data.Monoid
import Clay.Color
import Clay.Common
import Clay.Property
import Clay.Stylesheet
import Clay.Size
newtype BoxType = BoxType Value
deriving (Val, Inherit)
paddingBox, borderBox, contentBox :: BoxType
paddingBox = BoxType "padding-box"
borderBox = BoxType "border-box"
contentBox = BoxType "content-box"
boxSizing :: BoxType -> Css
boxSizing = prefixed (browsers <> "box-sizing")
boxShadow :: Size a -> Size a -> Size a -> Color -> Css
boxShadow x y w c = prefixed (browsers <> "box-shadow") (x ! y ! w ! c)