add macro to manage subscription

cbilson · May 11, 2013 · 735c578 · 735c578
1 parent 37a87a3
commit 735c578
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/ib_re_actor/gateway.clj b/src/ib_re_actor/gateway.clj
@@ -427,6 +427,13 @@
   (send-off listeners
             (fn [fns] (filter (partial not= f) fns))))
 
+(defmacro with-subscription [handler & body]
+  `(try
+     (g/subscribe ~handler)
+     ~@body
+     (finally
+       (g/unsubscribe ~handler))))
+
 (defn get-order-id []
   (swap! next-order-id inc))