 
 (declare enter-stop-mode)
 
-(defn- update-scroll-arrows
+(defn- render-scroll-arrows
   "Activate the arrow buttons for directions in which scrolling is
   possible."
   [controller]

      (swap! (:next-text-buttons controller)
             assoc (:up-arrow control-buttons) dim-white-color))))

(defn- update-mode-buttons
  "Illuminate the buttons which activate modes while they are held
  down. Make them dim when not held, and bright when held."
  [controller mode-buttons]

    (reset! (:next-touch-strip controller) [0 touch-strip-mode-sysex])

    (let [snapshot (rhythm/metro-snapshot (get-in controller [:show :metronome]))]
      (render-effect-list controller snapshot)
      (render-metronome-section controller snapshot)

      ;; If the show has stopped without us noticing, enter stop mode
      (with-show (:show controller)
        (when-not (or (show/running?) (in-mode? controller :stop))
          (enter-stop-mode controller :already-stopped true)))

      (render-mode-buttons controller [:shift :record])
      (render-cue-grid controller snapshot)
      (render-scroll-arrows controller)

      ;; Make the User button bright, since we live in User mode
      (swap! (:next-text-buttons controller) assoc (:user-mode control-buttons) white-color)
