blob: 50cda9e5139fc7f45810c44c27f907964f5d4c79 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
-- | The look and feel of Ibb
module Biz.Ibb.Look where
import Alpha hiding (Selector)
import Clay
import qualified Clay.Flexbox as Flexbox
import qualified Clay.Media as Media
import qualified Clay.Render as Clay
import qualified Clay.Stylesheet as Stylesheet
main :: Css
main = do
"html" <> "body" ? do
width (pct 100)
display flex
flexDirection column
alignItems center
alignContent center
justifyContent center
".container" ? do
maxWidth (px 900)
display flex
justifyContent center
flexDirection column
fontFamily ["GillSans", "Calibri", "Trebuchet"] [sansSerif]
headings
? fontFamily
[ "Palatino",
"Palatino Linotype",
"Hoefler Text",
"Times New Roman",
"Times"
]
[serif]
headings :: Selector
headings = h1 <> h2 <> h3 <> h4 <> h5 <> h6
|
