                  (catch Throwable e
                    (log/error e "Error sending commands"))))
              thread-pool)))
-  ;; Set trim (assumes we're landed).
-  (command drone :flat-trim)
-  ;; Request basic navdata by default.
-  (command drone :navdata-demo)
   drone)
 
 


(defn queue-command [drone command]
  (dosync
   (alter (:command-queue drone) conj command)))


(defn pop-commands [drone]

    ;;(video/start-video "192.168.1.1")
    (command drone :ref {:emergency true})
    (Thread/sleep 1000)
    ;;(command drone :flat-trim)
    (Thread/sleep 100000)
    ;;(do-led-animation drone :blink-green-red 3 4000)
    ;;(do-led-animation drone :fire 0.5 4000)
