blob: df91505fb571e5be7293eda4de21cbc23a5c487d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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
|
