    :enabled?  true
    :action    action})
 
-(defn -update-actions*
+(defn -update-action-events*
   [model pred f & args]
-  (s/transform [:actions s/ALL pred]
+  (s/transform [:action-events s/ALL pred]
                #(apply f % args)
                model))
 
-(defn -update-action
+(defn -update-action-event
   [model id f & args]
-  (apply -update-actions* model #(= (:id %) id) f args))
+  (apply -update-action-events* model #(= (:id %) id) f args))
 
 ;;;;;;;;;;;;;;;;;;;;;;;; Control
 (defn new-control

  "Orphaned signal has no actions."
  [model [signal-id _ :as _signal_]]
  (empty? (filter #(= (:signal-id %) signal-id)
                  (:actions model))))

(defn new-reconcile
  [component-reconcile]


   [:div
    (doall
      (for [[signal-id signal] (reverse (:signal-events model))]
        ^{:key signal-id}
        [:div {:title "Signal"}
         "→ "
