aboutsummaryrefslogtreecommitdiff
path: root/client
diff options
context:
space:
mode:
Diffstat (limited to 'client')
-rw-r--r--client/src/Client.elm14
-rw-r--r--client/style.css1
2 files changed, 10 insertions, 5 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm
index 6e987e7..439acea 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -118,6 +118,7 @@ view model = case model of
, Html.Events.onInput ChangeMyName
]
[]
+ , Html.br [] []
, Html.button
[ Html.Attributes.type_ "submit"
, Html.Attributes.disabled <|
@@ -153,6 +154,7 @@ viewTable game = case game.view.table of
" from your hand"
]
, blackCard [] game.cards c <| selectedWhiteCards game
+ , Html.br [] []
, Html.button
[ Html.Attributes.disabled <|
List.length my > 0 ||
@@ -163,7 +165,8 @@ viewTable game = case game.view.table of
[Html.text "Propose"]
] ++
ifAdmin game.view
- [ Html.button
+ [ Html.br [] []
+ , Html.button
[Html.Events.onClick AdminSkipProposals]
[Html.text "Skip remaining players"]
]
@@ -180,7 +183,8 @@ viewTable game = case game.view.table of
, Html.Attributes.class "votable"
] in
blackCard attrs game.cards black proposal) proposals ++
- [ Html.button
+ [ Html.br [] []
+ , Html.button
[ Html.Attributes.disabled <|
(case myVote of
Just _ -> True
@@ -192,7 +196,8 @@ viewTable game = case game.view.table of
[Html.text "Vote"]
] ++
ifAdmin game.view
- [ Html.button
+ [ Html.br [] []
+ , Html.button
[Html.Events.onClick AdminSkipVotes]
[Html.text "Skip remaining players"]
]
@@ -214,7 +219,8 @@ viewTable game = case game.view.table of
])
results ++
ifAdmin game.view
- [ Html.button
+ [ Html.br [] []
+ , Html.button
[Html.Events.onClick AdminConfirmTally]
[Html.text "Next round"]
]
diff --git a/client/style.css b/client/style.css
index 3da29f8..2dd12cb 100644
--- a/client/style.css
+++ b/client/style.css
@@ -54,7 +54,6 @@ table {
}
button, input {
- display: block;
margin: 12px auto 12px auto;
}