UI aesthetics (#76)

* removed unused variable

* clean up and text styling

src/Game.elm

@@ -122,7 +122,7 @@ update msg (Model model) =
                 |> map (nextPlayerStartsPlaying Human piece)
                 |> andThen (computerChooses ComputerSelectedCell Board.openCells)
 
-        ( HumanSelectedPiece piece, _ ) ->
+        ( HumanSelectedPiece _, _ ) ->
             Model { model | statusMessage = SomePiecePlayedWhenNotPlayersTurn }
                 |> noCmds
 
@@ -208,7 +208,7 @@ playerTryPlay name piece (Model model) =
 
 
 checkForWin : ActivePlayer -> Model -> ( Model, Cmd Msg )
-checkForWin player (Model ({ board, status } as model)) =
+checkForWin player (Model ({ board } as model)) =
     case ( player, Board.status board ) of
         ( Computer, CanContinue ) ->
             Model model

src/Pages/Top.elm

@@ -12,19 +12,16 @@ import Element
         ( Attribute
         , Element
         , centerX
-        , centerY
         , column
         , el
         , fill
-        , height
         , padding
         , paragraph
-        , px
         , row
         , spacing
         , text
         , width
-        , wrappedRow
+
         )
 import Element.Background as Background
 import Element.Border as Border
@@ -183,7 +180,7 @@ viewBoard cellDict =
 
 
 viewGamestatus : GameStatus -> Dimensions -> Element Msg
-viewGamestatus gamestatus dimensions =
+viewGamestatus gamestatus _ =
     let
         containerize : List (Element Msg) -> Element Msg
         containerize elements =
@@ -232,7 +229,7 @@ viewStatusMessage statusMessage =
             Element.el [] (Element.text "")
 
         SomePiecePlayedWhenNotPlayersTurn ->
-            Element.el [ centerX, Font.center, Region.announce ] (Element.text "It's not your turn to choose a piece!")
+            Element.el [ centerX, Font.center, Region.announce, Font.color Styles.red, Font.semiBold ] (Element.text "It's not your turn to choose a piece!")
 
 
 viewCell : Cell -> Element Msg