1 files changed, 95 insertions, 0 deletions
diff --git a/src/character/src/View/SubMenu/Timeline.elm b/src/character/src/View/SubMenu/Timeline.elm
new file mode 100644
index 0000000..7fb1813
--- /dev/null
+++ b/src/character/src/View/SubMenu/Timeline.elm
@@ -0,0 +1,95 @@
+module View.SubMenu.Timeline exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Array
+
+import Html
+import Html.Attributes
+--import Html.Events
+import Html.Lazy
+
+-- Map -------------------------------------------------------------------
+import Struct.Character
+import Struct.Event
+import Struct.TurnResult
+import Struct.Model
+
+import View.SubMenu.Timeline.Attack
+import View.SubMenu.Timeline.Movement
+import View.SubMenu.Timeline.WeaponSwitch
+import View.SubMenu.Timeline.PlayerVictory
+import View.SubMenu.Timeline.PlayerDefeat
+import View.SubMenu.Timeline.PlayerTurnStart
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_turn_result_html : (
+      (Array.Array Struct.Character.Type) ->
+      Int ->
+      Struct.TurnResult.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_turn_result_html characters player_ix turn_result =
+   case turn_result of
+      (Struct.TurnResult.Moved movement) ->
+         (View.SubMenu.Timeline.Movement.get_html
+            characters
+            player_ix
+            movement
+         )
+
+      (Struct.TurnResult.Attacked attack) ->
+         (View.SubMenu.Timeline.Attack.get_html
+            characters
+            player_ix
+            attack
+         )
+
+      (Struct.TurnResult.SwitchedWeapon weapon_switch) ->
+         (View.SubMenu.Timeline.WeaponSwitch.get_html
+            characters
+            player_ix
+            weapon_switch
+         )
+
+      (Struct.TurnResult.PlayerWon pvict) ->
+         (View.SubMenu.Timeline.PlayerVictory.get_html pvict)
+
+      (Struct.TurnResult.PlayerLost pdefeat) ->
+         (View.SubMenu.Timeline.PlayerDefeat.get_html pdefeat)
+
+      (Struct.TurnResult.PlayerTurnStarted pturns) ->
+         (View.SubMenu.Timeline.PlayerTurnStart.get_html pturns)
+
+true_get_html : (
+      (Array.Array Struct.Character.Type) ->
+      Int ->
+      (Array.Array Struct.TurnResult.Type) ->
+      (Html.Html Struct.Event.Type)
+   )
+true_get_html characters player_ix turn_results =
+   (Html.div
+      [
+         (Html.Attributes.class "battle-tabmenu-content"),
+         (Html.Attributes.class "battle-tabmenu-timeline-tab")
+      ]
+      (Array.toList
+         (Array.map
+            (get_turn_result_html characters player_ix)
+            turn_results
+         )
+      )
+   )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
+get_html model =
+   (Html.Lazy.lazy3
+      (true_get_html)
+      model.characters
+      model.player_ix
+      model.timeline
+   )