blob: d36a728a4c6a2c6199a50cb96c37ac4e2fddd0a0 (
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
|
module Design.Views
( design
) where
import Clay
import qualified Design.Color as Color
import qualified Design.Constants as Constants
import qualified Design.Helper as Helper
import qualified Design.Media as Media
import qualified Design.View.ConfirmDialog as ConfirmDialog
import qualified Design.View.Header as Header
import qualified Design.View.NotFound as NotFound
import qualified Design.View.Pages as Pages
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
design :: Css
design = do
header ? Header.design
Payment.design
".signIn" ? SignIn.design
".stat" ? Stat.design
".notfound" ? NotFound.design
Table.design
Pages.design
ConfirmDialog.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
|
