From f716016b5a6fd774fa49640f3dec9b67280853b0 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 9 Jul 2018 18:32:31 +0200 Subject: Starting to implement some JS stuff... --- src/battlemap/src/ElmModule/Init.elm | 5 +++-- src/battlemap/src/Main.elm | 5 +++-- src/battlemap/src/Struct/Flags.elm | 26 ++++++++++++++++++++++++++ src/battlemap/www/index.html | 19 +++++++++++++++++-- 4 files changed, 49 insertions(+), 6 deletions(-) create mode 100644 src/battlemap/src/Struct/Flags.elm (limited to 'src/battlemap') 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 @@ - - + + + -- cgit v1.2.3-70-g09d2