| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'src/battlemap')
| -rw-r--r-- | src/battlemap/src/ElmModule/Init.elm | 5 | ||||
| -rw-r--r-- | src/battlemap/src/Main.elm | 5 | ||||
| -rw-r--r-- | src/battlemap/src/Struct/Flags.elm | 26 | ||||
| -rw-r--r-- | src/battlemap/www/index.html | 19 | 
4 files changed, 49 insertions, 6 deletions
diff --git a/src/battlemap/src/ElmModule/Init.elm b/src/battlemap/src/ElmModule/Init.elm index 88e8441..3e6cc52 100644 --- a/src/battlemap/src/ElmModule/Init.elm +++ b/src/battlemap/src/ElmModule/Init.elm @@ -6,6 +6,7 @@ module ElmModule.Init exposing (init)  import Comm.LoadBattlemap  import Struct.Event +import Struct.Flags  import Struct.Model  -------------------------------------------------------------------------------- @@ -15,8 +16,8 @@ import Struct.Model  --------------------------------------------------------------------------------  -- EXPORTED --------------------------------------------------------------------  -------------------------------------------------------------------------------- -init : (Struct.Model.Type, (Cmd Struct.Event.Type)) -init = +init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)) +init flags =     let model = (Struct.Model.new) in        (           model, diff --git a/src/battlemap/src/Main.elm b/src/battlemap/src/Main.elm index 96b267f..0d22cd5 100644 --- a/src/battlemap/src/Main.elm +++ b/src/battlemap/src/Main.elm @@ -4,15 +4,16 @@ import Html  -- Battlemap -------------------------------------------------------------------  import Struct.Model  import Struct.Event +import Struct.Flags  import ElmModule.Init  import ElmModule.Subscriptions  import ElmModule.View  import ElmModule.Update -main : (Program Never Struct.Model.Type Struct.Event.Type) +main : (Program Struct.Flags.Type Struct.Model.Type Struct.Event.Type)  main = -   (Html.program +   (Html.programWithFlags        {           init = ElmModule.Init.init,           view = ElmModule.View.view, diff --git a/src/battlemap/src/Struct/Flags.elm b/src/battlemap/src/Struct/Flags.elm new file mode 100644 index 0000000..d25f432 --- /dev/null +++ b/src/battlemap/src/Struct/Flags.elm @@ -0,0 +1,26 @@ +module Struct.Flags exposing +   ( +      Type +   ) + +-- Elm ------------------------------------------------------------------------- + +-- Battlemap ------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- TYPES ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- +type alias Type = +   { +      user_id : String, +      token : String, +      url_params : (List (List String)) +   } + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- diff --git a/src/battlemap/www/index.html b/src/battlemap/www/index.html index c90a5d4..fcba44a 100644 --- a/src/battlemap/www/index.html +++ b/src/battlemap/www/index.html @@ -3,13 +3,28 @@     <head>        <link rel="stylesheet" type="text/css" href="../global/style.css">        <link rel="stylesheet" type="text/css" href="../battlemap/style.css"> -      <link rel="stylesheet" type="text/css" href="../asset/tiles.css">        <link rel="stylesheet" type="text/css" href="../asset/characters.css">        <link rel="stylesheet" type="text/css" href="../asset/armors.css">        <link rel="icon" type="image/x-icon" href="/favicon.ico">     </head>     <body>        <script src="script/main.js"></script> -      <script>Elm.Main.fullscreen();</script> +      <script src="../global/script/session.js"></script> +      <script src="../global/script/urlparams.js"></script> +      <script> +         tacticians_online.session.load(); + +         tacticians_online.app = +            Elm.Main.fullscreen +            ( +               { +                  user_id: tacticians_online.session.get_user_id(), +                  token: tacticians_online.session.get_token(), +                  url_params: tacticians_online.urlparams.get_parameters() +               } +            ); + +         tacticians_online.session.attach_to(tacticians_online.app); +      </script>     </body>  </html>  | 


