simon/mw-scittle
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ajax -> cljs-ajax

Browse source
This commit is contained in:
kloimhardt 2021-06-11 13:15:07 +02:00
parent a376ffb66b
commit 4bab6e58e1
4 changed files with 9 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
shadow-cljs.edn
View file

@ -18,11 +18,9 @@
{:scittle {:entries [scittle.core]} {:scittle {:entries [scittle.core]}
:scittle.reagent {:entries [scittle.reagent] :scittle.reagent {:entries [scittle.reagent]
:depends-on #{:scittle}} :depends-on #{:scittle}}
:scittle.ajax {:entries [scittle.ajax] :scittle.cljs-ajax {:entries [scittle.cljs-ajax]
:depends-on #{:scittle}} :depends-on #{:scittle}}
:scittle.qlkit {:entries [scittle.qlkit] :scittle.qlkit {:entries [scittle.qlkit]
:depends-on #{:scittle}}
:scittle.cljs {:entries [scittle.cljs]
:depends-on #{:scittle}}} :depends-on #{:scittle}}}
:build-hooks [(shadow.cljs.build-report/hook)] :build-hooks [(shadow.cljs.build-report/hook)]
:output-dir "resources/public/js" :output-dir "resources/public/js"

13
src/scittle/cljs.cljs
View file

@ -1,13 +0,0 @@
(ns scittle.cljs
(:require [cljs.reader :refer [read-string]]
[sci.core :as sci]
[scittle.core :as scittle]))
(def rns (sci/create-ns 'cljs.reader nil))
(def cljs-reader-namespace
{'read-string (sci/copy-var read-string rns)})
(scittle/register-plugin!
::ajax
{:namespaces {'cljs.reader cljs-reader-namespace}})

2
src/scittle/ajax.cljs → src/scittle/cljs_ajax.cljs
View file

@ -1,4 +1,4 @@
(ns scittle.ajax (ns scittle.cljs-ajax
(:require [ajax.core :as ajx] (:require [ajax.core :as ajx]
[sci.core :as sci] [sci.core :as sci]
[scittle.core :as scittle])) [scittle.core :as scittle]))

7
src/scittle/core.cljs
View file

@ -3,7 +3,8 @@
(:require [goog.object :as gobject] (:require [goog.object :as gobject]
[goog.string] [goog.string]
[sci.core :as sci] [sci.core :as sci]
[scittle.impl.error :as error])) [scittle.impl.error :as error]
[cljs.reader :refer [read-string]]))
(clojure.core/defmacro time (clojure.core/defmacro time
"Evaluates expr and prints the time it took. Returns the value of expr." "Evaluates expr and prints the time it took. Returns the value of expr."
@ -17,6 +18,7 @@
(def stns (sci/create-ns 'sci.script-tag nil)) (def stns (sci/create-ns 'sci.script-tag nil))
(def cljns (sci/create-ns 'clojure.core nil)) (def cljns (sci/create-ns 'clojure.core nil))
(def rns (sci/create-ns 'cljs.reader nil))
(def namespaces (def namespaces
{'clojure.core {'clojure.core
@ -24,7 +26,8 @@
'prn prn 'prn prn
'system-time system-time 'system-time system-time
'time (sci/copy-var time cljns) 'time (sci/copy-var time cljns)
'random-uuid random-uuid} 'random-uuid random-uuid
'read-string (sci/copy-var read-string rns)}
'goog.object {'set gobject/set 'goog.object {'set gobject/set
'get gobject/get}}) 'get gobject/get}})