Satisfied with Elm so far, let's go with it.

1 files changed, 35 insertions, 0 deletions

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)]
+         )
+      ]
+   )