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

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

-- | The look and feel of Ibb
module Com.InfluencedByBooks.Look  where

import Com.Simatime.Alpha
import Clay
import qualified Clay.Stylesheet               as Stylesheet
import qualified Clay.Render                   as Clay
import qualified Clay.Flexbox                  as Flexbox
import qualified Clay.Media                    as Media

main :: Css
main = do
  "html" <> "body" ? do
    width (pc 100)
    display flex
    flexDirection column
    alignItems center
    alignContent center
    justifyContent center
  ".container" ? do
    width (px 900)
    display flex
    justifyContent center
    flexDirection column