Starting an browser extension for TO...

1 files changed, 107 insertions, 0 deletions

diff --git a/src/Struct/Player.elm b/src/Struct/Player.elm
new file mode 100644
index 0000000..73fbdb3
--- /dev/null
+++ b/src/Struct/Player.elm
@@ -0,0 +1,107 @@
+module Struct.Player exposing
+   (
+      Type,
+      get_id,
+      get_username,
+      get_maps,
+      get_campaigns,
+      get_invasions,
+      get_events,
+      get_roster_id,
+      get_inventory_id,
+      decoder,
+      none
+   )
+
+-- Elm -------------------------------------------------------------------------
+import Json.Decode
+import Json.Decode.Pipeline
+
+-- Main Menu -------------------------------------------------------------------
+import Struct.BattleSummary
+import Struct.MapSummary
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+type alias Type =
+   {
+      id : String,
+      name : String,
+      maps : (List Struct.MapSummary.Type),
+      campaigns : (List Struct.BattleSummary.Type),
+      invasions : (List Struct.BattleSummary.Type),
+      events : (List Struct.BattleSummary.Type),
+      roster_id : String,
+      inventory_id : String
+   }
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_id : Type -> String
+get_id t = t.id
+
+get_username : Type -> String
+get_username t = t.name
+
+get_maps : Type -> (List Struct.MapSummary.Type)
+get_maps t = t.maps
+
+get_campaigns : Type -> (List Struct.BattleSummary.Type)
+get_campaigns t = t.campaigns
+
+get_invasions : Type -> (List Struct.BattleSummary.Type)
+get_invasions t = t.invasions
+
+get_events : Type -> (List Struct.BattleSummary.Type)
+get_events t = t.events
+
+get_roster_id : Type -> String
+get_roster_id t = t.roster_id
+
+get_inventory_id : Type -> String
+get_inventory_id t = t.inventory_id
+
+decoder : (Json.Decode.Decoder Type)
+decoder =
+   (Json.Decode.Pipeline.decode
+      Type
+      |> (Json.Decode.Pipeline.required "id" Json.Decode.string)
+      |> (Json.Decode.Pipeline.required "nme" Json.Decode.string)
+      |> (Json.Decode.Pipeline.required
+            "maps"
+            (Json.Decode.list Struct.MapSummary.decoder)
+         )
+      |> (Json.Decode.Pipeline.required
+            "cmps"
+            (Json.Decode.list Struct.BattleSummary.decoder)
+         )
+      |> (Json.Decode.Pipeline.required
+            "invs"
+            (Json.Decode.list Struct.BattleSummary.decoder)
+         )
+      |> (Json.Decode.Pipeline.required
+            "evts"
+            (Json.Decode.list Struct.BattleSummary.decoder)
+         )
+      |> (Json.Decode.Pipeline.required "rtid" Json.Decode.string)
+      |> (Json.Decode.Pipeline.required "ivid" Json.Decode.string)
+   )
+
+none : Type
+none =
+   {
+      id = "",
+      name = "Unknown",
+      maps = [],
+      campaigns = [],
+      invasions = [],
+      events = [],
+      roster_id = "",
+      inventory_id = ""
+   }