about summary refs log tree commit diff
path: root/website/sandbox/chord-drill-sergeant/src/Main.elm
blob: 2fd557522fbbc7f7c2efd406e33209f72df8f59c (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
module Main exposing (main)

import Browser
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Random
import Random.List

import Piano
import Theory

type State = State { whitelistedChords : List Theory.Chord
                   , selectedChord : Theory.Chord
                   }

type Msg = NextChord
         | NewChord Theory.Chord

viewChord : Theory.Chord -> String
viewChord (Theory.Chord (note, chordType, chordPosition)) =
  viewNote note ++ " " ++
  (case chordType of
     Theory.Major -> "major"
     Theory.Major7 -> "major 7th"
     Theory.MajorDominant7 -> "major dominant 7th"
     Theory.Minor -> "minor"
     Theory.Minor7 -> "minor 7th"
     Theory.MinorDominant7 -> "minor dominant 7th"
     Theory.Augmented -> "augmented"
     Theory.Augmented7 -> "augmented 7th"
     Theory.Diminished -> "diminished"
     Theory.Diminished7 -> "diminished 7th") ++ " " ++
  (case chordPosition of
     Theory.First -> "root position"
     Theory.Second -> "2nd position"
     Theory.Third -> "3rd position"
     Theory.Fourth -> "4th position")

{-| Serialize a human-readable format of `note` -}
viewNote : Theory.Note -> String
viewNote note =
  case note of
    Theory.C -> "C"
    Theory.C_sharp -> "C♯/D♭"
    Theory.D -> "D"
    Theory.D_sharp -> "D♯/E♭"
    Theory.E -> "E"
    Theory.F -> "F"
    Theory.F_sharp -> "F♯/G♭"
    Theory.G -> "G"
    Theory.G_sharp -> "G♯/A♭"
    Theory.A -> "A"
    Theory.A_sharp -> "A♯/B♭"
    Theory.B -> "B"

cmajor : Theory.Chord
cmajor = Theory.Chord (Theory.C, Theory.Major, Theory.First)

{-| The initial state for the application. -}
initialState : State
initialState =
  State { whitelistedChords = Theory.allChords
        , selectedChord = cmajor
        }

{-| Now that we have state, we need a function to change the state. -}
update : Msg -> State -> (State, Cmd Msg)
update msg (State {whitelistedChords, selectedChord}) =
  case msg of
    NewChord chord -> ( State { whitelistedChords = whitelistedChords
                              , selectedChord = chord
                              }
                      , Cmd.none
                      )
    NextChord -> ( State { whitelistedChords = whitelistedChords
                         , selectedChord = selectedChord
                         }
                 , Random.generate (\x ->
                                      case x of
                                        (Just chord, _) -> NewChord chord
                                        (Nothing, _)    -> NewChord cmajor)
                   (Random.List.choose whitelistedChords)
                 )

view : State -> Html Msg
view (State {selectedChord}) =
  div [] [ p [] [ text (viewChord selectedChord) ]
         , button [ onClick NextChord ] [ text "Next Chord" ]
         , Piano.render { highlight = Theory.notesForChord selectedChord }
         ]

{-| For now, I'm just dumping things onto the page to sketch ideas. -}
main =
  Browser.element { init = \() -> (initialState, Cmd.none)
                  , subscriptions = \_ -> Sub.none
                  , update = update
                  , view = view
                  }