{-# LANGUAGE OverloadedStrings #-}

module Blunt.Style where

import Clay

import Data.Monoid ((<>))
import Data.Text.Lazy (Text)
import Prelude hiding (div)

style :: Text
style = renderWith compact [] css

css :: Css
css = do
    html <> body ? do
        backgroundColor "#f5f5f5"
        color "#151515"
        fontFamily [] [sansSerif]
        lineHeight (em 1.5)
        sym margin nil
        sym padding nil

    body ? do
        boxSizing borderBox
        sym2 margin nil auto
        maxWidth (em 40)
        sym2 padding nil (em 1.5)

    h1 ? do
        color "#90a959"
        fontSize (em 2)
        fontWeight bold
        lineHeight (em 3)
        sym margin nil
        textAlign (alignSide sideCenter)

    dl ? do
        sym margin nil

    dt ? do
        marginTop (em 1.5)

    dd ? do
        sym margin nil

    input <> div ? do
        border solid (px 1) "#e0e0e0"
        boxSizing borderBox
        fontFamily [] [monospace]
        fontSize (em 1)
        width (pct 100)

    input ? do
        height (em 3)
        lineHeight (em 3)
        sym2 padding nil (em 0.75)

    div ? do
        sym padding (em 0.75)
        whiteSpace preWrap

    p ? do
        margin (em 1.5) nil nil nil
        textAlign (alignSide sideCenter)