aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design')
-rw-r--r--src/server/Design/Global.hs2
-rw-r--r--src/server/Design/Header.hs6
-rw-r--r--src/server/Design/LoggedIn/Home.hs2
-rw-r--r--src/server/Design/LoggedIn/Home/Search.hs16
4 files changed, 22 insertions, 4 deletions
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)