From 0b32c52d35e48dfd24ebf87357c8da0ea28794c2 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Wed, 5 Sep 2018 17:55:54 +0200
Subject: Adds PH login buttons for players 1 & 2.

---
 src/login/src/ElmModule/Update.elm | 20 ++++++++++++++++++++
 src/login/src/Struct/Event.elm     |  1 +
 src/login/src/View/SignIn.elm      | 18 ++++++++++++++++++
 3 files changed, 39 insertions(+)

(limited to 'src')

diff --git a/src/login/src/ElmModule/Update.elm b/src/login/src/ElmModule/Update.elm
index 66708d8..be840fc 100644
--- a/src/login/src/ElmModule/Update.elm
+++ b/src/login/src/ElmModule/Update.elm
@@ -88,3 +88,23 @@ update event model =
          )
 
       Struct.Event.Connected -> (Update.HandleConnected.apply_to model)
+
+      (Struct.Event.DebugSignInAs pid) ->
+         (Update.SendSignIn.apply_to
+            (
+               case pid of
+                  "0" ->
+                     {new_model |
+                        username = "Player1",
+                        password1 = "Kalimer0"
+                     }
+
+                  "1" ->
+                     {new_model |
+                        username = "Player2",
+                        password1 = "Kalimer1"
+                     }
+
+                  _ -> new_model
+            )
+         )
diff --git a/src/login/src/Struct/Event.elm b/src/login/src/Struct/Event.elm
index 39af983..8402cc9 100644
--- a/src/login/src/Struct/Event.elm
+++ b/src/login/src/Struct/Event.elm
@@ -27,6 +27,7 @@ type Type =
    | ServerReplied (Result Http.Error (List Struct.ServerReply.Type))
    | TabSelected Struct.UI.Tab
    | Connected
+   | DebugSignInAs String
 
 attempted : (Result.Result err val) -> Type
 attempted act =
diff --git a/src/login/src/View/SignIn.elm b/src/login/src/View/SignIn.elm
index d758263..6d75cb4 100644
--- a/src/login/src/View/SignIn.elm
+++ b/src/login/src/View/SignIn.elm
@@ -62,6 +62,24 @@ get_html model =
             [
                (Html.text "Send")
             ]
+         ),
+         (Html.button
+            [
+               (Html.Attributes.class "login-debug-button"),
+               (Html.Events.onClick (Struct.Event.DebugSignInAs "0"))
+            ]
+            [
+               (Html.text "[PH] Login as Player 1")
+            ]
+         ),
+         (Html.button
+            [
+               (Html.Attributes.class "login-debug-button"),
+               (Html.Events.onClick (Struct.Event.DebugSignInAs "1"))
+            ]
+            [
+               (Html.text "[PH] Login as Player 2")
+            ]
          )
       ]
    )
-- 
cgit v1.2.3-70-g09d2