From ef7fd312bedae718ab5070cda7e73e48d1a255cb Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 4 Sep 2020 13:33:35 +0200
Subject: Uncommitted changes.

---
 src/battle/src/Struct/UI.elm     | 10 ++++++++++
 src/battle/src/View/MainMenu.elm | 16 ++++++++++++----
 2 files changed, 22 insertions(+), 4 deletions(-)

(limited to 'src/battle')

diff --git a/src/battle/src/Struct/UI.elm b/src/battle/src/Struct/UI.elm
index b1cee5c..0c0aeb6 100644
--- a/src/battle/src/Struct/UI.elm
+++ b/src/battle/src/Struct/UI.elm
@@ -16,6 +16,7 @@ module Struct.UI exposing
       set_displayed_tab,
       clear_displayed_tab,
       tab_to_string,
+      tab_to_class_name,
       get_all_tabs,
 
       -- Navigator
@@ -108,6 +109,15 @@ tab_to_string tab =
       SettingsTab -> "Settings"
       TimelineTab -> "Timeline"
 
+tab_to_class_name : Tab -> String
+tab_to_class_name tab =
+   case tab of
+      (TileStatusTab _) -> "status"
+      (CharacterStatusTab _) -> "status"
+      CharactersTab -> "characters"
+      SettingsTab -> "parameters"
+      TimelineTab -> "timeline"
+
 get_all_tabs : (List Tab)
 get_all_tabs =
    [CharactersTab, SettingsTab, TimelineTab]
diff --git a/src/battle/src/View/MainMenu.elm b/src/battle/src/View/MainMenu.elm
index 318604c..093f4a4 100644
--- a/src/battle/src/View/MainMenu.elm
+++ b/src/battle/src/View/MainMenu.elm
@@ -15,15 +15,23 @@ import Struct.UI
 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.tab_to_string tab)) ]
+      [
+         (Html.Events.onClick (Struct.Event.TabSelected tab)),
+         (Html.Attributes.class (Struct.UI.tab_to_class_name tab))
+      ]
+      [
+      ]
    )
 
 get_main_menu_button_html : (Html.Html Struct.Event.Type)
 get_main_menu_button_html =
    (Html.button
-      [ (Html.Events.onClick Struct.Event.GoToMainMenu) ]
-      [ (Html.text "Main Menu") ]
+      [
+         (Html.Events.onClick Struct.Event.GoToMainMenu),
+         (Html.Attributes.class "main-menu")
+      ]
+      [
+      ]
    )
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3-70-g09d2