From 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 3 Jun 2016 20:27:16 +0200
Subject: Migrate to elm 0.17

---
 src/server/Design/LoggedIn/Home/Add.hs | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'src/server/Design/LoggedIn/Home/Add.hs')

diff --git a/src/server/Design/LoggedIn/Home/Add.hs b/src/server/Design/LoggedIn/Home/Add.hs
index 1a8b499..f4e001f 100644
--- a/src/server/Design/LoggedIn/Home/Add.hs
+++ b/src/server/Design/LoggedIn/Home/Add.hs
@@ -28,7 +28,7 @@ design = do
       display inlineBlock
       width (px 50)
       textAlign (alignSide sideCenter)
-      backgroundColor Color.mountainMist
+      backgroundColor Color.dustyGray
       color Color.white
       height (px inputHeight)
       lineHeight (px inputHeight)
@@ -40,10 +40,10 @@ design = do
       defaultInput inputHeight
       borderRadius radius (px 0) (px 0) radius
       "width" -: "calc(100% - 40px)"
-    "input:focus + label" ? backgroundColor Color.pumice
+    "input:focus + label" ? backgroundColor Color.silver
     hover & do
-      input ? borderColor Color.pumice
-      label ? backgroundColor Color.pumice
+      input ? borderColor Color.silver
+      label ? backgroundColor Color.silver
 
   ".name" ? minWidth (px 150)
 
@@ -52,36 +52,36 @@ design = do
     marginRight (pct blockPercentMargin)
 
     (".punctual" <> ".monthly") ? do
-      defaultButton Color.mercury Color.mountainMist (px $ inputHeight `Prelude.div` 2) focusLighten
+      defaultButton Color.wildSand Color.dustyGray (px $ inputHeight `Prelude.div` 2) focusLighten
       paddingLeft (px 15)
       paddingRight (px 15)
       ".selected" & do
-        backgroundColor Color.blue
+        backgroundColor Color.gothic
         color Color.white
 
     hover & (".punctual" <> ".monthly") ?
-      ".selected" & backgroundColor (focusLighten Color.blue)
+      ".selected" & backgroundColor (focusLighten Color.gothic)
 
     focus & (".punctual" <> ".monthly") ?
-      ".selected" & backgroundColor (focusLighten Color.blue)
+      ".selected" & backgroundColor (focusLighten Color.gothic)
 
     ".punctual" ? borderRadius radius radius 0 0
     ".monthly" ? borderRadius 0 0 radius radius
 
   button # ".add" ? do
-    defaultButton Color.red Color.white (px inputHeight) focusLighten
+    defaultButton Color.chestnutRose Color.white (px inputHeight) focusLighten
     paddingLeft (px 15)
     paddingRight (px 15)
     i ? marginLeft (px 10)
     ".waitingServer" & ("cursor" -: "not-allowed")
 
   ".name.error" <> ".cost.error" ? do
-    input ? borderColor Color.redError
-    label ? backgroundColor Color.redError
-    "input:focus + label" ? backgroundColor Color.redError
+    input ? borderColor Color.chestnutRose
+    label ? backgroundColor Color.chestnutRose
+    "input:focus + label" ? backgroundColor Color.chestnutRose
 
   ".errorMessage" ? do
     position absolute
-    color Color.redError
+    color Color.chestnutRose
     top (px (inputHeight + 10))
     left (px 0)
-- 
cgit v1.2.3