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