summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/main-menu')
-rw-r--r--src/main-menu/src/ElmModule/View.elm6
-rw-r--r--src/main-menu/src/View/Roster.elm48
2 files changed, 52 insertions, 2 deletions
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")
+ ]
+ )
+ ]
+ )
+ ]
+ )