Add cumulative incomes by user

3 files changed, 15 insertions, 7 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 90dd842..e2e98a7 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -36,14 +36,19 @@ global = do
   a ? cursor pointer
 
   h1 ? do
-    fontSize (px 20)
+    fontSize (px 24)
     color Color.red
-    marginBottom (em 1)
+    "margin-bottom" -: "3vh"
 
   ul ? do
-    marginBottom (em 1)
-    li ? do
-      marginBottom (em 0.5)
+    "margin-bottom" -: "3vh"
+    "margin-left" -: "1vh"
+    li <? do
+      "margin-bottom" -: "2vh"
       before & do
         content (stringContent "• ")
         color Color.red
+        "margin-right" -: "0.3vw"
+      ul <? do
+        "margin-left" -: "3vh"
+        "margin-top" -: "2vh"
diff --git a/src/server/Design/LoggedIn/Home/Pages.hs b/src/server/Design/LoggedIn/Home/Pages.hs
index 932865c..0572fbf 100644
--- a/src/server/Design/LoggedIn/Home/Pages.hs
+++ b/src/server/Design/LoggedIn/Home/Pages.hs
@@ -12,7 +12,7 @@ import Design.Constants
 
 design :: Css
 design = do
-  padding (px 30) (px 30) (px 30) (px 30)
+  padding (px 40) (px 30) (px 30) (px 30)
   textAlign (alignSide (sideCenter))
   clearFix
 
diff --git a/src/server/Design/LoggedIn/Income.hs b/src/server/Design/LoggedIn/Income.hs
index b7efb9e..99626ba 100644
--- a/src/server/Design/LoggedIn/Income.hs
+++ b/src/server/Design/LoggedIn/Income.hs
@@ -7,4 +7,7 @@ module Design.LoggedIn.Income
 import Clay
 
 design :: Css
-design = h1 ? paddingBottom (px 0)
+design = do
+  h1 ? paddingBottom (px 0)
+  form ? do
+    "margin-bottom" -: "3vh"