blob: 7074f655dc184f9f1e43a407afbaf0ccea5a2374 (
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
72
73
74
75
76
77
78
79
80
81
82
83
|
{-# LANGUAGE OverloadedStrings #-}
module Design.Global
( globalDesign
) where
import qualified Prelude
import Prelude
import Clay
import Data.Monoid ((<>))
import Data.Text.Lazy (Text)
import Design.Color as C
globalDesign :: Text
globalDesign = renderWith compact [] global
iconFontSize :: Integer
iconFontSize = 32
global :: Css
global = do
header ? do
let headerHeight = 120
h1 ? do
fontSize (px 40)
textAlign (alignSide sideCenter)
color C.brown
lineHeight (px headerHeight)
button # ".signOut" ? do
let iconHeight = 50
let sideMargin = ((headerHeight - iconHeight) `Prelude.div` 2)
position absolute
top (px 0)
right (px 10)
marginTop (px sideMargin)
marginRight (px sideMargin)
height (px iconHeight)
lineHeight (px iconHeight)
backgroundColor C.white
color C.brown
borderWidth (px 0)
fontSize (px iconFontSize)
hover & transform (scale 1.2 1.2)
table ? do
width (pct 100)
textAlign (alignSide (sideCenter))
"border-spacing" -: "10 px"
th ? do
backgroundColor C.brown
color C.white
fontSize (px iconFontSize)
lineHeight (px 70)
tr ? do
fontSize (px 20)
lineHeight (px 60)
nthChild "odd" & backgroundColor C.lightGrey
form # ".signIn" ? do
let inputHeight = 50
marginTop (px 80)
marginBottom (px 80)
width (pct 60)
marginLeft auto
marginRight auto
input ? do
width (pct 80)
padding (px 10) (px 10) (px 10) (px 10)
height (px inputHeight)
button ? do
width (pct 20)
height (px inputHeight)
backgroundColor C.brown
color C.white
borderWidth (px 0)
|