From 8cd63a64abafe21378c35c2489d49f24c9ece3c9 Mon Sep 17 00:00:00 2001 From: Joris Date: Mon, 4 Apr 2016 01:27:36 +0200 Subject: Add income list CRUD in user page --- src/server/Design/LoggedIn/Expandables.hs | 42 +++---------------------------- 1 file changed, 4 insertions(+), 38 deletions(-) (limited to 'src/server/Design') 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 -- cgit v1.2.3