blob: 5f7ca6b9035a19351ac2ca8a3c64dfeafd72b26d (
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 ? do
fontFamily
[ "Palatino"
, "Palatino Linotype"
, "Hoefler Text"
, "Times New Roman"
, "Times"
]
[serif]
headings :: Selector
headings = h1 <> h2 <> h3 <> h4 <> h5 <> h6
|
