Add search on payments and use inline font awesome from elm

2 files changed, 18 insertions, 0 deletions

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)