cljs-ajax POST and PUT added

resources/ext/ajax.edn

@@ -1,5 +1,8 @@
 {:name "ajax"
  ; build
  :lazy false
- :cljs-namespace [pinkgorilla.repl.cljs.load]
- :cljs-ns-bindings {'ajax.core {'GET pinkgorilla.repl.cljs.load/http-get}}}
+ :cljs-namespace [pinkgorilla.repl.cljs.ajax]
+ :cljs-ns-bindings {'ajax.core {'GET pinkgorilla.repl.cljs.ajax/http-get
+                                'POST pinkgorilla.repl.cljs.ajax/http-post
+                                'PUT pinkgorilla.repl.cljs.ajax/http-put
+                                }}}

src/pinkgorilla/repl/cljs/ajax.cljs

@@ -0,0 +1,27 @@
+(ns pinkgorilla.repl.cljs.ajax
+  (:require
+   [promesa.core :as p]
+   [clojure.edn :as edn]
+   [ajax.core :refer [GET POST PUT]]
+   [clojure.string :as str]))
+
+(defn- make-promise [AJAX-TYPE]
+  ([url]
+   (make-promise url {}))
+  ([url params]
+   (p/create
+    (fn [resolve reject]
+      (AJAX-TYPE url
+                 (merge params
+                        {:handler (fn [response]
+                                    (resolve response))
+                         :error-handler (fn [error]
+                                          (reject error))}))))))
+
+(def http-get (make-promise GET))
+(def http-post (make-promise POST))
+(def http-put (make-promise PUT))
+
+
+
+