remove cljs-ajax dependency

Author: sprocketc

deps.edn

@@ -2,7 +2,6 @@
  :deps {akiroz.re-frame/storage {:mvn/version "0.1.4"}
         binaryage/devtools {:mvn/version "1.0.7"}
         camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.3"}
-        cljs-ajax/cljs-ajax {:mvn/version "0.8.4"}
         clj-kdtree/clj-kdtree {:git/url "https://github.com/abscondment/clj-kdtree.git"
                                :sha "5ec321c5e8006db00fa8b45a8ed9eb0b8f3dd56d"
                                :deps/manifest :deps}

src/user.cljs

@@ -1,6 +1,5 @@
 (ns user
   (:require
-   [ajax.core]
    [clojure.math]
    [clojure.string :as str]
    [config :as config]
@@ -318,31 +317,26 @@
 
 (def ^:export version config/version)
 
-#_{:clj-kondo/ignore [:unresolved-var]}
 (comment
   (dotimes [x 25]
     (circle [(+ (* x 30) 40) (+ (* (js/Math.sin x) 10) 200)]
             10
             {:fill (str "hsl(" (* x 10) " ,50% , 50%)")}))
 
-  (ajax.core/GET
-    "https://api.thecatapi.com/v1/images/search"
-    {:response-format (ajax.core/json-response-format {:keywords? true})
-     :handler (fn [response]
-                (let [{:keys [width height url]} (first response)]
-                  (image 0 0 [width height] url)))})
-
-  (defn kitty [x y width height]
-    (ajax.core/GET
-      "https://api.thecatapi.com/v1/images/search"
-      {:response-format (ajax.core/json-response-format {:keywords? true})
-       :handler (fn [response]
-                  (image [x y]
-                         width
-                         height
-                         (:url (first response))
-                         {:preserveAspectRatio "xMidYMid slice"}))}))
-
-  (dotimes [x 8]
-    (dotimes [y 6]
-      (kitty (* x 100) (* y 100) 100 100))))
+  (defn ^:export kitty [[x y] width height]
+    (-> (js/fetch "https://api.thecatapi.com/v1/images/search" #js{:method "GET"})
+        (.then (fn [response]
+                 (-> (.json response)
+                     (.then (fn [body]
+                              (let [body (js->clj body :keywordize-keys true)]
+                                (image [x y]
+                                       width
+                                       height
+                                       (:url (first body))
+                                       {:preserveAspectRatio "xMidYMid slice"})))))))))
+
+  (dotimes [x 5]
+    (dotimes [y 5]
+      (kitty [(* x 100) (* y 100)] 100 100)))
+
+  #())