| summaryrefslogtreecommitdiff |
diff options
| author | nsensfel <SpamShield0@noot-noot.org> | 2018-09-13 17:50:58 +0200 |
|---|---|---|
| committer | nsensfel <SpamShield0@noot-noot.org> | 2018-09-13 17:50:58 +0200 |
| commit | 317037f9cca1109b4fb6825482c5bbb46b4c567b (patch) | |
| tree | b6c1ab434e40866797c88aa31f48ecbf17f9d487 /src/View/BattleListing.elm | |
| parent | 9ec5806bc721734923ff4c93f7ef1f97a6a03248 (diff) | |
...
Diffstat (limited to 'src/View/BattleListing.elm')
| -rw-r--r-- | src/View/BattleListing.elm | 92 |
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") - ] - ) - ] - ) |


