From 65f90115f7a84c74897d5ee0d11265efe77115db Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Sun, 9 Aug 2015 20:29:21 +0200 Subject: Simpler add payment with icons instead of text for labels --- src/server/Design/Global.hs | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'src/server/Design') diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index 25b7d95..59e4171 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -64,19 +64,23 @@ global = do width (pct 49) label ? do display inlineBlock - width (pct 25) - paddingRight (pct 5) + width (pct 20) + textAlign (alignSide sideCenter) + color C.brown + height (px inputHeight) + lineHeight (px inputHeight) + fontSize (px 22) + verticalAlign middle input ? defaultInput inputHeight ".name" ? do float floatLeft - input ? width (pct 70) + input ? width (pct 75) ".cost" ? do float floatRight - input ? do - width (pct 45) - marginRight (pct 5) + input ? do width (pct 50) + label ? marginRight (pct 5) button ? do defaultButton width (pct 20) @@ -145,6 +149,7 @@ defaultButton = do color C.white borderWidth (px 0) borderRadius (px 3) (px 3) (px 3) (px 3) + verticalAlign middle defaultInput :: Integer -> Css defaultInput inputHeight = do @@ -153,3 +158,4 @@ defaultInput inputHeight = do borderRadius (px 0) (px 0) (px 0) (px 0) border solid (px 1) C.grey focus & borderColor C.green + verticalAlign middle -- cgit v1.2.3