   metronome attached to [[*show*]] is mapped.
 
   Returns a MIDI mapping function which can be passed
-  to [[remove-midi-control-metronome-mapping]] if you later want to
-  stop the metronome from being affected by these MIDI messages."
+  to [[remove-control-mapping]] if you later want to stop the
+  metronome from being affected by these MIDI messages."
   [device-filter channel control-number & {:keys [metronome] :or {metronome (:metronome *show*)}}]
   (add-midi-control-metronome-mapping device-filter channel control-number metronome
                                       #(rhythm/metro-start % 1)))
 
 (defn remove-midi-control-metronome-mapping
-  "Stop affecting a metronome when the specified MIDI
+  "Deprecated: There is no reason to use this function, it is simpler
+  to call [[remove-control-mapping]] directly.
+
+  Stop affecting a metronome when the specified MIDI
   controller-change messages are received. This undoes the effect of
   any of [[add-midi-control-metronome-reset-mapping]],
   [[add-midi-control-metronome-align-bar-mapping]], and

  [[add-midi-control-metronome-align-bar-mapping]], or
  [[add-midi-control-metronome-align-phrase-mapping]] when this
  relationship was established."
  [device-filter channel control-number f & {:keys [metronome] :or {metronome (:metronome *show*)}}]
  {:pre [(some? *show*) (some? device-filter) (integer? channel) (<= 0 channel 15)
         (integer? control-number) (<= 0 control-number 127)]}
  (let [bound (bind-keyword-param metronome Metronome (:metronome *show*))
        metronome (resolve-param bound *show* (rhythm/metro-snapshot (:metronome *show*)))]
    (midi/remove-control-mapping device-filter channel control-number f)))

(defn add-midi-control-metronome-align-bar-mapping
  "Adjust a metronome so the closest beat is considered the first in

  will be stored in the variable.

  Returns a MIDI mapping function which can be passed
  to [[remove-control-mapping]] if you later want to stop the variable
  from responding to these MIDI messages."
  [device-filter channel control-number variable & {:keys [min max transform-fn] :or {min 0 max 127}}]
  {:pre [(some? *show*) (some? device-filter) (integer? channel) (<= 0 channel 15)
         (integer? control-number) (<= 0 control-number 127) (some? variable)
