summaryrefslogtreecommitdiff |
diff options
author | nsensfel <SpamShield0@noot-noot.org> | 2017-10-19 13:30:40 +0200 |
---|---|---|
committer | nsensfel <SpamShield0@noot-noot.org> | 2017-10-19 13:30:40 +0200 |
commit | e008855086d124f0de14eacc858ecb57d23e371c (patch) | |
tree | e3fe94dcf2966d17ac970b4b9cbbf6998c1f34a6 /elm/battlemap/src/View/Battlemap | |
parent | ab299e08cee6ee9b2b122ce87b9bdab3b0dd637c (diff) |
Starting a more modular approach for the website.
Diffstat (limited to 'elm/battlemap/src/View/Battlemap')
-rw-r--r-- | elm/battlemap/src/View/Battlemap/Navigator.elm | 17 | ||||
-rw-r--r-- | elm/battlemap/src/View/Battlemap/Tile.elm | 39 |
2 files changed, 0 insertions, 56 deletions
diff --git a/elm/battlemap/src/View/Battlemap/Navigator.elm b/elm/battlemap/src/View/Battlemap/Navigator.elm deleted file mode 100644 index 4180e6d..0000000 --- a/elm/battlemap/src/View/Battlemap/Navigator.elm +++ /dev/null @@ -1,17 +0,0 @@ -module View.Battlemap.Navigator exposing (get_html) - -import Html ---import Html.Attributes ---import Html.Events - ---import Battlemap.Location -import Battlemap.Navigator - -import Event - -get_html : ( - Int -> - Battlemap.Navigator.Summary -> - (List (Html.Html Event.Type)) - ) -get_html tile_size nav_summary = [] diff --git a/elm/battlemap/src/View/Battlemap/Tile.elm b/elm/battlemap/src/View/Battlemap/Tile.elm deleted file mode 100644 index d38d84e..0000000 --- a/elm/battlemap/src/View/Battlemap/Tile.elm +++ /dev/null @@ -1,39 +0,0 @@ -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")) - ] - ) - ] - [ - ] - ) |