1 files changed, 38 insertions, 0 deletions
diff --git a/src/character/src/View/MainMenu.elm b/src/character/src/View/MainMenu.elm
new file mode 100644
index 0000000..9f3099b
--- /dev/null
+++ b/src/character/src/View/MainMenu.elm
@@ -0,0 +1,38 @@
+module View.MainMenu exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+import Html.Events
+
+-- Map -------------------------------------------------------------------
+import Struct.Event
+import Struct.UI
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_menu_button_html : (
+      Struct.UI.Tab ->
+      (Html.Html Struct.Event.Type)
+   )
+get_menu_button_html tab =
+   (Html.button
+      [ (Html.Events.onClick (Struct.Event.TabSelected tab)) ]
+      [ (Html.text (Struct.UI.to_string tab)) ]
+   )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (Html.Html Struct.Event.Type)
+get_html =
+   (Html.div
+      [
+         (Html.Attributes.class "battle-main-menu")
+      ]
+      (List.map
+         (get_menu_button_html)
+         (Struct.UI.get_all_tabs)
+      )
+   )