blob: 6e3cbe6800e2606dec3d868bf44bd7dfcf3827e6 (
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
84
85
86
87
88
89
|
{-# LANGUAGE OverloadedStrings #-}
module Design.Global
( globalDesign
) where
import qualified Prelude
import Prelude
import Clay
import Data.Text.Lazy (Text)
import Design.Color as C
globalDesign :: Text
globalDesign = renderWith compact [] global
iconFontSize :: Integer
iconFontSize = 32
global :: Css
global = do
input ? do
borderRadius (px 0) (px 0) (px 0) (px 0)
border solid (px 1) C.grey
header ? do
let headerHeight = 150
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
".signIn" ? do
let inputHeight = 50
width (px 500)
marginTop (px 50)
marginLeft auto
marginRight auto
input ? do
display block
width (pct 100)
padding (px 10) (px 10) (px 10) (px 10)
height (px inputHeight)
marginBottom (px 10)
button ? do
display block
width (pct 100)
height (px inputHeight)
backgroundColor C.brown
color C.white
borderWidth (px 0)
borderRadius (px 3) (px 3) (px 3) (px 3)
|
