From babe47cb2541113e245f7db4b5e981f23f985fa3 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 22 Sep 2017 14:47:47 +0200 Subject: Clears up View.elm. --- client/elm/battlemap/src/View/Controls.elm | 36 ++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 client/elm/battlemap/src/View/Controls.elm (limited to 'client/elm/battlemap/src/View/Controls.elm') diff --git a/client/elm/battlemap/src/View/Controls.elm b/client/elm/battlemap/src/View/Controls.elm new file mode 100644 index 0000000..203fcdb --- /dev/null +++ b/client/elm/battlemap/src/View/Controls.elm @@ -0,0 +1,36 @@ +module View.Controls exposing (view) + +import Html +import Html.Events + +import Battlemap.Direction + +import Update + +direction_button : Battlemap.Direction.Type -> String -> (Html.Html Update.Type) +direction_button dir label = + (Html.button + [ + (Html.Events.onClick + (Update.DirectionRequest dir) + ) + ] + [ (Html.text label) ] + ) + +end_turn_button : (Html.Html Update.Type) +end_turn_button = + (Html.button + [ (Html.Events.onClick Update.EndTurn) ] + [ (Html.text "End Turn") ] + ) + +view : (List (Html.Html Update.Type)) +view = + [ + (direction_button Battlemap.Direction.Left "Left"), + (direction_button Battlemap.Direction.Down "Down"), + (direction_button Battlemap.Direction.Up "Up"), + (direction_button Battlemap.Direction.Right "Right"), + (end_turn_button) + ] -- cgit v1.2.3-70-g09d2