blob: 6ef5659d80ea73503aaccda8cd790712a8c11054 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{-# 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 []
|
