Skip to content

Instantly share code, notes, and snippets.

@jlongster

jlongster/send.cljs Secret

Created March 1, 2016 18:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jlongster/5beb221bf9dcadd7fe60 to your computer and use it in GitHub Desktop.
Save jlongster/5beb221bf9dcadd7fe60 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
send.cljs
(defn send [queries merge-fn]
(let [payload (:remote queries)
{:keys [query rewrite]} (om/process-roots payload)]
(xhr/send
"/query"
(fn [e]
(let [parsed (rewrite (t/read reader (.getResponseText (.-target e))))]
(merge-fn parsed)))
"POST"
(t/write writer query)
#js {:Content-Type "text/plain"})))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment