blob: b9e3cf8d5a7f19d2c6107ef54064ed65ae6ed0ce (
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
|
module Design.Views
( design
) where
import Clay
import qualified Design.View.Header as Header
import qualified Design.View.Payment as Payment
import qualified Design.View.SignIn as SignIn
import qualified Design.View.Stat as Stat
import qualified Design.View.Table as Table
import qualified Design.Color as Color
import qualified Design.Constants as Constants
import qualified Design.Helper as Helper
import qualified Design.Media as Media
design :: Css
design = do
header ? Header.design
".payment" ? Payment.design
".signIn" ? SignIn.design
".stat" ? Stat.design
Table.design
".withMargin" ? do
"margin" -: "0 2vw"
".titleButton" ? do
h1 ? do
Media.tabletDesktop $ float floatLeft
button ? do
Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
Media.tabletDesktop $ do
float floatRight
position relative
top (px (-8))
Media.mobile $ do
width (pct 100)
marginBottom (px 20)
".tag" ? do
sym borderRadius (px 4)
sym2 padding (px 2) (px 5)
boxShadow . pure . bsColor (rgba 0 0 0 0.3) $ shadowWithBlur (px 2) (px 2) (px 5)
color Color.white
|
