Single page networked sound server

udp_noise.clj

(ns sound-sample-server (:import
                         (java.net InetAddress
                                   DatagramPacket
                                   DatagramSocket)))

(use 'overtone.core)
(boot-server)

(defn make-udp-trigger [sound-file port]
  (.start
   (Thread.
    (fn []
      (let [samp (sample sound-file)
            udp-server (ref nil)]
        (do
          (dosync (ref-set udp-server (DatagramSocket. port)))
          (while true (do
                        (let [orig-packet (new DatagramPacket
                                               (byte-array 1024) 1024)]
                          (.receive @udp-server orig-packet)
                          (samp)
                          (println (new String (.getData orig-packet)
                                        "UTF-8")))))
          ))))))

; example (make-udp-trigger "sound_effect.wav" 6666)
; example (make-udp-trigger "fifths_melody.wav" 6668)