   ([port] (connect-external-server "127.0.0.1" port))
   ([host port]
      (connect host port)
-     (server-status)))
+     :connected-to-external-server))
 
 (defn boot-external-server
   "Boot an external server by starting up an external process and connecting to

  ([] (boot-external-server (+ (rand-int 50000) 2000)))
  ([port]
     (boot :external port)
     (server-status)))

(defn boot-server
  "Boot an internal server."
  []
  (boot :internal)
  (server-status))

(defn kill-server
  "Shutdown the running server"
  []
  (shutdown-server)
  (server-status))

(defn external-server-log
  "Print the external server log."


  (snd \"/foo\" 1 2.0 \"eggs\")"
  [path & args]
  (when (disconnected?)
    (throw (Exception. "Unable to send messages to a disconnected server. Please boot or connect to a server.")))
  (apply server-snd path args))

