| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/View')
| -rw-r--r-- | src/View/BattleListing.elm | 92 | ||||
| -rw-r--r-- | src/View/Player.elm | 99 |
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) + ) + ) + ) + ] + ) |