From 9a2d8f37dea8e14afa57affb135def13954df547 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 15 Sep 2017 09:52:54 +0200
Subject: Satisfied with Elm so far, let's go with it.

---
 client/elm/battlemap/src/View.elm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 client/elm/battlemap/src/View.elm

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

diff --git a/client/elm/battlemap/src/View.elm b/client/elm/battlemap/src/View.elm
new file mode 100644
index 0000000..f4774c7
--- /dev/null
+++ b/client/elm/battlemap/src/View.elm
@@ -0,0 +1,35 @@
+module View exposing (view)
+
+import Html exposing (Html, button, div, text, table, tr, td)
+import Html.Events exposing (onClick)
+
+import Update exposing (Msg(Increment, Decrement))
+import Model exposing (Model)
+
+import Battlemap.Html as Batmap exposing (view)
+
+-- VIEW
+
+view : Model -> (Html Msg)
+view model =
+   (div
+      []
+      [
+         (button
+            [ (onClick Decrement) ]
+            [ (text "-") ]
+         ),
+         (div
+            []
+            [ (text (toString model)) ]
+         ),
+         (button
+            [ (onClick Increment) ]
+            [ (text "+") ]
+         ),
+         (div
+            []
+            [(Batmap.view model)]
+         )
+      ]
+   )
-- 
cgit v1.2.3-70-g09d2