clj-ajax

deps.edn

@@ -7,7 +7,9 @@
   reagent/reagent {:mvn/version "1.0.0"}
   cljsjs/react {:mvn/version "17.0.2-0"}
   cljsjs/react-dom {:mvn/version "17.0.2-0"}
-  cljsjs/react-dom-server {:mvn/version "17.0.2-0"}}
+  cljsjs/react-dom-server {:mvn/version "17.0.2-0"}
+  cljs-ajax/cljs-ajax {:mvn/version "0.8.3"}
+  }
 
  :aliases
  {:dev

shadow-cljs.edn

@@ -16,6 +16,8 @@
    {:scittle {:entries [scittle.core]}
     :scittle.reagent {:entries [scittle.reagent]
                       :depends-on #{:scittle}}
+    :scittle.ajax {:entries [scittle.ajax]
+                   :depends-on #{:scittle}}
     :scittle.makro-plugin {:entries [scittle.makro-plugin]
                            :depends-on #{:scittle}}}
    :build-hooks [(shadow.cljs.build-report/hook)]

src/scittle/ajax.cljs

@@ -0,0 +1,14 @@
+(ns scittle.ajax
+  (:require [ajax.core :as ajx]
+            [sci.core :as sci]
+            [scittle.core :as scittle]))
+
+(def rns (sci/create-ns 'ajax.core nil))
+
+(def ajax-namespace
+  {'GET (sci/copy-var ajx/GET rns)
+   'POST (sci/copy-var ajx/POST rns)})
+
+(scittle/register-plugin!
+ ::ajax
+ {:namespaces {'ajax.core ajax-namespace}})

src/scittle/reagent.cljs

@@ -7,7 +7,8 @@
 (def rns (sci/create-ns 'reagent.core nil))
 
 (def reagent-namespace
-  {'atom (sci/copy-var r/atom rns)})
+  {'atom (sci/copy-var r/atom rns)
+   'cursor (sci/copy-var r/cursor rns)})
 
 (def rdns (sci/create-ns 'reagent.dom nil))