From 2aa0c12b6a193d16681a0179a067664390af7aee Mon Sep 17 00:00:00 2001 From: nsensfel Date: Fri, 14 Sep 2018 18:57:42 +0200 Subject: ... --- src/ElmModule/View.elm | 34 ++++++++++++++++++++++++++++++---- 1 file changed, 30 insertions(+), 4 deletions(-) (limited to 'src/ElmModule/View.elm') diff --git a/src/ElmModule/View.elm b/src/ElmModule/View.elm index 3f0a16f..946bf8e 100644 --- a/src/ElmModule/View.elm +++ b/src/ElmModule/View.elm @@ -4,6 +4,7 @@ module ElmModule.View exposing (view) import Array import Html +import Html.Events import Html.Attributes -- Extension ------------------------------------------------------------------- @@ -27,7 +28,7 @@ view model = [ (Html.Attributes.class "fullscreen-module") ] - ( + [ ( case model.error of Nothing -> (Util.Html.nothing) @@ -38,8 +39,33 @@ view model = (Html.text (Struct.Error.to_string err)) ] ) + ), + (Html.div + [ + ] + (List.map (View.Player.get_html) (Array.toList model.players)) + ), + (Html.div + [ + ] + [ + (Html.button + [ + (Html.Events.onClick Struct.Event.AddPlayer) + ] + [ + (Html.text "Add Player") + ] + ), + (Html.button + [ + (Html.Events.onClick Struct.Event.StoreParams) + ] + [ + (Html.text "Save Params") + ] + ) + ] ) - :: - (List.map (View.Player.get_html) (Array.toList model.players)) - ) + ] ) -- cgit v1.2.3-70-g09d2