   [controller message]
   (with-show (:show controller)
     (when (= (:type (show/sync-status)) :manual)
-      (let [scale (if @(:shift-mode controller) 1 10)
+      (let [scale (if (in-mode? controller :shift) 1 10)
             delta (/ (sign-velocity (:velocity message)) scale)
             bpm (rhythm/metro-bpm (:metronome (:show controller)))]
         (rhythm/metro-bpm (:metronome (:show controller)) (min controllers/maximum-bpm


    47 ; Down arrow
    (when (pos? (:velocity message))
      (if @(:shift-mode controller)
        ;; Jump forward to newest effect
        (when (pos? @(:effect-offset controller))
          (reset! (:effect-offset controller) 0)

  "Activate the arrow buttons for directions in which scrolling is
  possible."
  [controller]
  (if (in-mode? controller :shift)
    ;; In shift mode, scroll through the effects list
    (let [[offset max-offset] (find-effect-offset-range controller)]
      ;; If there is an offset, user can scroll to the right
