| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Struct')
| -rw-r--r-- | src/Struct/Event.elm | 19 | ||||
| -rw-r--r-- | src/Struct/Flags.elm | 43 | ||||
| -rw-r--r-- | src/Struct/Model.elm | 29 | ||||
| -rw-r--r-- | src/Struct/UI.elm | 24 |
4 files changed, 115 insertions, 0 deletions
diff --git a/src/Struct/Event.elm b/src/Struct/Event.elm new file mode 100644 index 0000000..78079d2 --- /dev/null +++ b/src/Struct/Event.elm @@ -0,0 +1,19 @@ +module Struct.Event exposing (..) + +-- Elm ------------------------------------------------------------------------- + +-- Local Module ---------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- TYPES ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- +type Type = + EventType0 + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- diff --git a/src/Struct/Flags.elm b/src/Struct/Flags.elm new file mode 100644 index 0000000..43fc7c2 --- /dev/null +++ b/src/Struct/Flags.elm @@ -0,0 +1,43 @@ +module Struct.Flags exposing + ( + Type, + force_get_parameter, + get_parameters_as_url + ) + +-- Elm ------------------------------------------------------------------------- +import List + +-------------------------------------------------------------------------------- +-- TYPES ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- +type alias Type = + { + url_parameters : (List (List String)) + } + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- +parameter_as_url : (List String) -> String +parameter_as_url parameter = + case parameter of + [name, value] -> (name ++ "=" ++ value) + _ -> "" + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +force_get_parameter : String -> Type -> String +force_get_parameter parameter flags = "" + -- TODO: implement using Tactician Online's, but without Shared.Util.List + +get_parameters_as_url : Type -> String +get_parameters_as_url flags = + (List.foldl + (\parameter -> \current_parameters -> + (current_parameters ++ "&" ++ (parameter_as_url parameter)) + ) + "" + flags.url_parameters + ) diff --git a/src/Struct/Model.elm b/src/Struct/Model.elm new file mode 100644 index 0000000..a11db5c --- /dev/null +++ b/src/Struct/Model.elm @@ -0,0 +1,29 @@ +module Struct.Model exposing + ( + Type + ) + +-- Elm ------------------------------------------------------------------------- + +-- Tonkadur -------------------------------------------------------------------- +import Tonkadur.Types + +-- Local Module ---------------------------------------------------------------- +import Struct.UI + +-------------------------------------------------------------------------------- +-- TYPES ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- +type alias Type = + { + tonkadur : Tonkadur.Types.State, + ui : Struct.UI.Type + } + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- diff --git a/src/Struct/UI.elm b/src/Struct/UI.elm new file mode 100644 index 0000000..53348f6 --- /dev/null +++ b/src/Struct/UI.elm @@ -0,0 +1,24 @@ +module Struct.UI exposing + ( + Type + ) + +-- Elm ------------------------------------------------------------------------- +import List +import String + +-------------------------------------------------------------------------------- +-- TYPES ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- +type alias Type = + { + displayed_options : (List String) + } + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- |