Borked mouse controls for the navigator, it seems.

1 files changed, 39 insertions, 0 deletions

diff --git a/elm/battlemap/src/View/Battlemap/Tile.elm b/elm/battlemap/src/View/Battlemap/Tile.elm
new file mode 100644
index 0000000..d38d84e
--- /dev/null
+++ b/elm/battlemap/src/View/Battlemap/Tile.elm
@@ -0,0 +1,39 @@
+module View.Battlemap.Tile exposing (get_html)
+
+import Html
+import Html.Attributes
+import Html.Events
+
+import Battlemap.Tile
+import Battlemap.Location
+
+import Event
+
+get_html : (
+      Int ->
+      Battlemap.Tile.Type ->
+      (Html.Html Event.Type)
+   )
+get_html tile_size tile =
+   let
+      tile_loc = (Battlemap.Tile.get_location tile)
+   in
+      (Html.div
+         [
+            (Html.Attributes.class "battlemap-tile-icon"),
+            (Html.Attributes.class
+               ("asset-tile-" ++ (toString (Battlemap.Tile.get_icon_id tile)))
+            ),
+            (Html.Events.onClick
+               (Event.TileSelected (Battlemap.Location.get_ref tile_loc))
+            ),
+            (Html.Attributes.style
+               [
+                  ("top", ((toString (tile_loc.y * tile_size)) ++ "px")),
+                  ("left", ((toString (tile_loc.x * tile_size)) ++ "px"))
+               ]
+            )
+         ]
+         [
+         ]
+      )