| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battle')
| -rw-r--r-- | src/battle/src/Struct/UI.elm | 10 | ||||
| -rw-r--r-- | src/battle/src/View/MainMenu.elm | 16 |
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") + ] + [ + ] ) -------------------------------------------------------------------------------- |