                              (captured-controls [this] #{(control-for-top-encoder-note note)})
                              (captured-notes [this] #{note paired-note})
                              (adjust-interface [this controller]
-                               (draw-variable-gauge controller x 17 0 cue (first (:variables cue)))
-                               true)
+                               (when (same-effect-active controller cue (:id info))
+                                 (draw-variable-gauge controller x 17 0 cue (first (:variables cue)))
+                                 true))
                              (handle-control-change [this controller message]
                                (adjust-variable-value controller message cue (first (:variables cue))))
                              (handle-note-on [this controller message]

  for the cue, whose name needs to be looked up in the effect's
  variable map."
  [controller cue v value]
  (with-show (:show controller)
    (show/set-variable! (find-cue-variable-keyword controller cue v) value)))

(defn- fit-cue-variable-value
  "Truncates the current value of a cue variable to fit available
  space."
  [controller cue v len]
  (let [val (find-cue-variable-value controller cue v)
        formatted (case (:type v)
                    :integer (int val)
                    ;; If we don't know what else to do, at least turn ratios to floats
                    (float val))
        padding (apply str (repeat len " "))]
    (apply str (take len (str formatted padding)))))


                           (captured-controls [this] #{(control-for-top-encoder-note note)})
                           (captured-notes [this] #{note})
                           (adjust-interface [this controller]
                             (when (same-effect-active controller cue (:id info))
                               (draw-variable-gauge controller x 8 (* 9 var-index)
                                                    cue (get (:variables cue) var-index))
                               true))
                           (handle-control-change [this controller message]
                             (adjust-variable-value controller message cue (get (:variables cue) var-index)))
                           (handle-note-on [this controller message]
