1 files changed, 40 insertions, 0 deletions
diff --git a/Biz/Ibb/Look.hs b/Biz/Ibb/Look.hs
new file mode 100644
index 0000000..5f7ca6b
--- /dev/null
+++ b/Biz/Ibb/Look.hs
@@ -0,0 +1,40 @@
+{-# 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 ? do
+    fontFamily
+      [ "Palatino"
+      , "Palatino Linotype"
+      , "Hoefler Text"
+      , "Times New Roman"
+      , "Times"
+      ]
+      [serif]
+
+headings :: Selector
+headings = h1 <> h2 <> h3 <> h4 <> h5 <> h6