Minor UI improvements.

2 files changed, 8 insertions, 52 deletions

diff --git a/src/battle/src/View/Controlled/CharacterCard.elm b/src/battle/src/View/Controlled/CharacterCard.elm
index 2416323..f4202e8 100644
--- a/src/battle/src/View/Controlled/CharacterCard.elm
+++ b/src/battle/src/View/Controlled/CharacterCard.elm
@@ -351,7 +351,9 @@ get_armor_details omnimods armor =
             ]
          ),
          (Html.div
-            []
+            [
+               (Html.Attributes.class "omnimod-defense-mods")
+            ]
             (List.map
                (\(k, v) ->
                   (Battle.View.DamageType.get_html
diff --git a/src/battle/src/View/SubMenu/Status/TileInfo.elm b/src/battle/src/View/SubMenu/Status/TileInfo.elm
index a045caf..76e6e0e 100644
--- a/src/battle/src/View/SubMenu/Status/TileInfo.elm
+++ b/src/battle/src/View/SubMenu/Status/TileInfo.elm
@@ -12,6 +12,8 @@ import Util.Html
 -- Battle ----------------------------------------------------------------------
 import Battle.Struct.Omnimods
 
+import Battle.View.Omnimods
+
 -- Battle Map ------------------------------------------------------------------
 import BattleMap.Struct.Location
 import BattleMap.Struct.Map
@@ -117,56 +119,6 @@ get_location tile_inst =
          ]
       )
 
-get_mod_html : (String, Int) -> (Html.Html Struct.Event.Type)
-get_mod_html mod =
-   let
-      (category, value) = mod
-   in
-      (Html.div
-         [
-            (Html.Attributes.class "info-card-mod")
-         ]
-         [
-            (Html.text
-               (category ++ ": " ++ (String.fromInt value))
-            )
-         ]
-      )
-
-get_omnimods_listing : (List (String, Int)) -> (Html.Html Struct.Event.Type)
-get_omnimods_listing mod_list =
-   (Html.div
-      [
-         (Html.Attributes.class "info-card-omnimods-listing")
-      ]
-      (List.map (get_mod_html) mod_list)
-   )
-
-get_omnimods : Battle.Struct.Omnimods.Type -> (Html.Html Struct.Event.Type)
-get_omnimods omnimods =
-   (Html.div
-      [
-         (Html.Attributes.class "info-card-omnimods")
-      ]
-      [
-         (Html.text "Attribute Modifiers"),
-         (get_omnimods_listing
-            (Battle.Struct.Omnimods.get_attributes_mods omnimods)
-         ),
-         (Html.text "Statistics Modifiers"),
-         (get_omnimods_listing
-            (Battle.Struct.Omnimods.get_statistics_mods omnimods)
-         ),
-         (Html.text "Attack Modifiers"),
-         (get_omnimods_listing
-            (Battle.Struct.Omnimods.get_attack_mods omnimods)
-         ),
-         (Html.text "Defense Modifiers"),
-         (get_omnimods_listing
-            (Battle.Struct.Omnimods.get_defense_mods omnimods)
-         )
-      ]
-   )
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
@@ -196,7 +148,9 @@ get_html model loc =
                      (get_cost tile)
                   ]
                ),
-               (get_omnimods ((Struct.Model.tile_omnimods_fun model) loc))
+               (Battle.View.Omnimods.get_html
+                  ((Struct.Model.tile_omnimods_fun model) loc)
+               )
             ]
          )