1 files changed, 36 insertions, 0 deletions
diff --git a/elm/battlemap/src/View/Controls.elm b/elm/battlemap/src/View/Controls.elm
new file mode 100644
index 0000000..be698bf
--- /dev/null
+++ b/elm/battlemap/src/View/Controls.elm
@@ -0,0 +1,36 @@
+module View.Controls exposing (view)
+
+import Html
+import Html.Events
+
+import Battlemap.Direction
+
+import Event
+
+direction_button : Battlemap.Direction.Type -> String -> (Html.Html Event.Type)
+direction_button dir label =
+   (Html.button
+      [
+         (Html.Events.onClick
+            (Event.DirectionRequest dir)
+         )
+      ]
+      [ (Html.text label) ]
+   )
+
+end_turn_button : (Html.Html Event.Type)
+end_turn_button =
+   (Html.button
+      [ (Html.Events.onClick Event.EndTurn) ]
+      [ (Html.text "End Turn") ]
+   )
+
+view : (List (Html.Html Event.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)
+   ]