diff options
Diffstat (limited to 'client')
| -rw-r--r-- | client/src/Client.elm | 14 | ||||
| -rw-r--r-- | client/style.css | 1 |
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; } |