listen.clj

(defn listen [el ev]
  (let [out (chan)]
    (events/listen el ev
      (fn [e] (put! out e)))
    out))

;; My current try
(defn listen [tagsel ev]
  (let [out (chan)
        els (.getElementsByTagName js/document tagsel)]
    (map 
      (fn [el]
        (events/listen el ev
          (fn [e] (put! out e))))
      els)
    out))

;; using non lazy doseq
(defn listen [tagsel ev]
  (let [out (chan)
        els (.getElementsByTagName js/document tagsel)]
    (doseq 
      [el els]
      (events/listen el ev
        (fn [e] (put! out e))))
    out))