 
 (def server-log* (ref []))
 
-(defn server-log 
+(defn server-log
   "Print the server log."
   []
   (doseq [msg @server-log*]

;; functions should work on samples.
(derive ::sample ::buffer)

(defn buffer-data 
  "Get the floating point data for a buffer on the internal server."
  [buf]
  (let [buf-id (cond 
                 (buffer? buf) (:id buf)
                 (sample? buf) (:id (:buf buf)))
        snd-buf (ScJnaCopySndBuf @world* buf-id)

  "Creates an OSC message and either sends it to the server immediately
  or if a bundle is currently being formed it adds it to the list of messages."
  [path & args]
  (cond
    (= ::external (type @server*)) (osc-send-msg @server*
                                                 (apply osc-msg path (osc-type-tag args) args))
    (= ::internal (type @server*)) (event ::send-osc-message
                                          :msg (apply osc-msg path (osc-type-tag args) args))))
