aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Design/Global.hs18
-rw-r--r--src/server/View/Page.hs1
2 files changed, 12 insertions, 7 deletions
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
diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs
index 5b9f06e..a397a96 100644
--- a/src/server/View/Page.hs
+++ b/src/server/View/Page.hs
@@ -5,7 +5,6 @@ module View.Page
) where
import Data.Text.Internal.Lazy (Text)
-import Data.Text.Internal.Lazy as TL
import Text.Blaze.Html
import Text.Blaze.Html5