 
 (defmulti plans-mutate om/dispatch)
 
+(defmethod plans-mutate :default [a b c]
+  (println "WARN plans-mutate default")
+  ;(println "a keys" (keys a))
+  ;(pprint a)
+  (println "b" b)
+  ;(println "c" c)
+  )
+
 (defmethod plans-mutate 'plans/pan-zoom
   [{:keys [state] :as env} k {:keys [pan-zoom] :as params}]
   {:value {:keys comp/pan-zoom-query}

   (let [edge-id (edge-key-fn edge)
         ref [:edge/edge-by-plid-id edge-id]]
     #(swap! state update-in ref merge edge))})

(defonce plans-parser (om/parser {:read plans-read :mutate plans-mutate}))


(defn network-updates [updates]
  (plans-query `[(plans/network-updates {:updates ~updates})])
  true) ;; for deferred

(defn update-edge-marker-mid [edge]
  (plans-query `[(plans/edge-marker-mid {:edge ~edge})]))