{-# LANGUAGE OverloadedStrings #-}

module View.Html.Design
  ( definitionList
  , definitionDescription
  , price
  , pro
  ) where

import Data.Text.Lazy (Text)
import qualified Data.Text.Lazy as T

import Clay

definitionList :: Text
definitionList = inlineRender $ do
  fontWeight bold
  fontSize (px 16)

definitionDescription :: Text
definitionDescription = inlineRender $ do
  marginLeft (px 0)
  marginBottom (px 10)
  color orangered

pro :: Text
pro = inlineRender $ do
  marginLeft (px 10)
  color (rgb 122 179 88)

price :: Text
price = inlineRender $ do
  marginLeft (px 10)
  color orangered

inlineRender :: Css -> Text
inlineRender =
  T.dropEnd 1
  . T.drop 1
  . renderWith compact []