Possible additions to overtone.music.pitch

find-thing.clj

(defn find-name
  "Returnd the name of the first matching thing found in things
  or nil if not found"

  ([thing things]
     (if (= (val (first things)) thing)
       (key (first things))
       (if (< 1 (count things))
         (find-name thing (rest things))))))

(defn find-scale-name
  "Return the name of the first matching scale found in SCALE
  or nil if not found

  ie: (find-scale-name [2 1 2 2 2 2 1]
  :melodic-minor-asc"

  [scale]
  (find-name scale SCALE))

(defn find-chord-name
  "Return the name of the first matching chord in CHORD
  or nil if not found

  ie: (find-chord-name #{0 3 7}
  :minor"

  [chord]
  (find-name chord CHORD))