ibb css font stack and some other fixes

1 files changed, 23 insertions, 8 deletions

diff --git a/Com/InfluencedByBooks/Look.hs b/Com/InfluencedByBooks/Look.hs
index d61fc11..acc9e34 100644
--- a/Com/InfluencedByBooks/Look.hs
+++ b/Com/InfluencedByBooks/Look.hs
@@ -4,24 +4,39 @@
 -- | The look and feel of Ibb
 module Com.InfluencedByBooks.Look  where
 
-import Com.Simatime.Alpha
-import Clay
-import qualified Clay.Stylesheet               as Stylesheet
-import qualified Clay.Render                   as Clay
-import qualified Clay.Flexbox                  as Flexbox
-import qualified Clay.Media                    as Media
+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 (pc 100)
+    width (pct 100)
     display flex
     flexDirection column
     alignItems center
     alignContent center
     justifyContent center
   ".container" ? do
-    width (px 900)
+    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