Ameliore design in income page and stat page

1 files changed, 0 insertions, 99 deletions

diff --git a/src/server/Design/LoggedIn/Table.hs b/src/server/Design/LoggedIn/Table.hs
deleted file mode 100644
index e5ed4bf..0000000
--- a/src/server/Design/LoggedIn/Table.hs
+++ /dev/null
@@ -1,99 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Design.LoggedIn.Table
-  ( tableDesign
-  ) where
-
-import Data.Monoid ((<>))
-
-import Clay
-import qualified Clay.Display as D
-
-import Design.Color as C
-import Design.Media
-import Design.Constants
-import Design.Helper
-
-tableDesign :: Css
-tableDesign =
-
-  ".table" ? do
-    display D.table
-    width (pct 100)
-    textAlign (alignSide (sideCenter))
-    "border-spacing" -: "10 px"
-
-    ".header" <> ".row" ? display tableRow
-    let headerHeight = (px 70)
-
-    ".header" ? do
-      fontWeight bold
-      backgroundColor C.blue
-      color C.white
-      fontSize iconFontSize
-      lineHeight headerHeight
-
-    ".row" ? do
-      fontSize (px 18)
-      lineHeight (px rowHeightPx)
-
-      hover & do
-        let (borderW, triangleW, triangleH) = (4, 6, 8)
-        ".cell:first-child::before" ? do
-          display block
-          content (stringContent "")
-          position absolute
-          top (px 0)
-          left (px 0)
-
-          width (px borderW)
-          height (px rowHeightPx)
-          backgroundColor C.green
-
-        ".cell:first-child::after" ? do
-          display block
-          content (stringContent "")
-          position absolute
-          top (px (rowHeightPx `Prelude.div` 2 - triangleH))
-          left (px borderW)
-
-          width (px 0)
-          height (px 0)
-          borderTop solid (px triangleH) transparent
-          borderBottom solid (px triangleH) transparent
-          borderLeft solid (px triangleW) C.green
-
-      nthChild "odd" & do
-        backgroundColor C.lightGrey
-      ".edition" & do
-        backgroundColor C.paymentFocus
-        ".delete" |> button ? visibility visible
-
-    ".cell" ? do
-      display tableCell
-      position relative
-      ".category" & width (pct 40)
-      ".cost" & do
-        width (pct 17)
-        ".refund" & color C.green
-      ".user" & width (pct 20)
-      ".date" & do
-        width (pct 20)
-        smallScreen $ do
-          ".shortDate" ? display inline
-          ".longDate" ? display none
-        largeScreen $ do
-          ".shortDate" ? display none
-          ".longDate" ? display inline
-      ".delete" & do
-        position relative
-        width (pct 3)
-        textAlign (alignSide sideCenter)
-        button ? do
-          defaultButton C.red C.white (px rowHeightPx) focusLighten
-          borderRadius (px 0) (px 0) (px 0) (px 0)
-          position absolute
-          top (px 0)
-          right (px 0)
-          width (pct 100)
-          visibility hidden