From 6541fa5316816d6f97a87a370775cfe278e7eeb8 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 7 Apr 2016 23:58:23 +0200
Subject: Add cumulative incomes by user

---
 src/server/Design/Global.hs              | 15 ++++++++++-----
 src/server/Design/LoggedIn/Home/Pages.hs |  2 +-
 src/server/Design/LoggedIn/Income.hs     |  5 ++++-
 3 files changed, 15 insertions(+), 7 deletions(-)

(limited to 'src/server/Design')

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"
-- 
cgit v1.2.3