1 files changed, 0 insertions, 85 deletions
diff --git a/src/roster-editor/src/View/SubMenu.elm b/src/roster-editor/src/View/SubMenu.elm
deleted file mode 100644
index e661b9c..0000000
--- a/src/roster-editor/src/View/SubMenu.elm
+++ /dev/null
@@ -1,85 +0,0 @@
-module View.SubMenu exposing (get_html)
-
--- Elm -------------------------------------------------------------------------
-import Array
-
-import Html
-import Html.Attributes
-import Html.Lazy
-
--- Map -------------------------------------------------------------------
-import Struct.CharacterTurn
-import Struct.Event
-import Struct.Model
-import Struct.UI
-
-import Util.Html
-
-import View.Controlled.CharacterCard
-
-import View.SubMenu.Characters
-import View.SubMenu.Settings
-import View.SubMenu.Status
-import View.SubMenu.Timeline
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_inner_html : (
-      Struct.Model.Type ->
-      Struct.UI.Tab ->
-      (Html.Html Struct.Event.Type)
-   )
-get_inner_html model tab =
-   case tab of
-      Struct.UI.StatusTab ->
-         (View.SubMenu.Status.get_html model)
-
-      Struct.UI.CharactersTab ->
-         (Html.Lazy.lazy2
-            (View.SubMenu.Characters.get_html)
-            model.characters
-            model.player_ix
-         )
-
-      Struct.UI.SettingsTab ->
-         (View.SubMenu.Settings.get_html model)
-
-      Struct.UI.TimelineTab ->
-         (View.SubMenu.Timeline.get_html model)
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
-get_html model =
-   case (Struct.UI.try_getting_displayed_tab model.ui) of
-      (Just tab) ->
-         (Html.div
-            [(Html.Attributes.class "battle-sub-menu")]
-            [(get_inner_html model tab)]
-         )
-
-      Nothing ->
-         case (Struct.CharacterTurn.try_getting_target model.char_turn) of
-            (Just char_ref) ->
-               case (Array.get char_ref model.characters) of
-                  (Just char) ->
-                     (Html.div
-                        [(Html.Attributes.class "battle-sub-menu")]
-                        [
-                           (Html.text "Targeting:"),
-                           (Html.Lazy.lazy3
-                              (View.Controlled.CharacterCard.get_summary_html)
-                              model.char_turn
-                              model.player_ix
-                              char
-                           )
-                        ]
-                     )
-
-                  Nothing ->
-                     (Util.Html.nothing)
-
-            Nothing ->
-               (Util.Html.nothing)