aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design')
-rw-r--r--src/server/Design/Color.hs17
-rw-r--r--src/server/Design/Global.hs22
2 files changed, 21 insertions, 18 deletions
diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index f5bd59d..0a84c9e 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -5,17 +5,20 @@ import qualified Clay.Color as C
white :: C.Color
white = C.white
+redError :: C.Color
+redError = C.red
+
red :: C.Color
-red = C.red
+red = C.rgb 207 92 86
-brown :: C.Color
-brown = C.brown
+green :: C.Color
+green = C.rgb 169 220 175
-orange :: C.Color
-orange = C.orange
+blue :: C.Color
+blue = C.rgb 108 162 164
-green :: C.Color
-green = C.rgb 165 213 42
+paymentFocus :: C.Color
+paymentFocus = C.rgb 255 223 196
darkgrey :: C.Color
darkgrey = C.rgb 150 150 150
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index f61fa66..7b5138f 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -28,7 +28,7 @@ global = do
h1 ? do
fontSize (px 40)
textAlign (alignSide sideCenter)
- color C.brown
+ color C.red
lineHeight (px headerHeight)
button # ".signOut" ? do
@@ -42,7 +42,7 @@ global = do
height (px iconHeight)
lineHeight (px iconHeight)
backgroundColor C.white
- color C.brown
+ color C.red
borderWidth (px 0)
fontSize (px iconFontSize)
hover & transform (scale 1.2 1.2)
@@ -101,13 +101,13 @@ global = do
height (px inputHeight)
".name.error" <> ".cost.error" ? do
- input ? borderColor C.red
- label ? backgroundColor C.red
- "input:focus + label" ? backgroundColor C.red
+ input ? borderColor C.redError
+ label ? backgroundColor C.redError
+ "input:focus + label" ? backgroundColor C.redError
".errorMessage" ? do
position absolute
- color C.red
+ color C.redError
top (px (inputHeight + 10))
left (px 0)
@@ -120,7 +120,7 @@ global = do
".header" <> ".row" ? display tableRow
".header" ? do
- backgroundColor C.brown
+ backgroundColor C.red
color C.white
fontSize (px iconFontSize)
lineHeight (px 70)
@@ -131,7 +131,7 @@ global = do
lineHeight (px 60)
nthChild "odd" & backgroundColor C.lightGrey
".edition" & do
- backgroundColor C.orange
+ backgroundColor C.paymentFocus
".remove" ? visibility visible
".cell" ? do
@@ -144,7 +144,7 @@ global = do
width (px 10)
height (px 10)
textAlign (alignSide sideCenter)
- backgroundColor C.brown
+ backgroundColor C.red
color C.white
visibility hidden
@@ -173,7 +173,7 @@ global = do
marginTop (px 40)
textAlign (alignSide sideCenter)
".success" ? color C.green
- ".error" ? color C.red
+ ".error" ? color C.redError
clearFix :: Css
clearFix =
@@ -184,7 +184,7 @@ clearFix =
defaultButton :: Css
defaultButton = do
- backgroundColor C.brown
+ backgroundColor C.red
color C.white
borderWidth (px 0)
borderRadius (px 3) (px 3) (px 3) (px 3)