From dc6afd40beb45751515bf82a9ecfee11f232bd3d Mon Sep 17 00:00:00 2001
From: Correl Roush <correl@gmail.com>
Date: Sun, 3 May 2020 01:03:24 -0400
Subject: [PATCH] Consolidate common UI elements

---
 assets/src/PlanningPokerEntry.elm | 42 ++++---------------------
 assets/src/PlanningPokerRoom.elm  | 36 +++++++---------------
 assets/src/PlanningPokerUI.elm    | 51 +++++++++++++++++++++++++++++++
 3 files changed, 68 insertions(+), 61 deletions(-)
 create mode 100644 assets/src/PlanningPokerUI.elm

diff --git a/assets/src/PlanningPokerEntry.elm b/assets/src/PlanningPokerEntry.elm
index a3c867b..984d56d 100644
--- a/assets/src/PlanningPokerEntry.elm
+++ b/assets/src/PlanningPokerEntry.elm
@@ -8,6 +8,7 @@ import Element.Border as Border
 import Element.Font as Font
 import Element.Input as Input
 import Html exposing (Html)
+import PlanningPokerUI as UI
 
 
 type User
@@ -67,49 +68,18 @@ layout model =
                 , placeholder = Just (Input.placeholder [] (text "Your name"))
                 }
             , el [ centerX ] (text "then")
-            , let
-                ready =
-                    not (String.isEmpty model.name)
-
-                ( color, event ) =
-                    if ready then
-                        ( blue, Just CreateRoom )
-
-                    else
-                        ( lightGrey, Nothing )
-              in
-              Input.button
-                [ centerX
-                , padding 20
-                , Background.color color
-                , Font.color white
-                ]
-                { onPress = event
+            , UI.actionButton [ centerX ]
+                { isActive = not (String.isEmpty model.name)
+                , onPress = CreateRoom
                 , label = text "Make a room!"
                 }
             , el
                 [ centerX
-                , Background.color red
+                , Background.color UI.red
                 , padding 20
-                , Font.color white
+                , Font.color UI.white
                 , transparent (model.error == Nothing)
                 ]
               <|
                 text (Maybe.withDefault " " model.error)
             ]
-
-
-blue =
-    rgb255 100 100 255
-
-
-red =
-    rgb255 255 100 100
-
-
-white =
-    rgb255 255 255 255
-
-
-lightGrey =
-    rgb255 200 200 200
diff --git a/assets/src/PlanningPokerRoom.elm b/assets/src/PlanningPokerRoom.elm
index 97b14f7..f3aa29b 100644
--- a/assets/src/PlanningPokerRoom.elm
+++ b/assets/src/PlanningPokerRoom.elm
@@ -9,6 +9,7 @@ import Element.Border as Border
 import Element.Font as Font
 import Element.Input as Input
 import Html exposing (Html)
+import PlanningPokerUI as UI
 
 
 type alias Model =
@@ -118,20 +119,20 @@ navBar model =
                 |> Maybe.withDefault ""
     in
     row
-        [ Background.color blue
+        [ Background.color UI.blue
         , height (px 50)
         , width fill
         , padding 10
         ]
         [ el
             [ Font.alignLeft
-            , Font.color white
+            , Font.color UI.white
             , width fill
             ]
             (text model.name)
         , el
             [ Font.alignRight
-            , Font.color white
+            , Font.color UI.white
             ]
             (text myName)
         ]
@@ -151,10 +152,10 @@ cards selected =
                 , Border.rounded 10
                 , Background.color <|
                     if selected == Just value then
-                        blue
+                        UI.blue
 
                     else
-                        white
+                        UI.white
                 , Font.size 50
                 ]
                 { onPress = Just (Vote value)
@@ -184,7 +185,7 @@ players playerList =
                         el
                             [ padding 10
                             , Font.alignRight
-                            , Background.color lightGrey
+                            , Background.color UI.lightGrey
                             ]
                             (text <| Maybe.withDefault " " player.vote)
               }
@@ -194,24 +195,9 @@ players playerList =
 
 moderatorTools : Element Msg
 moderatorTools =
-    Input.button
-        [ centerX
-        , padding 20
-        , Background.color blue
-        , Font.color white
-        ]
-        { onPress = Just Reset
+    UI.actionButton
+        [ centerX ]
+        { isActive = True
+        , onPress = Reset
         , label = text "Reset"
         }
-
-
-blue =
-    rgb255 100 100 255
-
-
-lightGrey =
-    rgb255 200 200 200
-
-
-white =
-    rgb255 255 255 255
diff --git a/assets/src/PlanningPokerUI.elm b/assets/src/PlanningPokerUI.elm
new file mode 100644
index 0000000..e73428f
--- /dev/null
+++ b/assets/src/PlanningPokerUI.elm
@@ -0,0 +1,51 @@
+module PlanningPokerUI exposing (actionButton, blue, lightGrey, red, white)
+
+import Element exposing (Element)
+import Element.Background as Background
+import Element.Font as Font
+import Element.Input as Input
+
+
+blue : Element.Color
+blue =
+    Element.rgb255 100 100 255
+
+
+lightGrey : Element.Color
+lightGrey =
+    Element.rgb255 200 200 200
+
+
+red : Element.Color
+red =
+    Element.rgb255 255 100 100
+
+
+white : Element.Color
+white =
+    Element.rgb255 255 255 255
+
+
+actionButton :
+    List (Element.Attribute msg)
+    -> { isActive : Bool, onPress : msg, label : Element msg }
+    -> Element msg
+actionButton attrs { isActive, onPress, label } =
+    let
+        ( color, maybeEvent ) =
+            if isActive then
+                ( blue, Just onPress )
+
+            else
+                ( lightGrey, Nothing )
+    in
+    Input.button
+        ([ Element.padding 20
+         , Background.color color
+         , Font.color white
+         ]
+            ++ attrs
+        )
+        { onPress = maybeEvent
+        , label = label
+        }