From 1f5cf5357cc718b3597655452e062466341511ce Mon Sep 17 00:00:00 2001
From: Aaron France <aaron.l.france@gmail.com>
Date: Thu, 16 Oct 2014 21:04:56 +0200
Subject: [PATCH] Add binding to get a Queue's URL

---
 src/main/clojure/cemerick/bandalore.clj | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/main/clojure/cemerick/bandalore.clj b/src/main/clojure/cemerick/bandalore.clj
index a4060ba..2450163 100644
--- a/src/main/clojure/cemerick/bandalore.clj
+++ b/src/main/clojure/cemerick/bandalore.clj
@@ -11,9 +11,9 @@
     (com.amazonaws.services.sqs.model
       AddPermissionRequest ChangeMessageVisibilityRequest CreateQueueRequest
       DeleteMessageRequest DeleteQueueRequest GetQueueAttributesRequest
-      ListQueuesRequest Message ReceiveMessageRequest ReceiveMessageResult
-      RemovePermissionRequest SendMessageRequest SendMessageResult
-      SetQueueAttributesRequest))
+      GetQueueUrlRequest ListQueuesRequest Message ReceiveMessageRequest
+      ReceiveMessageResult RemovePermissionRequest SendMessageRequest
+      SendMessageResult SetQueueAttributesRequest))
   (:refer-clojure :exclude (send)))
 
 (defn create-client
@@ -58,6 +58,11 @@
     .getQueueUrls
     seq))
 
+(defn queue-url
+  "Returns the URL for a named queue"
+  [^AmazonSQSClient client queue-name]
+   (.getQueueUrl (GetQueueUrlRequest. queue-name)))
+
 (defn queue-attrs
   "Gets or sets the attributes of a queue specified by its URL string.