Merge branch 'features/categories' into 'master'

Features/categories

See merge request !1

3 files changed, 9 insertions, 36 deletions

diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs
index 73ced3a..cb46ac9 100644
--- a/src/server/Design/LoggedIn/Home/Table.hs
+++ b/src/server/Design/LoggedIn/Home/Table.hs
@@ -11,17 +11,20 @@ import qualified Design.Media as Media
 design :: Css
 design = do
   ".cell" ? do
-    ".category" & do
-      Media.tabletDesktop $ width (pct 36)
+    ".name" & do
+      Media.tabletDesktop $ width (pct 30)
 
     ".cost" & do
-      Media.tabletDesktop $ width (pct 15)
+      Media.tabletDesktop $ width (pct 10)
 
     ".user" & do
-      Media.tabletDesktop $ width (pct 20)
+      Media.tabletDesktop $ width (pct 15)
+
+    ".category" & do
+      Media.tabletDesktop $ width (pct 10)
 
     ".date" & do
-      Media.tabletDesktop $ width (pct 20)
+      Media.tabletDesktop $ width (pct 15)
       Media.desktop $ do
         ".shortDate" ? display none
         ".longDate" ? display inline
diff --git a/src/server/Design/LoggedIn/Income.hs b/src/server/Design/LoggedIn/Income.hs
deleted file mode 100644
index c44c67b..0000000
--- a/src/server/Design/LoggedIn/Income.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Design.LoggedIn.Income
-  ( design
-  ) where
-
-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 =
-  ".monthlyNetIncomes" ? do
-
-    h1 ? do
-      Media.tabletDesktop $ float floatLeft
-
-    ".addIncome" ? do
-      Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
-      Media.tabletDesktop $ do
-        float floatRight
-        position relative
-        top (px (-8))
-      Media.mobile $ do
-        width (pct 100)
-        marginBottom (px 20)
diff --git a/src/server/Design/LoggedIn/Table.hs b/src/server/Design/LoggedIn/Table.hs
index 1af5e2b..44b001a 100644
--- a/src/server/Design/LoggedIn/Table.hs
+++ b/src/server/Design/LoggedIn/Table.hs
@@ -7,7 +7,6 @@ module Design.LoggedIn.Table
 import Data.Monoid ((<>))
 
 import Clay
-import qualified Clay.Display as D
 
 import Design.Color as Color
 import qualified Design.Media as Media
@@ -19,7 +18,7 @@ design = do
     textAlign (alignSide sideCenter)
 
   ".lines" ? do
-    Media.tabletDesktop $ display D.table
+    Media.tabletDesktop $ display displayTable
     width (pct 100)
     textAlign (alignSide (sideCenter))