    ::class PitchDetection
    ::props {::variation [12 ".." 24]}
    ::hints (fn [props]
-     ["Pitch is the sensation of a note being higher or lower"
-      "Does the second note sound higher or lower than the first?"
-      (str "The second note is " (answer-label props))])})
+             ["Pitch is the sensation of a note being higher or lower"
+              "Does the second note sound higher or lower than the first?"
+              (str "The second note is " (answer-label props))])})
 
 (defmethod slug->exercise "pitch-2" [name]
   {::name  name

             (play-sound new-props))
           (if (< streak-count ex-total-questions)
             (swap! state update-in ref assoc ::streak-count 0 ::last-error false ::ex-answer nil ::confirm-answer false
                    (play-sound props))
             (swap! state update-in ref assoc ::last-error false ::ex-answer nil ::confirm-answer false
                    (play-sound props))))
         (swap! state update-in ref assoc ::confirm-answer false))))

   :remote


(s/def ::read-music-props
  (s/merge ::ex-props
    (s/keys :req [::read-note-order ::read-note-prefix])))

(om/defui ^:once ProgressBar
  Object
