 (def navdata-port 5554)
 (def drones (atom {}))
 (def socket-timeout (atom 60000))
-(declare mdrone)
-(declare drone-init-navdata)
 
 
 (defrecord Drone


(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)

      :navdata-socket (DatagramSocket.)
      :nav-data (atom {})})))

(defn send-at-command [name ^String data]
  (let [^InetAddress host (:host (name @drones))
        ^Long at-port (:at-port (name @drones))
