Redirects to main-menu upon login in.

7 files changed, 41 insertions, 5 deletions

diff --git a/src/login/src/Action/Session.elm b/src/login/src/Action/Session.elm
index eab1658..1074cd7 100644
--- a/src/login/src/Action/Session.elm
+++ b/src/login/src/Action/Session.elm
@@ -1,4 +1,8 @@
 port module Action.Session exposing (..)
 
+import Struct.Event
+
 port store_new_session : (String, String) -> (Cmd msg)
 port reset_session : () -> (Cmd msg)
+port connected: (() -> msg) -> (Sub msg)
+port go_to : (String) -> (Cmd msg)
diff --git a/src/login/src/ElmModule/Subscriptions.elm b/src/login/src/ElmModule/Subscriptions.elm
index fe276f4..08ba697 100644
--- a/src/login/src/ElmModule/Subscriptions.elm
+++ b/src/login/src/ElmModule/Subscriptions.elm
@@ -2,16 +2,18 @@ module ElmModule.Subscriptions exposing (..)
 
 -- Elm -------------------------------------------------------------------------
 
--- Map -------------------------------------------------------------------
+-- Main Menu -------------------------------------------------------------------
+import Action.Session
+
 import Struct.Model
 import Struct.Event
 
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
-
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
 subscriptions : Struct.Model.Type -> (Sub Struct.Event.Type)
-subscriptions model = Sub.none
+subscriptions model =
+   (Action.Session.connected (always Struct.Event.Connected))
diff --git a/src/login/src/ElmModule/Update.elm b/src/login/src/ElmModule/Update.elm
index babb5b5..66708d8 100644
--- a/src/login/src/ElmModule/Update.elm
+++ b/src/login/src/ElmModule/Update.elm
@@ -6,6 +6,7 @@ module ElmModule.Update exposing (update)
 import Struct.Event
 import Struct.Model
 
+import Update.HandleConnected
 import Update.HandleServerReply
 import Update.SendSignIn
 import Update.SendSignUp
@@ -19,7 +20,6 @@ import Update.SelectTab
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
-
 update : (
       Struct.Event.Type ->
       Struct.Model.Type ->
@@ -87,3 +87,4 @@ update event model =
             Cmd.none
          )
 
+      Struct.Event.Connected -> (Update.HandleConnected.apply_to model)
diff --git a/src/login/src/Struct/Event.elm b/src/login/src/Struct/Event.elm
index 662b768..39af983 100644
--- a/src/login/src/Struct/Event.elm
+++ b/src/login/src/Struct/Event.elm
@@ -26,6 +26,7 @@ type Type =
    | SetEmail2 String
    | ServerReplied (Result Http.Error (List Struct.ServerReply.Type))
    | TabSelected Struct.UI.Tab
+   | Connected
 
 attempted : (Result.Result err val) -> Type
 attempted act =
diff --git a/src/login/src/Struct/Model.elm b/src/login/src/Struct/Model.elm
index cb7bf35..88a509e 100644
--- a/src/login/src/Struct/Model.elm
+++ b/src/login/src/Struct/Model.elm
@@ -9,8 +9,9 @@ module Struct.Model exposing
 
 -- Elm -------------------------------------------------------------------------
 
--- Map -------------------------------------------------------------------
+-- Login -----------------------------------------------------------------------
 import Struct.Error
+import Struct.Event
 import Struct.Flags
 import Struct.HelpRequest
 import Struct.UI
diff --git a/src/login/src/Update/HandleConnected.elm b/src/login/src/Update/HandleConnected.elm
new file mode 100644
index 0000000..5d1284d
--- /dev/null
+++ b/src/login/src/Update/HandleConnected.elm
@@ -0,0 +1,25 @@
+module Update.HandleConnected exposing (apply_to)
+-- Elm -------------------------------------------------------------------------
+
+-- Login -----------------------------------------------------------------------
+import Action.Session
+
+import Constants.IO
+
+import Struct.Model
+import Struct.Event
+import Struct.UI
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
+apply_to model =
+   (
+      model,
+      (Action.Session.go_to (Constants.IO.base_url ++"/main-menu/"))
+   )
diff --git a/src/login/www/index.html b/src/login/www/index.html
index 459c550..f3b9b21 100644
--- a/src/login/www/index.html
+++ b/src/login/www/index.html
@@ -9,6 +9,7 @@
       <script src="script/main.js"></script>
       <script src="../global/script/session.js"></script>
       <script src="../global/script/urlparams.js"></script>
+      <script src="../global/script/navigation.js"></script>
       <script>
          tacticians_online.session.load();
 
@@ -23,6 +24,7 @@
             );
 
          tacticians_online.session.attach_to(tacticians_online.app);
+         tacticians_online.navigation.attach_to(tacticians_online.app);
       </script>
    </body>
 </html>