blob: acc9e34a277af477d349dbcf897d5a9ce9c22920 (
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
41
42
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
-- | The look and feel of Ibb
module Com.InfluencedByBooks.Look where
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
import Com.Simatime.Alpha hiding (Selector)
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
|
