1 files changed, 0 insertions, 78 deletions
diff --git a/elm/battlemap/src/View/Battlemap.elm b/elm/battlemap/src/View/Battlemap.elm
deleted file mode 100644
index efe4d1e..0000000
--- a/elm/battlemap/src/View/Battlemap.elm
+++ /dev/null
@@ -1,78 +0,0 @@
-module View.Battlemap exposing (get_html)
-
-import Array
-
-import List
-
-import Html
-import Html.Attributes
-import Html.Events
-
-import Battlemap
-
-import Character
-
-import View.Battlemap.Tile
-import View.Battlemap.Navigator
-
-import Event
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-char_on_map : Int -> Character.Type -> (Html.Html Event.Type)
-char_on_map tile_size char =
-   let
-      char_loc = (Character.get_location char)
-   in
-      (Html.div
-         [
-            (Html.Attributes.class "battlemap-character-icon"),
-            (Html.Attributes.class
-               ("asset-character-icon-" ++ (Character.get_icon_id char))
-            ),
-            (Html.Events.onClick
-               (Event.CharacterSelected (Character.get_ref char))
-            ),
-            (Html.Attributes.style
-               [
-                  ("top", ((toString (char_loc.y * tile_size)) ++ "px")),
-                  ("left", ((toString (char_loc.x * tile_size)) ++ "px"))
-               ]
-            )
-         ]
-         [
-         ]
-      )
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_html : (
-      Battlemap.Type ->
-      Int ->
-      (List Character.Type) ->
-      (Html.Html Event.Type)
-   )
-get_html battlemap tile_size characters =
-   (Html.div
-      [
-         (Html.Attributes.class "battlemap-container")
-      ]
-      (
-         (List.map
-            (View.Battlemap.Tile.get_html tile_size)
-            (Array.toList (Battlemap.get_tiles battlemap))
-         )
-         ++
-         (List.map
-            (char_on_map tile_size)
-            characters
-         )
-         ++
-         case (Battlemap.try_getting_navigator_summary battlemap) of
-            (Just nav_summary) ->
-               (View.Battlemap.Navigator.get_html tile_size nav_summary)
-
-            Nothing -> [(Html.text "")]
-      )
-   )