{-# 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