              [:span [:strong (pr-str (first signal))] " " (clojure.string/join " " (rest signal))]
              [:span [:strong (pr-str signal)]])
 
-           (for [[id _signal-id_ action] (filter #(= (second %) signal-id) (:actions @dev-model))]
+           (for [{:keys [id enabled? action]} (filter #(= (:source-signal-id %) signal-id)
+                                                      (:actions @dev-model))]
              ^{:key id}
-             [:div {:style {:margin-left "10px"}}
+             [:div {:style {:margin-left "10px"
+                            :color       (if enabled? "inherit" "grey")}}
               "⇣"
+              [:button {:style    {:cursor          "pointer"
+                                   :text-decoration "underline"}
+                        :on-click #(-toggle-action dev-model id)}
+               (if enabled? "OFF" "ON")]
+
               (if (coll? action)
                 [:div
                  [:strong (pr-str (first action))] " " (clojure.string/join " " (rest action))]


(defn -action-event
  [source-signal-id action]
  [(random-uuid) source-signal-id action])

(defn -devtools-view
  "dev-model must be a ratom."

   :initial-model-saved? false
   ; list of [id signal]
   :signals              (list)
   ; list of {id source-signal-id enabled? action}
   :actions              (list)})

(defn -signal-event
