From 73fa92aeffb27a98d8f316be157883ecefb1aed5 Mon Sep 17 00:00:00 2001 From: Joris Date: Thu, 10 Sep 2015 22:53:31 +0200 Subject: Setting monthly payments and exceeding payers aside --- src/server/Design/Global.hs | 69 +++++++++++++++++++++++++++------------------ 1 file changed, 42 insertions(+), 27 deletions(-) (limited to 'src/server/Design') diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index 8b8d5e7..7d2b7b6 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -26,6 +26,9 @@ radius = px 3 blockPadding :: Size Abs blockPadding = px 15 +blockMarginBottom :: Size Abs +blockMarginBottom = px 50 + global :: Css global = do @@ -56,24 +59,12 @@ global = do fontSize iconFontSize hover & transform (scale 1.2 1.2) - ".payments" ? do + ".loggedIn" ? do let inputHeight = 40 - ".exceedingPayers" ? do - centeredWithMargin - backgroundColor C.green - color C.white - fontSize (px 18) - borderRadius radius radius radius radius - paddingLeft blockPadding - paddingRight blockPadding - - ".exceedingPayer" ? do - lineHeight (px inputHeight) - ".userName" ? marginRight (px 10) - form ? do centeredWithMargin + marginBottom blockMarginBottom clearFix ".name" <> ".cost" ? do @@ -142,26 +133,51 @@ global = do top (px (inputHeight + 10)) left (px 0) - ".monthlyPayments" ? do + ".expandables" ? do centeredWithMargin + clearFix - button # ".count" ? do - width (pct 100) + ".monthlyPayments" ? do + marginBottom blockMarginBottom + + largeScreen $ do + float floatLeft + width (pct 55) + + button # ".count" ? do + width (pct 100) + fontSize (px 18) + defaultButton C.blue C.white inputHeight + borderRadius radius radius radius radius + textAlign (alignSide sideLeft) + position relative + paddingLeft blockPadding + paddingRight blockPadding + + ".expand" ? do + float floatRight + marginTop (px (-2)) + + ".detail" & + button # ".count" ? + borderRadius radius radius 0 0 + + ".exceedingPayers" ? do + backgroundColor C.green + color C.white fontSize (px 18) - defaultButton C.blue C.white inputHeight borderRadius radius radius radius radius - textAlign (alignSide sideLeft) - position relative + marginBottom blockMarginBottom paddingLeft blockPadding paddingRight blockPadding - ".expand" ? do + largeScreen $ do float floatRight - marginTop (px (-2)) + width (pct 40) - ".detail" & - button # ".count" ? - borderRadius radius radius 0 0 + ".exceedingPayer" ? do + lineHeight (px inputHeight) + ".userName" ? marginRight (px 10) ".table" ? do display D.table @@ -295,7 +311,6 @@ defaultInput inputHeight = do centeredWithMargin :: Css centeredWithMargin = do - width (pct 95) + width (pct 90) marginLeft auto marginRight auto - marginBottom (px 45) -- cgit v1.2.3