summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-11-02 18:25:24 -0700
committerBen Sima <ben@bsima.me>2019-11-02 18:25:24 -0700
commit521245f0381bfac43a527275d86092ae7cb9ce51 (patch)
tree542c39e839301fa2f254969ddfc91d8a756d99db
parent457f73ab360b641a15542c7a86f4e51ea0e1abb1 (diff)
ibb css font stack and some other fixes
-rw-r--r--Com/InfluencedByBooks/Look.hs31
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