diff options
Diffstat (limited to 'src/Views.elm')
-rw-r--r-- | src/Views.elm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/Views.elm b/src/Views.elm index 5e2dbcb..b56a945 100644 --- a/src/Views.elm +++ b/src/Views.elm | |||
@@ -1,4 +1,4 @@ | |||
1 | module Views exposing (viewAccuracy, viewProgress, viewWordLengthOptions, viewWpm) | 1 | module Views exposing (..) |
2 | 2 | ||
3 | import Array exposing (..) | 3 | import Array exposing (..) |
4 | import Base exposing (..) | 4 | import Base exposing (..) |
@@ -56,7 +56,7 @@ viewProgress model = | |||
56 | total = | 56 | total = |
57 | model.config.length | 57 | model.config.length |
58 | in | 58 | in |
59 | String.fromInt soFar ++ "/" ++ String.fromInt total | 59 | String.fromInt soFar ++ ":" ++ String.fromInt total |
60 | 60 | ||
61 | 61 | ||
62 | viewAccuracy : Array Word -> String | 62 | viewAccuracy : Array Word -> String |
@@ -98,3 +98,12 @@ viewWordLengthOptions = | |||
98 | ) | 98 | ) |
99 | wl | 99 | wl |
100 | ) | 100 | ) |
101 | |||
102 | |||
103 | viewStats : Model -> Html Msg | ||
104 | viewStats model = | ||
105 | styledUnorderedList [] | ||
106 | [ styledListItem [] [ text ("WPM " ++ viewWpm model) ] | ||
107 | , styledListItem [] [ text ("ACC " ++ viewAccuracy model.words) ] | ||
108 | , styledListItem [] [ text ("POS " ++ viewProgress model) ] | ||
109 | ] | ||