...

2 files changed, 99 insertions, 92 deletions

diff --git a/src/View/BattleListing.elm b/src/View/BattleListing.elm
deleted file mode 100644
index 9b667ac..0000000
--- a/src/View/BattleListing.elm
+++ /dev/null
@@ -1,92 +0,0 @@
-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")
-            ]
-         )
-      ]
-   )
diff --git a/src/View/Player.elm b/src/View/Player.elm
new file mode 100644
index 0000000..7d100e9
--- /dev/null
+++ b/src/View/Player.elm
@@ -0,0 +1,99 @@
+module View.Player exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+-- import Html.Events
+
+-- Extension -------------------------------------------------------------------
+import Struct.BattleSummary
+import Struct.Event
+import Struct.Player
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_item_html : (
+      String ->
+      String ->
+      Struct.BattleSummary.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_item_html url_prefix additional_class item =
+   (Html.a
+      [
+         (Html.Attributes.class additional_class),
+         (Html.Attributes.href
+            (
+               url_prefix
+               ++ (Struct.BattleSummary.get_id item)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.Attributes.class "battle-summary-name")
+            ]
+            [
+               (Html.text (Struct.BattleSummary.get_name item))
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "battle-summary-date")
+            ]
+            [
+               (Html.text (Struct.BattleSummary.get_last_edit item))
+            ]
+         )
+      ]
+   )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : Struct.Player.Type -> (Html.Html Struct.Event.Type)
+get_html player =
+   let
+      url_prefix = (Struct.Player.get_url_prefix player)
+   in
+      (Html.div
+         [
+            (Html.Attributes.class "player-summary")
+         ]
+         [
+            (Html.div
+               [
+                  (Html.Attributes.class "player-summary-listing-header")
+               ]
+               [
+                  (Html.text (Struct.Player.get_username player))
+               ]
+            ),
+            (Html.div
+               [
+                  (Html.Attributes.class "player-summary-listing-body")
+               ]
+               (
+                  (List.map
+                     (get_item_html url_prefix)
+                     "campaign-link"
+                     (Struct.Player.get_campaigns player)
+                  )
+                  ++
+                  (List.map
+                     (get_item_html url_prefix)
+                     "invasion-link"
+                     (Struct.Player.get_invasions player)
+                  )
+                  ++
+                  (List.map
+                     (get_item_html url_prefix)
+                     "event-link"
+                     (Struct.Player.get_events player)
+                  )
+               )
+            )
+         ]
+      )