Adds a link to the roster editor.

3 files changed, 62 insertions, 5 deletions

diff --git a/src/css/src/main-menu.scss b/src/css/src/main-menu.scss
index 1b35427..cb8572e 100644
--- a/src/css/src/main-menu.scss
+++ b/src/css/src/main-menu.scss
@@ -38,7 +38,8 @@ main > *
 }
 
 .main-menu-battle-listing,
-.main-menu-map-listing
+.main-menu-map-listing,
+.main-menu-roster
 {
    border-left: 2px solid $BROWN-1;
    border-right: 2px solid $BROWN-1;
@@ -51,6 +52,7 @@ main > *
 .main-menu-map-listing-body > *,
 .main-menu-map-listing-add-new,
 .main-menu-battle-listing-body > *,
+.main-menu-roster-options-body > *,
 .main-menu-battle-listing-add-new
 {
    padding: 0.3em;
@@ -58,12 +60,14 @@ main > *
 }
 
 .main-menu-map-listing-body a,
+.main-menu-roster-options-body a,
 .main-menu-battle-listing-body a
 {
    text-decoration: none;
 }
 
 .main-menu-map-listing-body > *,
+.main-menu-roster-options-body > *,
 .main-menu-battle-listing-body > *
 {
    background-color: $BROWN-0;
@@ -73,13 +77,15 @@ main > *
 }
 
 .main-menu-map-listing-body > *:hover,
+.main-menu-roster-options-body > *:hover,
 .main-menu-battle-listing-body > *:hover
 {
    background-color: $BROWN-1;
 }
 
 .main-menu-map-listing-header,
-.main-menu-battle-listing-header
+.main-menu-battle-listing-header,
+.main-menu-roster-header
 {
    font-size: 1.3em;
    font-variant: small-caps;
@@ -94,7 +100,8 @@ main > *
    background-color: $RED-2;
 }
 
-.main-menu-map-listing-header
+.main-menu-map-listing-header,
+.main-menu-roster-header
 {
    background-color: $GREEN-2;
 }
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")
+                  ]
+               )
+            ]
+         )
+      ]
+   )