aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design/LoggedIn
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design/LoggedIn')
-rw-r--r--src/server/Design/LoggedIn/Expandables.hs42
1 files changed, 4 insertions, 38 deletions
diff --git a/src/server/Design/LoggedIn/Expandables.hs b/src/server/Design/LoggedIn/Expandables.hs
index 8ef42cd..a3be877 100644
--- a/src/server/Design/LoggedIn/Expandables.hs
+++ b/src/server/Design/LoggedIn/Expandables.hs
@@ -4,8 +4,8 @@ module Design.LoggedIn.Expandables
( expandablesDesign
) where
-import Data.Monoid ((<>))
-
+-- import Data.Monoid ((<>))
+--
import Clay
import Design.Color as C
@@ -22,42 +22,8 @@ expandablesDesign =
right blockPadding
bottom (px 2)
- ".monthlyPayments" ? do
- expandBlock C.blue C.white (px inputHeight)
-
- ".account" ? do
- expandBlock C.green C.white (px inputHeight)
-
- ".header" |> ".exceedingPayer" ? do
- lineHeight (px inputHeight)
- ".userName" ? marginRight (px 10)
-
- ".income" ? do
- backgroundColor C.lightGrey
- padding (px 0) (px 20) (px 0) (px 20)
- position relative
- lineHeight (px rowHeightPx)
-
- input ? do
- defaultInput inputHeight
- marginLeft (px 20)
- marginTop (px (-5))
- width (px 100)
-
- button ? do
- marginLeft (px 20)
- paddingLeft (px 15)
- paddingRight (px 15)
- marginTop (px (-5))
-
- ".validateIncomeEdition" <> ".editIncomeEdition" ?
- defaultButton C.red C.white (px inputHeight) focusLighten
-
- ".undoIncomeEdition" ?
- defaultButton C.blue C.white (px inputHeight) focusLighten
+ ".monthlyPayments" ? expandBlock C.blue C.white (px inputHeight)
- ".error" ? do
- color C.redError
- lineHeight (px 30)
+ ".account" ? expandBlock C.green C.white (px inputHeight)
".detail" |> ".header" ? borderRadius radius radius 0 0