diff options
Diffstat (limited to 'website/sandbox/learnpianochords/src/State.elm')
-rw-r--r-- | website/sandbox/learnpianochords/src/State.elm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/website/sandbox/learnpianochords/src/State.elm b/website/sandbox/learnpianochords/src/State.elm index 5f6a02a92085..d81e5b26b728 100644 --- a/website/sandbox/learnpianochords/src/State.elm +++ b/website/sandbox/learnpianochords/src/State.elm @@ -18,6 +18,7 @@ type Msg | DoNothing | SetPracticeMode PracticeMode | SetView View + | ToggleFlashCard type View @@ -46,6 +47,7 @@ type alias Model = , lastNote : Theory.Note , practiceMode : PracticeMode , view : View + , showFlashCard : Bool } @@ -92,10 +94,11 @@ init = , whitelistedKeys = keys , selectedChord = Nothing , isPaused = True - , tempo = 20 + , tempo = 10 , firstNote = firstNote , lastNote = lastNote , view = Overview + , showFlashCard = True } @@ -251,3 +254,6 @@ update msg model = } , Cmd.none ) + + ToggleFlashCard -> + ( { model | showFlashCard = not model.showFlashCard }, Cmd.none ) |