...

1 files changed, 152 insertions, 0 deletions

diff --git a/src/View/PlayerInput.elm b/src/View/PlayerInput.elm
new file mode 100644
index 0000000..01d926c
--- /dev/null
+++ b/src/View/PlayerInput.elm
@@ -0,0 +1,152 @@
+module View.PlayerInput exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import List
+import Html
+import Html.Attributes
+import Html.Events
+
+-- Local Module ----------------------------------------------------------------
+import Struct.Event
+import Struct.Model
+import Struct.UI
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_choice_html : (
+      (Int, (Html.Html Struct.Event.Type)) ->
+      (Html.Html Struct.Event.Type)
+   )
+get_choice_html data =
+   let (ix, html) = data in
+   (Html.div
+      [
+         (Html.Attributes.class "tonkadur-choice"),
+         (Html.Events.onClick (Struct.Event.ChoiceSelected ix))
+      ]
+      [html]
+   )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type)
+get_html model =
+   if (List.isEmpty model.ui.displayed_choices)
+   then
+      case model.ui.input of
+         Struct.UI.NoInput -> (Html.div [] [])
+         Struct.UI.IntegerInput ->
+            (Html.div
+               [
+                  (Html.Attributes.class "tonkadur-input")
+               ]
+               [
+                  (Html.div
+                     [
+                        (Html.Attributes.class "tonkadur-input-instruction")
+                     ]
+                     [
+                        (Html.text
+                           (
+                              "A number between "
+                              ++ (String.fromInt model.ui.min)
+                              ++ " and "
+                              ++ (String.fromInt model.ui.max)
+                              ++ " is expected:"
+                           )
+                        )
+                     ]
+                  ),
+                  (Html.input
+                     [
+                        (Html.Attributes.class "tonkadur-input-field"),
+                        (Html.Attributes.min (String.fromInt model.ui.min)),
+                        (Html.Attributes.max (String.fromInt model.ui.max))
+                     ]
+                     [
+                     ]
+                  )
+               ]
+            )
+
+         Struct.UI.StringInput ->
+            (Html.div
+               [
+                  (Html.Attributes.class "tonkadur-input")
+               ]
+               [
+                  (Html.div
+                     [
+                        (Html.Attributes.class "tonkadur-input-instruction")
+                     ]
+                     [
+                        (Html.text
+                           (
+                              "A string of size between "
+                              ++ (String.fromInt model.ui.min)
+                              ++ " and "
+                              ++ (String.fromInt model.ui.max)
+                              ++ " characters is expected:"
+                           )
+                        )
+                     ]
+                  ),
+                  (Html.input
+                     [
+                        (Html.Attributes.class "tonkadur-input-field"),
+                        (Html.Attributes.minlength model.ui.min),
+                        (Html.Attributes.maxlength model.ui.max)
+                     ]
+                     [
+                     ]
+                  )
+               ]
+            )
+
+         Struct.UI.CommandInput ->
+            (Html.div
+               [
+                  (Html.Attributes.class "tonkadur-input")
+               ]
+               [
+                  (Html.div
+                     [
+                        (Html.Attributes.class "tonkadur-input-instruction")
+                     ]
+                     [
+                        (Html.text
+                           (
+                              "A space-separated list of strings (total size "
+                              ++ " between "
+                              ++ (String.fromInt model.ui.min)
+                              ++ " and "
+                              ++ (String.fromInt model.ui.max)
+                              ++ " characters) is expected:"
+                           )
+                        )
+                     ]
+                  ),
+                  (Html.input
+                     [
+                        (Html.Attributes.class "tonkadur-input-field"),
+                        (Html.Attributes.minlength model.ui.min),
+                        (Html.Attributes.maxlength model.ui.max)
+                     ]
+                     [
+                     ]
+                  )
+               ]
+            )
+   else
+      (Html.div
+         [
+            (Html.Attributes.class "tonkadur-choice-list")
+         ]
+         (List.map (get_choice_html) model.ui.displayed_choices)
+      )