{-# LANGUAGE OverloadedStrings #-}

module View.Html.Design
  ( dlDesign
  , ddDesign
  , priceDesign
  ) where

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

import Clay

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

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

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

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