| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'client/elm/battlemap/src/Battlemap/Html.elm')
| -rw-r--r-- | client/elm/battlemap/src/Battlemap/Html.elm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/client/elm/battlemap/src/Battlemap/Html.elm b/client/elm/battlemap/src/Battlemap/Html.elm index f67bdf0..6506c0f 100644 --- a/client/elm/battlemap/src/Battlemap/Html.elm +++ b/client/elm/battlemap/src/Battlemap/Html.elm @@ -9,12 +9,12 @@ import Battlemap import Battlemap.Tile import Battlemap.Direction -import Update +import Event type alias GridBuilder = { - row : (List (Html.Html Update.Type)), - columns : (List (Html.Html Update.Type)), + row : (List (Html.Html Event.Type)), + columns : (List (Html.Html Event.Type)), row_size : Int, bmap : Battlemap.Type } @@ -28,12 +28,12 @@ nav_level_to_text t = Battlemap.Direction.Down -> "D" Battlemap.Direction.None -> (toString t.floor_level) -view_battlemap_cell : Battlemap.Tile.Type -> (Html.Html Update.Type) +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 @@ -47,7 +47,7 @@ view_battlemap_cell t = ) (Just char_id) -> (Html.td - [ (Html.Events.onClick (Update.SelectCharacter char_id)) ] + [ (Html.Events.onClick (Event.SelectCharacter char_id)) ] [ (Html.text ("[" ++ char_id ++ "]")), (Html.text (nav_level_to_text t)) @@ -73,7 +73,7 @@ foldr_to_html t gb = row_size = (gb.row_size + 1) } -grid_builder_to_html : GridBuilder -> (List (Html.Html Update.Type)) +grid_builder_to_html : GridBuilder -> (List (Html.Html Event.Type)) grid_builder_to_html gb = if (gb.row_size == 0) then @@ -81,7 +81,7 @@ grid_builder_to_html gb = else ((Html.tr [] gb.row) :: gb.columns) -view : Battlemap.Type -> (Html.Html Update.Type) +view : Battlemap.Type -> (Html.Html Event.Type) view battlemap = (Html.table [] |