Show incomes in a table and update like payments are updated

1 files changed, 13 insertions, 13 deletions

diff --git a/src/server/Design/LoggedIn/Income.hs b/src/server/Design/LoggedIn/Income.hs
index 5773e04..c44c67b 100644
--- a/src/server/Design/LoggedIn/Income.hs
+++ b/src/server/Design/LoggedIn/Income.hs
@@ -9,21 +9,21 @@ import Clay
 import qualified Design.Helper as Helper
 import qualified Design.Constants as Constants
 import qualified Design.Color as Color
+import qualified Design.Media as Media
 
 design :: Css
-design = do
+design =
+  ".monthlyNetIncomes" ? do
 
-  h1 ? paddingBottom (px 0)
+    h1 ? do
+      Media.tabletDesktop $ float floatLeft
 
-  form ? do
-    display flex
-    "alignItems" -: "center"
-    "margin-bottom" -: "4vh"
-    ".textInput" ? marginRight (px 30)
-
-    button # ".add" ? do
+    ".addIncome" ? do
       Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
-      marginTop (px 3)
-
-  ul # ".incomes" ? button ?
-    marginLeft (px 12)
+      Media.tabletDesktop $ do
+        float floatRight
+        position relative
+        top (px (-8))
+      Media.mobile $ do
+        width (pct 100)
+        marginBottom (px 20)