blob: ba7127c14f1bba7a5ccbb0068fe82f086682dce8 (
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
{-# LANGUAGE OverloadedStrings #-}
import Clay
import Data.Monoid ((<>))
color1 = rgb 113 68 30
color2 = rgb 13 13 81
main :: IO ()
main = putCss $ do
body ? do
maxWidth (px 600)
sym2 margin (px 0) auto
"a.header" ? do
display block
sym2 padding (px 15) (px 0)
margin (px 0) auto (px 30) auto
backgroundColor color1
color white
fontWeight bold
textAlign center
fontSize (px 36)
hover & textDecoration none
a ? do
textDecoration none
color color2
hover & textDecoration underline
h1 ? color color1
h2 ? color color1
h3 ? color color1
(ul <> ol) ? do
listStyleType none
paddingLeft (px 15)
fontSize (px 18)
li ? do
marginBottom (em 0.5)
lineHeight (em 1.4)
(ol <> ul) |> li |> (ol <> ul) ? do
marginTop (em 0.5)
marginLeft (px 30)
ul |> li ? do
let bulletSize = (px 6)
before & do
display inlineBlock
content (stringContent "")
width bulletSize
height bulletSize
backgroundColor color1
sym borderRadius bulletSize
marginRight (px 15)
verticalAlign middle
ol ? do
"counter-reset" -: "ol"
li ? do
before & do
display inline
"counter-increment" -: "ol"
"content" -: "counter(ol)\".\""
marginRight (px 10)
color color1
|
