 (ns frontend.devtools
   (:require [reagent.core :as r]
             [cljs.pprint]
-            [cljs.core.match :refer-macros [match]]))
+            [cljs.core.match :refer-macros [match]]
+            [com.rpl.specter :as s]))
 
 (defn init
   "Creates a fresh dev-model instance."


(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
