Modifying colors thanks to paletton

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)