From 38896af4281d2e191cbde15836a23e4c0274fff6 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 4 Jun 2016 11:02:43 +0200 Subject: Add mean payment by month --- src/server/Design/LoggedIn/Home/Expandables.hs | 2 +- src/server/Design/LoggedIn/Home/Table.hs | 6 +++--- src/server/Design/LoggedIn/Stat.hs | 5 ++++- 3 files changed, 8 insertions(+), 5 deletions(-) (limited to 'src/server/Design') diff --git a/src/server/Design/LoggedIn/Home/Expandables.hs b/src/server/Design/LoggedIn/Home/Expandables.hs index 635a4a7..36ba67d 100644 --- a/src/server/Design/LoggedIn/Home/Expandables.hs +++ b/src/server/Design/LoggedIn/Home/Expandables.hs @@ -16,7 +16,7 @@ design = do ".expand" ? do position absolute right blockPadding - bottom (px 2) + bottom (px 0) ".monthlyPayments" ? expandBlock Color.gothic Color.white (px inputHeight) diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs index d13ab85..b68f48f 100644 --- a/src/server/Design/LoggedIn/Home/Table.hs +++ b/src/server/Design/LoggedIn/Home/Table.hs @@ -19,7 +19,6 @@ design = do display D.table width (pct 100) textAlign (alignSide (sideCenter)) - "border-spacing" -: "10 px" ".header" <> ".row" ? display tableRow let headerHeight = (px 70) @@ -29,11 +28,11 @@ design = do backgroundColor Color.gothic color Color.white fontSize iconFontSize - lineHeight headerHeight + height headerHeight ".row" ? do fontSize (px 18) - lineHeight (px rowHeightPx) + height (px rowHeightPx) hover & do let (borderW, triangleW, triangleH) = (4, 6, 8) @@ -70,6 +69,7 @@ design = do ".cell" ? do display tableCell position relative + verticalAlign middle ".category" & width (pct 40) ".cost" & do width (pct 17) diff --git a/src/server/Design/LoggedIn/Stat.hs b/src/server/Design/LoggedIn/Stat.hs index 42bcb71..ff44a9d 100644 --- a/src/server/Design/LoggedIn/Stat.hs +++ b/src/server/Design/LoggedIn/Stat.hs @@ -7,4 +7,7 @@ module Design.LoggedIn.Stat import Clay design :: Css -design = h1 ? paddingBottom (px 0) +design = do + h1 ? paddingBottom (px 0) + + ".mean" ? marginBottom (em 1.5) -- cgit v1.2.3