Show payment count and sum right after search

3 files changed, 10 insertions, 12 deletions

diff --git a/src/server/Design/LoggedIn/Home/Add.hs b/src/server/Design/LoggedIn/Home/Add.hs
index 6856af9..ce64077 100644
--- a/src/server/Design/LoggedIn/Home/Add.hs
+++ b/src/server/Design/LoggedIn/Home/Add.hs
@@ -15,7 +15,6 @@ import Design.Constants
 design :: Css
 design = do
   centeredWithMargin
-  marginBottom blockMarginBottom
   display flex
   "justify-content" -: "center"
 
diff --git a/src/server/Design/LoggedIn/Home/Expandables.hs b/src/server/Design/LoggedIn/Home/Monthly.hs
index 36ba67d..5e976ef 100644
--- a/src/server/Design/LoggedIn/Home/Expandables.hs
+++ b/src/server/Design/LoggedIn/Home/Monthly.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-module Design.LoggedIn.Home.Expandables
+module Design.LoggedIn.Home.Monthly
   ( design
   ) where
 
@@ -13,15 +13,11 @@ import Design.Constants
 design :: Css
 design = do
 
+  expandBlock Color.gothic Color.white (px inputHeight)
+
   ".expand" ? do
     position absolute
     right blockPadding
     bottom (px 0)
 
-  ".monthlyPayments" ? expandBlock Color.gothic Color.white (px inputHeight)
-
-  ".account" ? do
-    expandBlock Color.mossGreen Color.white (px inputHeight)
-    ".userName" ? marginRight (px 10)
-
   ".detail" |> ".header" ? borderRadius radius radius 0 0
diff --git a/src/server/Design/LoggedIn/Home/Search.hs b/src/server/Design/LoggedIn/Home/Search.hs
index 0292eaa..1bc91ef 100644
--- a/src/server/Design/LoggedIn/Home/Search.hs
+++ b/src/server/Design/LoggedIn/Home/Search.hs
@@ -6,11 +6,14 @@ module Design.LoggedIn.Home.Search
 
 import Clay
 
-import Design.Color as Color
 import Design.Constants
-import Design.Helper
 
 design :: Css
 design = do
-  expandBlock Color.gothic Color.white (px inputHeight)
-  ".label" ? marginRight (px 10)
+  marginBottom blockMarginBottom
+  marginLeft (pct blockPercentMargin)
+  marginRight (pct blockPercentMargin)
+
+  ".textInput" ? do
+    display inlineBlock
+    marginRight (px 30)