add app config, word generation

1 files changed, 21 insertions, 1 deletions

diff --git a/src/Base.elm b/src/Base.elm
index c3557d3..480147a 100644
--- a/src/Base.elm
+++ b/src/Base.elm
@@ -22,7 +22,27 @@ type alias Model =
     , end : Maybe Posix
     , words : Array Word
     , accuracy : Maybe Float
-    , length : Int
+    , config : Config
     , currentWord : Int
     , inputBox : String
     }
+
+
+type alias Config =
+    { punctuation : Bool
+    , capitals : Bool
+    , length : Int
+    }
+
+
+type Msg
+    = Started Time.Posix
+    | Finished Time.Posix
+    | CorrectInput
+    | CorrectSoFar
+    | NextWord
+    | WrongInput
+    | InputChanged String
+    | LoadWords (List String)
+    | WordLengthChanged Int
+    | Redo