1 files changed, 71 insertions, 0 deletions

diff --git a/src/Views.elm b/src/Views.elm
new file mode 100644
index 0000000..c5cc159
--- /dev/null
+++ b/src/Views.elm
@@ -0,0 +1,71 @@
+module Views exposing (viewAccuracy, viewProgress, viewWpm)
+
+import Array exposing (..)
+import Base exposing (..)
+import Time exposing (Posix, toHour, toMinute, toSecond, utc)
+import Utils exposing (diffDuration, wordCountWith)
+
+
+viewTime : Posix -> String
+viewTime t =
+    let
+        hh =
+            toHour utc t
+
+        mm =
+            toMinute utc t
+
+        ss =
+            toSecond utc t
+    in
+    String.join ":" (List.map String.fromInt [ hh, mm, ss ])
+
+
+viewWpm : Model -> String
+viewWpm model =
+    let
+        t1 =
+            model.begin
+
+        t2 =
+            model.end
+
+        duration =
+            Maybe.map2 diffDuration t1 t2
+
+        correctWords =
+            wordCountWith model.words ((==) Correct)
+
+        wpm =
+            Maybe.map (String.fromInt << truncate << (*) 60 << (/) (toFloat correctWords)) duration
+    in
+    Maybe.withDefault "XX" wpm
+
+
+viewProgress : Int -> Int -> String
+viewProgress soFar total =
+    String.fromInt soFar ++ "/" ++ String.fromInt total
+
+
+viewAccuracy : Array Word -> String
+viewAccuracy words =
+    let
+        wordsAttempted =
+            toFloat <| wordCountWith words ((/=) Todo)
+
+        correctCount =
+            toFloat <| wordCountWith words ((==) Correct)
+
+        accuracy =
+            if wordsAttempted == 0.0 then
+                Nothing
+
+            else
+                Just <| correctCount / wordsAttempted * 100
+    in
+    case accuracy of
+        Nothing ->
+            "XX"
+
+        Just a ->
+            String.fromInt <| truncate a