Restore support for whitelisted chord inversions

Allow users to include or exclude chord inversions.

website/sandbox/learnpianochords/src/Preferences.elm

@@ -37,42 +37,35 @@ selectKey model { relativeMajor, relativeMinor } =
         ]
 
 
-chordTypeCheckboxes : List Theory.ChordType -> Html State.Msg
+inversionCheckboxes : State.Model -> Html State.Msg
-chordTypeCheckboxes chordTypes =
+inversionCheckboxes model =
-    ul []
+    div []
-        (Theory.allChordTypes
+        [ h2
-            |> List.map
+            [ [ "text-gray-500"
-                (\chordType ->
+              , "text-center"
-                    li []
+              , "pt-10"
-                        [ label [] [ text (Theory.chordTypeName chordType) ]
+              , Responsive.h2
-                        , input
+              ]
-                            [ type_ "checkbox"
+                |> Tailwind.use
-                            , onClick (State.ToggleChordType chordType)
+                |> class
-                            , checked (List.member chordType chordTypes)
+            ]
+            [ text "Select inversions" ]
+        , ul
+            [ [ "flex", "justify-center" ] |> Tailwind.use |> class ]
+            (Theory.allInversions
+                |> List.map
+                    (\inversion ->
+                        li []
+                            [ UI.textToggleButton
+                                { label = Theory.inversionName inversion
+                                , handleClick = State.ToggleInversion inversion
+                                , classes = []
+                                , toggled = List.member inversion model.whitelistedInversions
+                                }
                             ]
-                            []
+                    )
-                        ]
+            )
-                )
+        ]
-        )
-
-
-inversionCheckboxes : List Theory.ChordInversion -> Html State.Msg
-inversionCheckboxes inversions =
-    ul []
-        (Theory.allInversions
-            |> List.map
-                (\inversion ->
-                    li []
-                        [ label [] [ text (Theory.inversionName inversion) ]
-                        , input
-                            [ type_ "checkbox"
-                            , onClick (State.ToggleInversion inversion)
-                            , checked (List.member inversion inversions)
-                            ]
-                            []
-                        ]
-                )
-        )
 
 
 keyCheckboxes : State.Model -> Html State.Msg
@@ -150,5 +143,6 @@ render model =
             { tempo = model.tempo
             , handleInput = State.SetTempo
             }
+        , inversionCheckboxes model
         , keyCheckboxes model
         ]

website/sandbox/learnpianochords/src/State.elm

@@ -51,7 +51,7 @@ init =
             ( Theory.C3, Theory.C6 )
 
         inversions =
-            Theory.allInversions
+            [ Theory.Root ]
 
         chordTypes =
             Theory.allChordTypes
@@ -73,7 +73,7 @@ init =
     , tempo = 10
     , firstNote = firstNote
     , lastNote = lastNote
-    , view = Overview
+    , view = Preferences
     , showFlashCard = True
     }
 
@@ -158,13 +158,9 @@ update msg model =
             ( { model
                 | whitelistedInversions = inversions
                 , whitelistedChords =
-                    Theory.allChords
+                    model.whitelistedKeys
-                        { start = model.firstNote
+                        |> List.concatMap Theory.chordsForKey
-                        , end = model.lastNote
+                        |> List.filter (\chord -> List.member chord.chordInversion inversions)
-                        , inversions = inversions
-                        , chordTypes = model.whitelistedChordTypes
-                        , pitchClasses = model.whitelistedPitchClasses
-                        }
               }
             , Cmd.none
             )