From b3fd9613c298e1af44f025d9d95021eec8c72a59 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 24 Aug 2018 17:36:33 +0200
Subject: Starting to work on the character editor.

---
 src/character/src/View/MainMenu.elm | 38 +++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 src/character/src/View/MainMenu.elm

(limited to 'src/character/src/View/MainMenu.elm')

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)
+      )
+   )
-- 
cgit v1.2.3-70-g09d2