From babe47cb2541113e245f7db4b5e981f23f985fa3 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 22 Sep 2017 14:47:47 +0200
Subject: Clears up View.elm.

---
 client/elm/battlemap/src/View/Controls.elm | 36 ++++++++++++++++++++++++++++++
 client/elm/battlemap/src/View/Status.elm   | 30 +++++++++++++++++++++++++
 2 files changed, 66 insertions(+)
 create mode 100644 client/elm/battlemap/src/View/Controls.elm
 create mode 100644 client/elm/battlemap/src/View/Status.elm

(limited to 'client/elm/battlemap/src/View')

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)
+   ]
diff --git a/client/elm/battlemap/src/View/Status.elm b/client/elm/battlemap/src/View/Status.elm
new file mode 100644
index 0000000..544aa4b
--- /dev/null
+++ b/client/elm/battlemap/src/View/Status.elm
@@ -0,0 +1,30 @@
+module View.Status exposing (view)
+
+import Dict
+
+import Html
+
+import Update
+import Model
+
+view : Model.Type -> (Html.Html Update.Type)
+view model =
+   (Html.text
+      (case (model.selection, model.navigator) of
+         (Nothing, _) -> ""
+         (_, Nothing) -> ""
+         ((Just char_id), (Just nav)) ->
+            case (Dict.get char_id model.characters) of
+               Nothing -> ""
+               (Just char) ->
+                  (
+                     "Controlling "
+                     ++ char.name
+                     ++ ": "
+                     ++ (toString nav.remaining_points)
+                     ++ "/"
+                     ++ (toString char.movement_points)
+                     ++ " movement points remaining."
+                  )
+      )
+   )
-- 
cgit v1.2.3-70-g09d2