      [:hr]
      [-initial-model-view @initial-model]
      [:hr]
-     [-signals-view @signal-events @action-events dispatch]]]])
+     [-signals-view @signal-events @action-events @highlighted-signal-id dispatch]]]])
 
 ;;;;;;;;;;;;;;;;;;;;;;;; Middleware
 (defn -wrap-load-from-storage


                            :signal-events              nil
                            :next-signal-id             0

                            :action-events              nil
                            :next-action-id             0


           ; for bare app actions (e.g. when originating signal was cleared) create an "unknown signal" event
           :else
           (let [unknown-signal-event (-signal-event (-> model ::debugger :next-signal-id) nil ::unknown-signal)]
             (-> model
                 (update-in [::debugger :signal-events] concat [unknown-signal-event])
                 (update-in [::debugger :next-signal-id] inc)
