aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design')
-rw-r--r--src/server/Design/LoggedIn/Home.hs20
-rw-r--r--src/server/Design/LoggedIn/Home/Add.hs1
-rw-r--r--src/server/Design/LoggedIn/Home/Monthly.hs (renamed from src/server/Design/LoggedIn/Home/Expandables.hs)10
-rw-r--r--src/server/Design/LoggedIn/Home/Search.hs11
-rw-r--r--src/server/Design/LoggedIn/Stat.hs2
5 files changed, 22 insertions, 22 deletions
diff --git a/src/server/Design/LoggedIn/Home.hs b/src/server/Design/LoggedIn/Home.hs
index c0a8566..47bfc84 100644
--- a/src/server/Design/LoggedIn/Home.hs
+++ b/src/server/Design/LoggedIn/Home.hs
@@ -6,16 +6,16 @@ module Design.LoggedIn.Home
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
+import qualified Design.LoggedIn.Home.Add as Add
+import qualified Design.LoggedIn.Home.Monthly as Monthly
+import qualified Design.LoggedIn.Home.Search as Search
+import qualified Design.LoggedIn.Home.Table as Table
+import qualified Design.LoggedIn.Home.Pages as Pages
design :: Css
design = do
- form # ".addPayment" ? AddDesign.design
- ".expandables" ? ExpandablesDesign.design
- ".search" ? SearchDesign.design
- ".table" ? TableDesign.design
- ".pages" ? PagesDesign.design
+ form # ".addPayment" ? Add.design
+ ".monthly" ? Monthly.design
+ ".search" ? Search.design
+ ".table" ? Table.design
+ ".pages" ? Pages.design
diff --git a/src/server/Design/LoggedIn/Home/Add.hs b/src/server/Design/LoggedIn/Home/Add.hs
index 6856af9..ce64077 100644
--- a/src/server/Design/LoggedIn/Home/Add.hs
+++ b/src/server/Design/LoggedIn/Home/Add.hs
@@ -15,7 +15,6 @@ import Design.Constants
design :: Css
design = do
centeredWithMargin
- marginBottom blockMarginBottom
display flex
"justify-content" -: "center"
diff --git a/src/server/Design/LoggedIn/Home/Expandables.hs b/src/server/Design/LoggedIn/Home/Monthly.hs
index 36ba67d..5e976ef 100644
--- a/src/server/Design/LoggedIn/Home/Expandables.hs
+++ b/src/server/Design/LoggedIn/Home/Monthly.hs
@@ -1,6 +1,6 @@
{-# LANGUAGE OverloadedStrings #-}
-module Design.LoggedIn.Home.Expandables
+module Design.LoggedIn.Home.Monthly
( design
) where
@@ -13,15 +13,11 @@ import Design.Constants
design :: Css
design = do
+ expandBlock Color.gothic Color.white (px inputHeight)
+
".expand" ? do
position absolute
right blockPadding
bottom (px 0)
- ".monthlyPayments" ? expandBlock Color.gothic Color.white (px inputHeight)
-
- ".account" ? do
- expandBlock Color.mossGreen Color.white (px inputHeight)
- ".userName" ? marginRight (px 10)
-
".detail" |> ".header" ? borderRadius radius radius 0 0
diff --git a/src/server/Design/LoggedIn/Home/Search.hs b/src/server/Design/LoggedIn/Home/Search.hs
index 0292eaa..1bc91ef 100644
--- a/src/server/Design/LoggedIn/Home/Search.hs
+++ b/src/server/Design/LoggedIn/Home/Search.hs
@@ -6,11 +6,14 @@ module Design.LoggedIn.Home.Search
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)
+ marginBottom blockMarginBottom
+ marginLeft (pct blockPercentMargin)
+ marginRight (pct blockPercentMargin)
+
+ ".textInput" ? do
+ display inlineBlock
+ marginRight (px 30)
diff --git a/src/server/Design/LoggedIn/Stat.hs b/src/server/Design/LoggedIn/Stat.hs
index ff44a9d..62028cb 100644
--- a/src/server/Design/LoggedIn/Stat.hs
+++ b/src/server/Design/LoggedIn/Stat.hs
@@ -10,4 +10,6 @@ design :: Css
design = do
h1 ? paddingBottom (px 0)
+ ".exceedingPayers" ? ".userName" ? marginRight (px 5)
+
".mean" ? marginBottom (em 1.5)