aboutsummaryrefslogtreecommitdiff
path: root/src/Views.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Views.elm')
-rw-r--r--src/Views.elm13
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 @@
1module Views exposing (viewAccuracy, viewProgress, viewWordLengthOptions, viewWpm) 1module Views exposing (..)
2 2
3import Array exposing (..) 3import Array exposing (..)
4import Base exposing (..) 4import 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
62viewAccuracy : Array Word -> String 62viewAccuracy : Array Word -> String
@@ -98,3 +98,12 @@ viewWordLengthOptions =
98 ) 98 )
99 wl 99 wl
100 ) 100 )
101
102
103viewStats : Model -> Html Msg
104viewStats model =
105 styledUnorderedList []
106 [ styledListItem [] [ text ("WPM " ++ viewWpm model) ]
107 , styledListItem [] [ text ("ACC " ++ viewAccuracy model.words) ]
108 , styledListItem [] [ text ("POS " ++ viewProgress model) ]
109 ]