Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 5c56a9e4cf
Fetching contributors…

Cannot retrieve contributors at this time

27 lines (20 sloc) 0.818 kb
(ns tutorial.queue
(:use com.mefesto.wabbitmq))
(def con-info {:host "localhost" :username "idiscc" :password "1d15cc"})
(defn delete-queue
[queue-name exchange-name]
(with-broker {:host "localhost" :username "idiscc" :password "1d15cc"}
(if (not (= "" exchange-name)) (exchange-delete exchange-name))
(queue-delete queue-name))))
(defn create-queue
([] (queue-declare "test.queue"))
([name] (if (nil? name) (queue-declare)
(queue-declare name)))
([name durable] (queue-declare name durable)))
(defn create-exchange
([] (exchange-declare "" "fanout"))
([name] (exchange-declare name "fanout"))
([name type] (exchange-declare name type)))
(defn delete-hello-world-queue []
(delete-queue "" "test.queue"))
Jump to Line
Something went wrong with that request. Please try again.