From 9510b05f974f2f0e77df48d46a5cf5928f60b47b Mon Sep 17 00:00:00 2001
From: Brian Hicks <brian@brianthicks.com>
Date: Tue, 22 Sep 2020 10:54:16 -0500
Subject: [PATCH] add a circle to the current players

---
 src/Main.elm | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/src/Main.elm b/src/Main.elm
index b6476fa..86ac3f7 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -448,6 +448,11 @@ rankings model =
                     previousRank =
                         Dict.get player.name previousStandings
                             |> Maybe.withDefault rank
+
+                    isPlaying =
+                        League.currentMatch model.league
+                            |> Maybe.map (\(League.Match a b) -> player == a || player == b)
+                            |> Maybe.withDefault False
                 in
                 ( player.name
                 , Html.tr
@@ -458,7 +463,10 @@ rankings model =
                             , Css.textAlign Css.center
                             ]
                         ]
-                        (if rank < previousRank then
+                        (if isPlaying then
+                            [ circle (Css.hex "EFE700") ]
+
+                         else if rank < previousRank then
                             [ upArrow (Css.hex "6DD400")
                             , Html.span
                                 [ css
@@ -604,6 +612,20 @@ downArrow color =
         []
 
 
+circle : Css.Color -> Html msg
+circle color =
+    Html.div
+        [ css
+            [ Css.width (Css.px 10)
+            , Css.height (Css.px 10)
+            , Css.borderRadius (Css.pct 100)
+            , Css.backgroundColor color
+            , Css.margin2 Css.zero Css.auto
+            ]
+        ]
+        []
+
+
 main : Program Flags Model Msg
 main =
     Browser.document