dropzone.cljs

(defn listen-file-drop
  ([el] (listen-file-drop el (chan)))
  ([el out & {:keys [concat]
              :or {concat true}}]
    (let [handler (events/FileDropHandler. el true)]
      (events/listen el events/FileDropHandler.EventType.DROP
        (fn [e] (let [files (event->files e)]
                  (.log js/console "dropped")
                  (.log js/console (-> (-source-event e) .-dataTransfer .-files prim-seq))
                  (if concat
                    (doseq [f files] (put! out f))
                    (put! out files))))))
    out))