 (defn node-map-controls*
   "Connect a node's controls to a control bus."
   [node names-busses]
-  {:pre [(server-connected?)]}
+  (ensure-connected!)
   (let [node-id (to-synth-id node)
         names-busses (bussify (stringify names-busses))]
     (apply snd "/n_map" node-id names-busses)))

  "Returns a data representation of the synth node tree starting at
  the root group."
  []
  (group-node-tree 0))

(defn node-tree-zipper

  (kill [(hit) (hit) (hit)])
  "
  [& nodes]
  (ensure-connected!)
  (doseq [node (flatten nodes)]
    (kill* node)))

