feat: added word dictionary - fixes #19 (#24)

* feat: added word dictionary

* fix: split words from code

src/Main.elm

@@ -11,11 +11,17 @@ import Element.Font as Font
 import Html exposing (Html)
 import Html.Events
 import Json.Decode as Decode
+import Validate exposing (getSecretWord, isParola)
 import Word exposing (..)
 
 
 main =
-    Browser.element { init = init, update = update, view = view, subscriptions = subscriptions }
+    Browser.element
+        { init = init
+        , update = update
+        , view = view
+        , subscriptions = subscriptions
+        }
 
 
 type alias Model =
@@ -29,7 +35,7 @@ init : () -> ( Model, Cmd Msg )
 init _ =
     ( { guesses = []
       , current = []
-      , solution = testSolution
+      , solution = String.toList getSecretWord
       }
     , Cmd.none
     )
@@ -44,6 +50,9 @@ type Msg
 update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
     let
+        currentGuess =
+            String.fromList model.current
+
         currentGuessLen =
             List.length model.current
     in
@@ -62,6 +71,9 @@ update msg model =
             if currentGuessLen < 5 then
                 model
 
+            else if not (isParola currentGuess) then
+                model
+
             else
                 confirmGuess model
 
@@ -213,10 +225,6 @@ emptyTile =
     EmptyTile
 
 
-testSolution =
-    [ 'B', 'U', 'F', 'F', 'A' ]
-
-
 emptyWord =
     List.repeat 5 emptyTile