From 006d54bf4ac4dd9e05d62d0007759f28740fd77a Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Fri, 14 Aug 2015 10:29:43 +0200 Subject: One payment is clickable and set to orange for the moment --- src/server/Design/Color.hs | 3 +++ src/server/Design/Global.hs | 23 +++++++++++++++-------- 2 files changed, 18 insertions(+), 8 deletions(-) (limited to 'src/server') diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs index 97ad3d2..f4223a2 100644 --- a/src/server/Design/Color.hs +++ b/src/server/Design/Color.hs @@ -11,6 +11,9 @@ red = C.red brown :: C.Color brown = C.brown +orange :: C.Color +orange = C.orange + green :: C.Color green = C.green diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index bdf4cdb..b2b6744 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -10,9 +10,9 @@ import Prelude import Data.Monoid ((<>)) import Clay +import qualified Clay.Display as D import Data.Text.Lazy (Text) -import qualified Clay.Display as D import Design.Color as C @@ -103,27 +103,34 @@ global = do top (px (inputHeight + 10)) left (px 0) - table ? do + ".table" ? do + display D.table width (pct 100) textAlign (alignSide (sideCenter)) "border-spacing" -: "10 px" - th ? do + ".header" <> ".row" ? display tableRow + + ".header" ? do backgroundColor C.brown color C.white fontSize (px iconFontSize) lineHeight (px 70) + ".row" ? do + fontSize (px 20) + cursor pointer + lineHeight (px 60) + nthChild "odd" & backgroundColor C.lightGrey + ".edition" & backgroundColor C.orange + + ".cell" ? do + display tableCell ".category" & width (pct 40) ".cost" & width (pct 20) ".user" & width (pct 20) ".date" & width (pct 20) - tr ? do - fontSize (px 20) - lineHeight (px 60) - nthChild "odd" & backgroundColor C.lightGrey - ".signIn" ? do form ? do -- cgit v1.2.3