remove qlkit

deps.edn

@@ -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"}}
-  cljs-ajax/cljs-ajax {:mvn/version "0.8.3"}
-  qlkit/qlkit {:mvn/version "0.5.0-SNAPSHOT"}}
 
  :aliases
  {:dev

shadow-cljs.edn

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

src/scittle/qlkit-externs.js

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

src/scittle/qlkit.cljs

@@ -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}})