diff options
| -rw-r--r-- | Com/InfluencedByBooks/Look.hs | 31 |
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 |