From c9786fd27954c79faf901963003a8b7b3131ca4c Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 15 Sep 2017 17:41:07 +0200 Subject: Adds UI to test the Navigator. --- client/elm/battlemap/src/Update.elm | 28 ++++++++++++++++++++++++---- 1 file changed, 24 insertions(+), 4 deletions(-) (limited to 'client/elm/battlemap/src/Update.elm') diff --git a/client/elm/battlemap/src/Update.elm b/client/elm/battlemap/src/Update.elm index d03239a..86b9c6e 100644 --- a/client/elm/battlemap/src/Update.elm +++ b/client/elm/battlemap/src/Update.elm @@ -1,11 +1,31 @@ -module Update exposing (Msg(Increment, Decrement), update) +module Update exposing (..) import Model exposing (Model, model) -type Msg = Increment | Decrement +import Battlemap.Direction exposing (..) + +import Battlemap.Navigator as Nr exposing (go) + +type Msg = DirectionRequest Direction | None update : Msg -> Model -> Model update msg model = case msg of - Increment -> (model + 1) - Decrement -> (model - 1) + (DirectionRequest d) -> + (case model.navigator of + Nothing -> model + (Just nav) -> + let + (new_bmap, new_nav) = + (Nr.go + model.battlemap + nav + d + ) + in + {model | + battlemap = new_bmap, + navigator = (Just new_nav) + } + ) + _ -> model -- cgit v1.2.3-70-g09d2