From fe50c4042848681833d15fab27466d1d2d4bda45 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Apr 2016 23:52:13 +0200
Subject: Ameliore design in income page and stat page

---
 src/server/Design/LoggedIn.hs | 32 +++++++++++++-------------------
 1 file changed, 13 insertions(+), 19 deletions(-)

(limited to 'src/server/Design/LoggedIn.hs')

diff --git a/src/server/Design/LoggedIn.hs b/src/server/Design/LoggedIn.hs
index d35276b..63ff413 100644
--- a/src/server/Design/LoggedIn.hs
+++ b/src/server/Design/LoggedIn.hs
@@ -1,28 +1,22 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Design.LoggedIn
-  ( loggedInDesign
+  ( design
   ) where
 
-import Clay
-
-import Design.LoggedIn.Add
-import Design.LoggedIn.Expandables
-import Design.LoggedIn.Table
-import Design.LoggedIn.Pages
-import Design.Animation.Opacity
-
-loggedInDesign :: Css
-loggedInDesign =
+import Data.Monoid ((<>))
 
-  ".loggedIn" ? do
-
-    opacityAnimation
-
-    addDesign
+import Clay
 
-    expandablesDesign
+import qualified Design.LoggedIn.Home as HomeDesign
+import qualified Design.LoggedIn.Income as IncomeDesign
+import qualified Design.LoggedIn.Stat as StatDesign
 
-    tableDesign
+design :: Css
+design = do
+  ".home" ? HomeDesign.design
+  ".income" ? IncomeDesign.design
+  ".stat" ? StatDesign.design
 
-    pagesDesign
+  (".income" <> ".stat") ? do
+    "margin" -: "0 2vw"
-- 
cgit v1.2.3