1 files changed, 14 insertions, 4 deletions

diff --git a/src/Views.elm b/src/Views.elm
index 3a8afed..b74bf98 100644
--- a/src/Views.elm
+++ b/src/Views.elm
@@ -101,8 +101,8 @@ viewAccuracy model =
         accuracy
 
 
-viewWordLengthOptions : Html Msg
-viewWordLengthOptions =
+viewWordLengthOptions : Base.Config -> Html Msg
+viewWordLengthOptions config =
     let
         wl =
             [ 10, 25, 50, 100 ]
@@ -117,8 +117,18 @@ viewWordLengthOptions =
         ]
         (List.map
             (\len ->
-                li [ css [ display inline ] ]
-                    [ styledButton [ onClick (Base.WordLengthChanged len) ]
+                li
+                    [ css [ display inline ] ]
+                    [ styledButton
+                        [ onClick (Base.WordLengthChanged len)
+                        , css <|
+                            List.singleton <|
+                                if config.length == len then
+                                    textDecoration underline
+
+                                else
+                                    textDecoration Css.none
+                        ]
                         [ text <| String.fromInt len ]
                     ]
             )