From f4b8c0df041b063c0b47d2ec6c818a9c202fd833 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 15 Apr 2020 09:54:10 -0700
Subject: Re-namespacing

Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.
---
 Biz/Ibb/Look.hs | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 Biz/Ibb/Look.hs

(limited to 'Biz/Ibb/Look.hs')

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
-- 
cgit v1.2.3