summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/BattleListing.elm')
-rw-r--r--src/View/BattleListing.elm92
1 files changed, 0 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")
- ]
- )
- ]
- )