       res)))
 
 (defn server-num-output-buses
-  "Returns the number of output buses accessible by the server. This number may change depending on host architecture but is static for a given running server for the duration of boot."
+  "Returns the number of output buses accessible by the server. This number may
+  change depending on host architecture but is static for a given running server
+  for the duration of boot."
   []
   (if-let [cnt @output-bus-count*]
     cnt

       (ref-set input-bus-count*  (:num-input-buses info))))))

(defn server-num-audio-buses
  "Returns the number of audio buses accessible by the server. This number may change depending on host architecture but is static for a given running server for the duration of boot."
  []
  (if-let [cnt @audio-bus-count*]
    cnt

                                            (num-running-synths)])))

(defn server-info
  "Fetches a bunch of useful server info. Has to trigger and poll a synth to
  fetch data. See #'server-num-output-buses, #'server-num-input-buses,
  #'server-num-audio-buses and #'sever-num-buffers for fast cached versions
  of the static values in this info map."
  []
  (when (disconnected?)
    (throw (Exception. "Please connect to a server before attempting to ask for server-info.")))
