From 4d4317b713cbdbe0cbd838cbc53110a2324c3467 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 29 Aug 2015 13:56:36 +0200 Subject: Modifying colors thanks to paletton --- src/server/Design/Color.hs | 17 ++++++++++------- src/server/Design/Global.hs | 22 +++++++++++----------- 2 files changed, 21 insertions(+), 18 deletions(-) (limited to 'src/server/Design') 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) -- cgit v1.2.3