       :navdata-socket (DatagramSocket.)
       :nav-data (atom {})})))
 
-(defn connect! [drone]
-  (swap! drones assoc (:name drone) drone)
-  (mdrone (:name drone) :flat-trim)
-  drone)
-
-
 (defn send-at-command [name ^String data]
   (let [^InetAddress host (:host (name @drones))
         ^Long at-port (:at-port (name @drones))


(defn drone [command-key & [w x y z]]
  (mdrone :default command-key w x y z))

(defn mdrone-do-for [name seconds command-key & [w x y z]]
  (when (pos? seconds)

(def navdata-port 5554)
(def drones (atom {}))
(def socket-timeout (atom 60000))


(defrecord Drone
