Com/InfluencedByBooks/Look.hs


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 Com.InfluencedByBooks.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