1 files changed, 55 insertions, 0 deletions
diff --git a/src/map-editor/src/View/SubMenu/Status.elm b/src/map-editor/src/View/SubMenu/Status.elm
new file mode 100644
index 0000000..f67c85e
--- /dev/null
+++ b/src/map-editor/src/View/SubMenu/Status.elm
@@ -0,0 +1,55 @@
+module View.SubMenu.Status exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Array
+
+import Html
+import Html.Attributes
+import Html.Lazy
+
+-- Struct.Battlemap -------------------------------------------------------------------
+import Struct.Event
+import Struct.Location
+import Struct.Model
+import Struct.UI
+
+import View.SubMenu.Status.CharacterInfo
+import View.SubMenu.Status.TileInfo
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
+get_html model =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-footer-tabmenu-content"),
+         (Html.Attributes.class "battlemap-footer-tabmenu-content-status")
+      ]
+      [
+         (case (Struct.UI.get_previous_action model.ui) of
+            (Just (Struct.UI.SelectedLocation loc)) ->
+               (View.SubMenu.Status.TileInfo.get_html
+                  model
+                  (Struct.Location.from_ref loc)
+               )
+
+            (Just (Struct.UI.SelectedCharacter target_char)) ->
+               case (Array.get target_char model.characters) of
+                  (Just char) ->
+                     (Html.Lazy.lazy2
+                        (View.SubMenu.Status.CharacterInfo.get_html)
+                        model.player_ix
+                        char
+                     )
+
+                  _ -> (Html.text "Error: Unknown character selected.")
+
+            _ ->
+               (Html.text "Nothing is being focused.")
+         )
+      ]
+   )