From 9dfa7a7e2c6fac564a456b11623c04d0b26fbce5 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jun 2016 10:04:05 +0200
Subject: Add search on payments and use inline font awesome from elm

---
 src/server/Design/LoggedIn/Home.hs        |  2 ++
 src/server/Design/LoggedIn/Home/Search.hs | 16 ++++++++++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 src/server/Design/LoggedIn/Home/Search.hs

(limited to 'src/server/Design/LoggedIn')

diff --git a/src/server/Design/LoggedIn/Home.hs b/src/server/Design/LoggedIn/Home.hs
index be99a2c..c0a8566 100644
--- a/src/server/Design/LoggedIn/Home.hs
+++ b/src/server/Design/LoggedIn/Home.hs
@@ -8,6 +8,7 @@ import Clay
 
 import qualified Design.LoggedIn.Home.Add as AddDesign
 import qualified Design.LoggedIn.Home.Expandables as ExpandablesDesign
+import qualified Design.LoggedIn.Home.Search as SearchDesign
 import qualified Design.LoggedIn.Home.Table as TableDesign
 import qualified Design.LoggedIn.Home.Pages as PagesDesign
 
@@ -15,5 +16,6 @@ design :: Css
 design = do
   form # ".addPayment" ? AddDesign.design
   ".expandables" ? ExpandablesDesign.design
+  ".search" ? SearchDesign.design
   ".table" ? TableDesign.design
   ".pages" ? PagesDesign.design
diff --git a/src/server/Design/LoggedIn/Home/Search.hs b/src/server/Design/LoggedIn/Home/Search.hs
new file mode 100644
index 0000000..0292eaa
--- /dev/null
+++ b/src/server/Design/LoggedIn/Home/Search.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.LoggedIn.Home.Search
+  ( design
+  ) where
+
+import Clay
+
+import Design.Color as Color
+import Design.Constants
+import Design.Helper
+
+design :: Css
+design = do
+  expandBlock Color.gothic Color.white (px inputHeight)
+  ".label" ? marginRight (px 10)
-- 
cgit v1.2.3