1 files changed, 0 insertions, 100 deletions
diff --git a/client/elm/battlemap/src/Battlemap/Html.elm b/client/elm/battlemap/src/Battlemap/Html.elm
deleted file mode 100644
index 6506c0f..0000000
--- a/client/elm/battlemap/src/Battlemap/Html.elm
+++ /dev/null
@@ -1,100 +0,0 @@
-module Battlemap.Html exposing (view)
-
-import Array
-
-import Html
-import Html.Events
-
-import Battlemap
-import Battlemap.Tile
-import Battlemap.Direction
-
-import Event
-
-type alias GridBuilder =
-   {
-      row : (List (Html.Html Event.Type)),
-      columns : (List (Html.Html Event.Type)),
-      row_size : Int,
-      bmap : Battlemap.Type
-   }
-
-nav_level_to_text : Battlemap.Tile.Type -> String
-nav_level_to_text t =
-   case t.nav_level of
-      Battlemap.Direction.Right -> "R"
-      Battlemap.Direction.Left -> "L"
-      Battlemap.Direction.Up -> "U"
-      Battlemap.Direction.Down -> "D"
-      Battlemap.Direction.None -> (toString t.floor_level)
-
-view_battlemap_cell : Battlemap.Tile.Type -> (Html.Html Event.Type)
-view_battlemap_cell t =
-   case t.char_level of
-      Nothing ->
-         (Html.td
-            [ (Html.Events.onClick (Event.SelectTile t.location)) ]
-            [
-               (Html.text
-                  (case t.mod_level of
-                     Nothing -> "[_]"
-                     (Just Battlemap.Tile.CanBeReached) -> "[M]"
-                     (Just Battlemap.Tile.CanBeAttacked) -> "[A]"
-                  )
-               ),
-               (Html.text (nav_level_to_text t))
-            ]
-         )
-      (Just char_id) ->
-         (Html.td
-            [ (Html.Events.onClick (Event.SelectCharacter char_id)) ]
-            [
-               (Html.text ("[" ++ char_id ++ "]")),
-               (Html.text (nav_level_to_text t))
-            ]
-         )
-
-
-foldr_to_html : Battlemap.Tile.Type -> GridBuilder -> GridBuilder
-foldr_to_html t gb =
-   if (gb.row_size == gb.bmap.width)
-   then
-      {gb |
-         row = [(view_battlemap_cell t)],
-         row_size = 1,
-         columns =
-            (
-               (Html.tr [] gb.row) :: gb.columns
-            )
-      }
-   else
-      {gb |
-         row = ((view_battlemap_cell t) :: gb.row),
-         row_size = (gb.row_size + 1)
-      }
-
-grid_builder_to_html : GridBuilder -> (List (Html.Html Event.Type))
-grid_builder_to_html gb =
-   if (gb.row_size == 0)
-   then
-      gb.columns
-   else
-     ((Html.tr [] gb.row) :: gb.columns)
-
-view : Battlemap.Type -> (Html.Html Event.Type)
-view battlemap =
-   (Html.table
-      []
-      (grid_builder_to_html
-         (Array.foldr
-            (foldr_to_html)
-            {
-               row = [],
-               columns = [],
-               row_size = 0,
-               bmap = battlemap
-            }
-            battlemap.content
-         )
-      )
-   )