Adds tabs to the footer menu, no CSS for it though.

1 files changed, 24 insertions, 0 deletions

diff --git a/src/battlemap/src/View/Header.elm b/src/battlemap/src/View/Header.elm
new file mode 100644
index 0000000..3a86741
--- /dev/null
+++ b/src/battlemap/src/View/Header.elm
@@ -0,0 +1,24 @@
+module View.Header exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+
+-- Battlemap -------------------------------------------------------------------
+import Event
+
+import Model
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : Model.Type -> (Html.Html Event.Type)
+get_html model =
+   (Html.div
+      [
+         (Html.Attributes.class "battlemap-header")
+      ]
+      [
+         (Html.text "Tacticians Online - Development Branch")
+      ]
+   )