From 602f67b09d1eb77532641a52d0e885688352e231 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Wed, 7 Nov 2018 10:42:53 +0100
Subject: Adds a link to the roster editor.

---
 src/main-menu/src/ElmModule/View.elm |  6 +++--
 src/main-menu/src/View/Roster.elm    | 48 ++++++++++++++++++++++++++++++++++++
 2 files changed, 52 insertions(+), 2 deletions(-)
 create mode 100644 src/main-menu/src/View/Roster.elm

(limited to 'src/main-menu')

diff --git a/src/main-menu/src/ElmModule/View.elm b/src/main-menu/src/ElmModule/View.elm
index 7e7d114..30a9c77 100644
--- a/src/main-menu/src/ElmModule/View.elm
+++ b/src/main-menu/src/ElmModule/View.elm
@@ -14,8 +14,9 @@ import Struct.Model
 import Struct.Player
 
 import View.BattleListing
-import View.MapListing
 import View.Header
+import View.MapListing
+import View.Roster
 
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
@@ -51,7 +52,8 @@ view model =
                   "main-menu-events"
                   (Struct.Player.get_events model.player)
                ),
-               (View.MapListing.get_html (Struct.Player.get_maps model.player))
+               (View.MapListing.get_html (Struct.Player.get_maps model.player)),
+               (View.Roster.get_html)
             ]
          ),
          (
diff --git a/src/main-menu/src/View/Roster.elm b/src/main-menu/src/View/Roster.elm
new file mode 100644
index 0000000..2876605
--- /dev/null
+++ b/src/main-menu/src/View/Roster.elm
@@ -0,0 +1,48 @@
+module View.Roster exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+
+-- Main Menu -------------------------------------------------------------------
+import Struct.Event
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (Html.Html Struct.Event.Type)
+get_html =
+   (Html.div
+      [
+         (Html.Attributes.class "main-menu-roster")
+      ]
+      [
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-roster-header")
+            ]
+            [
+               (Html.text "Characters")
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-roster-options-body")
+            ]
+            [
+               (Html.a
+                  [
+                     (Html.Attributes.href "/roster-editor/")
+                  ]
+                  [
+                     (Html.text "Edit Main Roster")
+                  ]
+               )
+            ]
+         )
+      ]
+   )
-- 
cgit v1.2.3-70-g09d2