macros.clj

(defmacro bind-handlers [type node cb & specs]
  (let [attacher (if (= type :value)
                   'addValueEventListener
                   'addChildEventListener)]
    `(cond
       ~@(for [[matchtype iface handler] specs]
           (list
             `(= ~type ~matchtype )
             `(. ~node ~attacher (reify ~iface
                                   (~handler [this v]
                                     (~cb (.getValue v))))))))))

(bind-handlers a b c [:value com.firebase.Test onDataChange])

;; What I am getting right now:
(clojure.core/cond ((clojure.core/= a :value) (. b addChildEventListener (clojure.core/reify com.firebase.Test (onD
ataChange [pani.core/this pani.core/v] (c (.getValue pani.core/v))))))) 

;; What I want
(clojure.core/cond (clojure.core/= a :value) (. b addChildEventListener (clojure.core/reify com.firebase.Test (onD
ataChange [pani.core/this pani.core/v] (c (.getValue pani.core/v))))))