module Design.Media
  ( smallScreen
  , largeScreen
  ) where

import Clay
import Clay.Stylesheet
import qualified Clay.Media as M

limit :: Integer
limit = 950

smallFeature :: [Feature]
smallFeature = [M.maxWidth (px limit)]

largeFeature :: [Feature]
largeFeature = [M.minWidth (px limit)]

smallScreen :: Css -> Css
smallScreen = query M.screen smallFeature

largeScreen :: Css -> Css
largeScreen = query M.screen largeFeature