diff options
author | Jasper Van der Jeugt | 2020-08-04 20:41:02 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-04 20:41:02 +0200 |
commit | 7ff45befe94cd248ea5505e4ca74005358d5e329 (patch) | |
tree | 08c3bb502fc7f2059ba0fdee77f97ded0552bfdd | |
parent | 6034f1617392d09e3a5f9af19b064cc369f546e0 (diff) |
Small changes
-rw-r--r-- | client/src/Client.elm | 12 | ||||
-rw-r--r-- | white.txt | 4 |
2 files changed, 10 insertions, 6 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm index 2d43ae2..54081c2 100644 --- a/client/src/Client.elm +++ b/client/src/Client.elm @@ -48,20 +48,20 @@ type Model viewPlayers : List Messages.PlayerView -> Html msg viewPlayers players = Html.table [] <| Html.tr [] - [ Html.th + [ Html.th [] [] + , Html.th [] [] + , Html.th [Html.Attributes.style "width" "100%"] [Html.text "Name"] , Html.th [] [Html.text "Score"] ] :: List.map (\player -> Html.tr [] - [ Html.td [] [Html.text player.name] + [ Html.td [] [Html.text <| if player.admin then " 👑" else ""] + , Html.td [] [Html.text <| if player.ready then " ✅" else " ⌛"] + , Html.td [] [Html.text player.name] , Html.td [Html.Attributes.style "text-align" "right"] [Html.text <| String.fromInt player.points] - , Html.td [] - (if player.admin then [Html.text " 👑"] else []) - , Html.td [] - (if player.ready then [Html.text " ✅"] else []) ]) (List.sortBy (\player -> (-player.points, player.name)) players) @@ -8,6 +8,10 @@ Scheme Racket C C++ +abstract nonsense +mutability +type theory +pointers # Cards taken from # https://github.com/CardsAgainstCryptography/CAC/blob/master/src/white.txt |