1 files changed, 13 insertions, 19 deletions
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"