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"))
               ]
            )
         ]
         [
         ]
      )