Plays gong sound at random interval, repeatedly.

gongtimer

#!/usr/bin/env clojure

(require '[clojure.java.io :as io])
(import 'javax.sound.sampled.AudioSystem)

(defn url->bytes [^String url]
  (with-open [xin (io/input-stream (java.net.URL. url))
              xout (java.io.ByteArrayOutputStream.)]
    (io/copy xin xout)
    (.toByteArray xout)))

(def gong-bytes (url->bytes "http://soundbible.com/grab.php?id=2062&type=wav"))

(defn gong! []
  (let [s (-> gong-bytes io/input-stream AudioSystem/getAudioInputStream)]
    (future
      (println (java.util.Date.) "GONG")
      (doto (AudioSystem/getClip) (.open s) (.start)))))

(defn sleep-rand-mins [a b]
  (let [n (+ a (* (rand) (- b a)))]
    (println "sleeping for" n "minutes")
    (Thread/sleep (int (* 1000 60 n)))))

(loop []
  (gong!)
  (sleep-rand-mins 2 13)
  (recur))