Uncommitted changes.skills_and_conditions

2 files changed, 22 insertions, 4 deletions

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")
+      ]
+      [
+      ]
    )
 
 --------------------------------------------------------------------------------