Splitting Global design file into a hierarchy of files

1 files changed, 37 insertions, 0 deletions

diff --git a/src/server/Design/LoggedIn/Expandables.hs b/src/server/Design/LoggedIn/Expandables.hs
new file mode 100644
index 0000000..3807da4
--- /dev/null
+++ b/src/server/Design/LoggedIn/Expandables.hs
@@ -0,0 +1,37 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.LoggedIn.Expandables
+  ( expandablesDesign
+  ) where
+
+import Clay
+
+import Design.Color as C
+import Design.Helper
+import Design.Constants
+
+expandablesDesign :: Css
+expandablesDesign =
+
+  ".expandables" ? 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)
+
+      ".header" |> ".exceedingPayer" ? do
+        lineHeight (px inputHeight)
+        ".userName" ? marginRight (px 10)
+
+      ".income" ? do
+        backgroundColor C.lightGrey
+        lineHeight rowHeight
+        padding (px 0) (px 20) (px 0) (px 20)
+
+    ".detail" |> ".header" ? borderRadius radius radius 0 0