   []
   @server-status*)
 
-(defn connected? []
+(defn connected?
+  "Returns true if the server is currently connected"
+  []
   (= :connected (server-status)))
 
-(defn disconnected? []
+(defn disconnected?
+  "Returns true if the server is currently disconnected"
+  []
   (= :disconnected (server-status)))
 
 (defmacro at

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

(defn recv

  the incoming event info."
  ([path] (recv path nil))
  ([path matcher-fn]
     (when-not (connected?)
       (throw (Exception. "Unable to receive messages from a disconnected server. Please boot or connect to a server.")))
     (server-recv path matcher-fn)))

(defn connect-external-server
