{-# 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 ? fontFamily [ "Palatino", "Palatino Linotype", "Hoefler Text", "Times New Roman", "Times" ] [serif] headings :: Selector headings = h1 <> h2 <> h3 <> h4 <> h5 <> h6