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

        body))

(defn -view
  [{:keys [visible? toggle-visibility-shortcut persist? initial-model signal-events action-events :highlighted-signal-id]}
   dispatch]
  [-overlay
   [-resizable-div {:style {:display          (if @visible? "block" "none") ; using CSS instead of React in order to persist resized frame on toggling visibility

         "model"])])])

(defn -signal-view
  [{:keys [id parent-id signal highlighted?] :as _signal-event} dispatch]
  [:div {:style         {:margin-top       8
                         :padding-left     4
                         :cursor           "pointer"
                         :background-color (if highlighted? "rgb(55, 130, 70)" "rgb(60, 70, 80)")}
         :title         "Click to enable/disable all actions dispatched from this signal"
         :on-click      #(dispatch [::on-toggle-signal id])
         :on-mouse-over #(dispatch [::on-highlight-signal id])
         :on-mouse-out  #(dispatch [::on-highlight-signal nil])}
   (when parent-id
     [:span {:title "Signal was dispatched from another signal"} "↳ "])

   (if (coll? signal)
     [:span (pr-str (first signal)) " " (clojure.string/join " " (map pr-str (rest signal)))]
     (pr-str signal))])

(defn -signals-view
  [signal-events action-events dispatch]
  [:div
   (doall
     (for [signal-event signal-events]
       ^{:key (:id signal-event)}
       [:div
        [-signal-view signal-event dispatch]
        [-actions-view action-events (:id signal-event) dispatch]]))])

(defn -initial-model-view
