blob: 662c4d0a9f016ad32bd8dff800ade2afa1b7ab4e (
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
35
36
37
38
39
40
|
{-# 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 []
|
