{-# LANGUAGE OverloadedStrings #-}

import Clay
import Data.Monoid ((<>))

color1 = rgb 113 68 30
color2 = rgb 13 13 81

main :: IO ()
main = putCss $ do

  body ? do
    maxWidth (px 600)
    sym2 margin (px 0) auto

  "a.header" ? do
    display block
    sym2 padding (px 15) (px 0)
    margin (px 0) auto (px 30) auto
    backgroundColor color1
    color white
    fontWeight bold
    textAlign center
    fontSize (px 36)
    hover & textDecoration none

  a ? do
    textDecoration none
    color color2
    hover & textDecoration underline

  h1 ? color color1
  h2 ? color color1
  h3 ? color color1

  (ul <> ol) ? do
    listStyleType none
    paddingLeft (px 15)
    fontSize (px 18)

    li ? do
      marginBottom (em 0.5)
      lineHeight (em 1.4)

  (ol <> ul) |> li |> (ol <> ul) ? do
    marginTop (em 0.5)
    marginLeft (px 30)

  ul |> li ? do
    let bulletSize = (px 6)

    before & do
      display inlineBlock
      content (stringContent "")
      width bulletSize
      height bulletSize
      backgroundColor color1
      sym borderRadius bulletSize
      marginRight (px 15)
      verticalAlign middle

  ol ? do
    "counter-reset" -: "ol"

    li ? do
      before & do
        display inline
        "counter-increment" -: "ol"
        "content" -: "counter(ol)\".\""
        marginRight (px 10)
        color color1