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

remove qlkit

Browse source
This commit is contained in:
kloimhardt 2021-06-11 13:35:53 +02:00
parent 2484860795
commit 8861745177
4 changed files with 3 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

4
deps.edn
View file

@ -8,9 +8,7 @@
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/create-react-class {:mvn/version "15.6.3-1"}
cljs-ajax/cljs-ajax {:mvn/version "0.8.3"}
qlkit/qlkit {:mvn/version "0.5.0-SNAPSHOT"}}
cljs-ajax/cljs-ajax {:mvn/version "0.8.3"}}
:aliases
{:dev

7
shadow-cljs.edn
View file

@ -19,10 +19,7 @@
:scittle.reagent {:entries [scittle.reagent]
:depends-on #{:scittle}}
:scittle.cljs-ajax {:entries [scittle.cljs-ajax]
:depends-on #{:scittle}}
:scittle.qlkit {:entries [scittle.qlkit]
:depends-on #{:scittle}}}
:depends-on #{:scittle}}}
:build-hooks [(shadow.cljs.build-report/hook)]
:output-dir "resources/public/js"
:devtools {:repl-pprint true}
:compiler-options {:externs ["src/scittle/qlkit-externs.js"]}}}}
:devtools {:repl-pprint true}}}}

2
src/scittle/qlkit-externs.js
View file

@ -1,2 +0,0 @@
var Component = {};
Component.setState = function () {};

39
src/scittle/qlkit.cljs
View file

@ -1,39 +0,0 @@
(ns scittle.qlkit
(:require [qlkit.core :as ql]
[sci.core :as sci]
[scittle.core :as scittle]))
(def qns (sci/create-ns 'qlkit.core nil))
;;directly copy-pasted from sourcecode of qlkit.core
(defn ^:macro defcomponent* [form env nam & bodies]
(doseq [[nam] bodies]
(when-not ('#{state query render component-did-mount component-will-unmount component-will-receive-props} nam)
(throw (ex-info (str "Unknown component member " nam) {}))))
`(let [key# (keyword ~(str (:name (:ns env))) ~(name nam))] ;;env is {} in scittle, thus (:ns env) is nil, thus component names are not namespaced names
(def ~nam key#)
(#'qlkit.core/add-class key#
~(into {:display-name (name nam)}
(for [[nam & more :as body] bodies]
(if ('#{state query} nam)
[(keyword nam)
(last more)]
[(keyword nam)
`(fn ~(first more)
~@(rest more))]))))))
(def qlkit-namespace
{'add-class (sci/copy-var ql/add-class qns)
'defcomponent* (sci/copy-var defcomponent* qns)
'transact!* (sci/copy-var ql/transact!* qns)
'update-state!* (sci/copy-var ql/update-state!* qns)
'create-instance (sci/copy-var ql/create-instance qns)
'get-query (sci/copy-var ql/get-query qns)
'parse-children (sci/copy-var ql/parse-children qns)
'parse-children-remote (sci/copy-var ql/parse-children-remote qns)
'parse-children-sync (sci/copy-var ql/parse-children-sync qns)
'mount (sci/copy-var ql/mount qns)})
(scittle/register-plugin!
::qlkit
{:namespaces {'qlkit.core qlkit-namespace}})