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/Global.hs               |  2 ++
 src/server/Design/Header.hs               |  6 ++----
 src/server/Design/LoggedIn/Home.hs        |  2 ++
 src/server/Design/LoggedIn/Home/Search.hs | 16 ++++++++++++++++
 4 files changed, 22 insertions(+), 4 deletions(-)
 create mode 100644 src/server/Design/LoggedIn/Home/Search.hs

(limited to 'src/server/Design')

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 12e20b9..900994a 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -51,3 +51,5 @@ global = do
       ul <? do
         "margin-left" -: "3vh"
         "margin-top" -: "2vh"
+
+  svg ? height (pct 100)
diff --git a/src/server/Design/Header.hs b/src/server/Design/Header.hs
index 6f0f48e..4e31891 100644
--- a/src/server/Design/Header.hs
+++ b/src/server/Design/Header.hs
@@ -57,10 +57,8 @@ design = do
 
     ".signOut" ? do
       heightMedia
-      color Color.white
-
-      Media.mobile $ fontSize (px 20)
-      Media.tabletDesktop $ fontSize iconFontSize
+      svg ? do
+        Media.mobile $ width (px 20)
 
 lineHeightMedia :: Css
 lineHeightMedia = do
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