Merge pull request #5 from nathanKramer/add-japanese-core-6k-sentence…

public/index.js

@@ -1,8 +1,13 @@
 // We must not crash
 
+const CORPUS_KEY = "infinitype:chosen_corpus";
+const DEFAULT_CORPUS = 6;
+const initialCorpus =
+  parseInt(localStorage.getItem(CORPUS_KEY)) || DEFAULT_CORPUS;
+
 const app = Elm.Main.init({
   node: document.getElementById("elm"),
-  flags: {},
+  flags: { corpus: initialCorpus },
 });
 const infinitype = document.getElementById("infinitype");
 
@@ -12,6 +17,10 @@ const interface = {
   prevent: ["ArrowLeft", "ArrowRight"],
 };
 
+app.ports.corpusChanged.subscribe(function (corpusIndex) {
+  localStorage.setItem(CORPUS_KEY, corpusIndex);
+});
+
 function notifyWithDefault(event) {
   event.preventDefault();
   interface.notify(event.key);

src/Corpus.elm

@@ -0,0 +1,32 @@
+module Corpus exposing (..)
+
+import Random exposing (Generator)
+import Texts.English1k
+
+
+type alias Corpus =
+    { monosize : Float, name : String, words : String }
+
+
+defaultCorpus : Corpus
+defaultCorpus =
+    Texts.English1k.corpus
+
+
+wordBuffer : Int
+wordBuffer =
+    20
+
+
+makeCorpus : String -> List String
+makeCorpus words =
+    words |> String.split "\n" |> List.filter (not << String.isEmpty)
+
+
+randomWords : Int -> List String -> Generator (List String)
+randomWords count words =
+    let
+        fallback =
+            Maybe.withDefault "EMPTY_CORPUS" (List.head words)
+    in
+    Random.list count <| Random.uniform fallback words