From fe6e1d20355bd436872d17167a3daecb04cc3092 Mon Sep 17 00:00:00 2001 From: Victor Shamanov Date: Wed, 8 Jul 2015 15:28:26 +0300 Subject: [PATCH] Add fetch-all function --- src/cljs/parseapp_cljs/parse.cljs | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/cljs/parseapp_cljs/parse.cljs b/src/cljs/parseapp_cljs/parse.cljs index 590e99f..037de88 100644 --- a/src/cljs/parseapp_cljs/parse.cljs +++ b/src/cljs/parseapp_cljs/parse.cljs @@ -164,6 +164,17 @@ (close! ch))})) ch)) +(defn fetch-all [objects] + (let [ch (chan 1)] + (.fetchAll ParseObject (clj->js objects) + (clj->js {:success (fn [fetched-objects] + (put! ch fetched-objects) + (close! ch)) + :error (fn [error] + (put! ch error) + (close! ch))})) + ch)) + (defn log-in [email password] (let [ch (chan 1)] (.logIn User email password (clj->js {"success" (fn [user]