Minimal immutant application to test HornetQ

HornetQ Test

(ns hornetq-test.core
  (:require [immutant.messaging :as msg]
            [immutant.util])
  (:gen-class))

(def running? (atom true))

(def uniq (rand-int 1000000))

(defn do-stuff []
  (let [t (msg/topic "stuff")]
    (msg/listen t println)
    (while @running?
      (msg/publish t (str "hello from " uniq))
      (Thread/sleep 5000))))

(defn -main []
  (future (do-stuff))
  (immutant.util/at-exit #(reset! running? false)))