diff options
author | Joris | 2015-09-03 21:56:17 +0200 |
---|---|---|
committer | Joris | 2015-09-03 21:56:17 +0200 |
commit | ebd304d97b612d0ac4ea276b1c29ba8ecc0b7998 (patch) | |
tree | 31f2d80792228b399e0a8a93f4ad15b629d5ebe2 /src/server/Design/Media.hs | |
parent | c7ca925e44c118189b6f27c40955640090f6cd20 (diff) | |
download | budget-ebd304d97b612d0ac4ea276b1c29ba8ecc0b7998.tar.gz budget-ebd304d97b612d0ac4ea276b1c29ba8ecc0b7998.tar.bz2 budget-ebd304d97b612d0ac4ea276b1c29ba8ecc0b7998.zip |
Adapting design to smaller screens
Diffstat (limited to 'src/server/Design/Media.hs')
-rw-r--r-- | src/server/Design/Media.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/server/Design/Media.hs b/src/server/Design/Media.hs new file mode 100644 index 0000000..925e2f9 --- /dev/null +++ b/src/server/Design/Media.hs @@ -0,0 +1,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 - 1))] + +largeFeature :: [Feature] +largeFeature = [M.minWidth (px limit)] + +smallScreen :: Css -> Css +smallScreen = query M.screen smallFeature + +largeScreen :: Css -> Css +largeScreen = query M.screen largeFeature |