Add mean payment by month

3 files changed, 8 insertions, 5 deletions

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)