From 70720548c9af024dbb6080638ac8e5470c2213eb Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 15:10:03 +0200
Subject: Use the search to view either punctual or monthly payments

---
 src/server/Design/LoggedIn/Home/Header.hs | 56 +++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 src/server/Design/LoggedIn/Home/Header.hs

(limited to 'src/server/Design/LoggedIn/Home/Header.hs')

diff --git a/src/server/Design/LoggedIn/Home/Header.hs b/src/server/Design/LoggedIn/Home/Header.hs
new file mode 100644
index 0000000..9008a95
--- /dev/null
+++ b/src/server/Design/LoggedIn/Home/Header.hs
@@ -0,0 +1,56 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.LoggedIn.Home.Header
+  ( design
+  ) where
+
+import Clay
+
+import Design.Constants
+
+import qualified Design.Helper as Helper
+import qualified Design.Color as Color
+import qualified Design.Constants as Constants
+
+design :: Css
+design = do
+  marginBottom blockMarginBottom
+  marginLeft (pct blockPercentMargin)
+  marginRight (pct blockPercentMargin)
+
+  ".exceedingPayers" ? do
+    backgroundColor Color.mossGreen
+    padding (px 10) (px 10) (px 10) (px 10)
+    borderRadius (px 5) (px 5) (px 5) (px 5)
+    color Color.white
+    marginBottom (em 1)
+
+    ".exceedingPayer:not(:last-child)::after" ? content (stringContent ", ")
+
+    ".userName" ? marginRight (px 5)
+
+  ".searchLine" ? do
+    marginBottom (em 1)
+    form ? do
+      display inlineBlock
+
+      ".textInput" ? do
+        display inlineBlock
+        marginRight (px 30)
+        marginBottom (px 0)
+
+      ".radioGroup" ? do
+        display inlineBlock
+        marginBottom (px 0)
+        ".title" ? display none
+
+    ".addPayment" ? do
+      Helper.defaultButton Color.chestnutRose Color.white (px 47) Constants.focusLighten
+      float floatRight
+
+  ".infos" ? do
+    lineHeight (px Constants.inputHeight)
+
+    ".partition" ? do
+      color Color.dustyGray
+      marginLeft (px 15)
-- 
cgit v1.2.3