summaryrefslogtreecommitdiff
path: root/Biz/Ibb/Look.hs
blob: 1ab12c198fe7aeb95c2a218ce18b7458b17c7b31 (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