1 files changed, 92 insertions, 0 deletions
diff --git a/src/View/BattleListing.elm b/src/View/BattleListing.elm
new file mode 100644
index 0000000..9b667ac
--- /dev/null
+++ b/src/View/BattleListing.elm
@@ -0,0 +1,92 @@
+module View.BattleListing exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+-- import Html.Events
+
+-- Map -------------------------------------------------------------------
+import Struct.BattleSummary
+import Struct.Event
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_item_html : Struct.BattleSummary.Type -> (Html.Html Struct.Event.Type)
+get_item_html item =
+   (Html.a
+      [
+         (Html.Attributes.href
+            (
+               "/battle/?id="
+               ++ (Struct.BattleSummary.get_id item)
+            )
+         ),
+         (
+            if (Struct.BattleSummary.is_players_turn item)
+            then
+               (Html.Attributes.class "main-menu-battle-summary-is-active")
+            else
+               (Html.Attributes.class "main-menu-battle-summary-is-inactive")
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-battle-summary-name")
+            ]
+            [
+               (Html.text (Struct.BattleSummary.get_name item))
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-battle-summary-date")
+            ]
+            [
+               (Html.text (Struct.BattleSummary.get_last_edit item))
+            ]
+         )
+      ]
+   )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      String ->
+      String ->
+      (List Struct.BattleSummary.Type) ->
+      (Html.Html Struct.Event.Type)
+   )
+get_html name class battle_summaries =
+   (Html.div
+      [
+         (Html.Attributes.class class),
+         (Html.Attributes.class "main-menu-battle-listing")
+      ]
+      [
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-battle-listing-header")
+            ]
+            [
+               (Html.text name)
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-battle-listing-body")
+            ]
+            (List.map (get_item_html) battle_summaries)
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "main-menu-battle-listing-add-new")
+            ]
+            [
+               (Html.text "New")
+            ]
+         )
+      ]
+   )