Ameliore design in income page and stat page

1 files changed, 27 insertions, 0 deletions

diff --git a/src/server/Design/LoggedIn/Home/Expandables.hs b/src/server/Design/LoggedIn/Home/Expandables.hs
new file mode 100644
index 0000000..5ba5711
--- /dev/null
+++ b/src/server/Design/LoggedIn/Home/Expandables.hs
@@ -0,0 +1,27 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.LoggedIn.Home.Expandables
+  ( design
+  ) where
+
+import Clay
+
+import Design.Color as C
+import Design.Helper
+import Design.Constants
+
+design :: Css
+design = do
+
+  ".expand" ? do
+    position absolute
+    right blockPadding
+    bottom (px 2)
+
+  ".monthlyPayments" ? expandBlock C.blue C.white (px inputHeight)
+
+  ".account" ? do
+    expandBlock C.green C.white (px inputHeight)
+    ".userName" ? marginRight (px 10)
+
+  ".detail" |> ".header" ? borderRadius radius radius 0 0