module Clay.Size
(
Size
, Abs
, Rel
, nil
, unitless
, cm
, mm
, inches
, px
, pt
, pc
, em
, ex
, pct
, rem
, vw
, vh
, vmin
, vmax
, sym
, sym2
, sym3
, Angle
, Deg
, Rad
, Grad
, Turn
, deg
, rad
, grad
, turn
)
where
import Data.Monoid
import Prelude hiding (rem)
import Clay.Common
import Clay.Property
import Clay.Stylesheet
data Rel
data Abs
newtype Size a = Size Value
deriving (Val, Auto, Normal, Inherit, None, Other)
nil :: Size a
nil = Size "0"
unitless :: Double -> Size a
unitless i = Size (value i)
cm, mm, inches, px, pt, pc :: Double -> Size Abs
cm i = Size (value i <> "cm")
mm i = Size (value i <> "mm")
inches i = Size (value i <> "in")
px i = Size (value i <> "px")
pt i = Size (value i <> "pt")
pc i = Size (value i <> "pc")
em, ex, pct, rem, vw, vh, vmin, vmax :: Double -> Size Rel
em i = Size (value i <> "em")
ex i = Size (value i <> "ex")
pct i = Size (value i <> "%")
rem i = Size (value i <> "rem")
vw i = Size (value i <> "vw")
vh i = Size (value i <> "vh")
vmin i = Size (value i <> "vmin")
vmax i = Size (value i <> "vmax")
instance Num (Size Abs) where
fromInteger = px . fromInteger
(+) = error "plus not implemented for Size"
(*) = error "times not implemented for Size"
abs = error "abs not implemented for Size"
signum = error "signum not implemented for Size"
negate = error "negate not implemented for Size"
instance Fractional (Size Abs) where
fromRational = px . fromRational
recip = error "recip not implemented for Size"
instance Num (Size Rel) where
fromInteger = pct . fromInteger
(+) = error "plus not implemented for Size"
(*) = error "times not implemented for Size"
abs = error "abs not implemented for Size"
signum = error "signum not implemented for Size"
negate = error "negate not implemented for Size"
instance Fractional (Size Rel) where
fromRational = pct . fromRational
recip = error "recip not implemented for Size"
sym :: (a -> a -> a -> a -> Css) -> a -> Css
sym k a = k a a a a
sym3 :: (a -> a -> a -> a -> Css) -> a -> a -> a -> Css
sym3 k tb l r = k tb l tb r
sym2 :: (a -> a -> a -> a -> Css) -> a -> a -> Css
sym2 k tb lr = k tb lr tb lr
data Deg
data Rad
data Grad
data Turn
newtype Angle a = Angle Value
deriving (Val, Auto, Inherit, Other)
deg :: Double -> Angle Deg
deg i = Angle (value i <> "deg")
rad :: Double -> Angle Rad
rad i = Angle (value i <> "rad")
grad :: Double -> Angle Grad
grad i = Angle (value i <> "grad")
turn :: Double -> Angle Turn
turn i = Angle (value i <> "turn")
instance Num (Angle Deg) where
fromInteger = deg . fromInteger
(+) = error "plus not implemented for Angle"
(*) = error "times not implemented for Angle"
abs = error "abs not implemented for Angle"
signum = error "signum not implemented for Angle"
negate = error "negate not implemented for Angle"
instance Fractional (Angle Deg) where
fromRational = deg . fromRational
recip = error "recip not implemented for Angle"
instance Num (Angle Rad) where
fromInteger = rad . fromInteger
(+) = error "plus not implemented for Angle"
(*) = error "times not implemented for Angle"
abs = error "abs not implemented for Angle"
signum = error "signum not implemented for Angle"
negate = error "negate not implemented for Angle"
instance Fractional (Angle Rad) where
fromRational = rad . fromRational
recip = error "recip not implemented for Angle"
instance Num (Angle Grad) where
fromInteger = grad . fromInteger
(+) = error "plus not implemented for Angle"
(*) = error "times not implemented for Angle"
abs = error "abs not implemented for Angle"
signum = error "signum not implemented for Angle"
negate = error "negate not implemented for Angle"
instance Fractional (Angle Grad) where
fromRational = grad . fromRational
recip = error "recip not implemented for Angle"
instance Num (Angle Turn) where
fromInteger = turn . fromInteger
(+) = error "plus not implemented for Angle"
(*) = error "times not implemented for Angle"
abs = error "abs not implemented for Angle"
signum = error "signum not implemented for Angle"
negate = error "negate not implemented for Angle"
instance Fractional (Angle Turn) where
fromRational = turn . fromRational
recip = error "recip not implemented for Angle"