1 files changed, 35 insertions, 0 deletions
diff --git a/css/Body.hs b/css/Body.hs
new file mode 100644
index 0000000..74aa969
--- /dev/null
+++ b/css/Body.hs
@@ -0,0 +1,35 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Body
+  ( style
+  ) where
+
+import           Clay    hiding (style)
+import           Prelude hiding ((**))
+
+import qualified Color
+import qualified Link
+import qualified Media
+import qualified Size
+
+style :: Css
+style = do
+
+  ".Body__Container" ** p ? do
+    lineHeight (px 28)
+
+  ".Body__Container" ** ul ? do
+    paddingLeft (px 0)
+    Media.desktop $ margin (px 20) (px 0) (px 20) (px 30)
+    Media.tablet $ margin (px 15) (px 0) (px 15) (px 20)
+    Media.mobile $ marginBottom Size.listItemSep
+
+  ".Body__Container" ** li ? do
+    Size.lineHeight
+    before & do
+      content (stringContent "•")
+      color Color.red
+      display inlineBlock
+      marginRight (px 10)
+
+  Link.style (".Body__Container" ** a)