Style the player list

This commit is contained in:
Correl Roush 2020-05-18 21:45:54 -04:00
parent a49612b3ba
commit ae42bccd9c
2 changed files with 17 additions and 1 deletions

View file

@ -319,7 +319,15 @@ viewPlayers playerList showVotes =
, width = fill
, view =
\player ->
el [ padding 10 ]
el
[ padding 10
, Border.widthEach
{ bottom = 1
, left = 0
, right = 0
, top = 0
}
]
(text player.name)
}
, { header = none
@ -336,7 +344,14 @@ viewPlayers playerList showVotes =
in
el
[ padding 10
, Border.widthEach
{ bottom = 1
, left = 0
, right = 0
, top = 0
}
, Font.alignRight
, Font.bold
]
(text <| Maybe.withDefault " " vote)
}

View file

@ -31,6 +31,7 @@ colors =
fontSizes =
{ huge = 80
, big = 30
, normal = 18
}