{-# 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
    Media.desktop $ marginRight (pct 20)
    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)