From 8861745177e6f05e74452c625b06381caefaa939 Mon Sep 17 00:00:00 2001
From: kloimhardt <kloimhardt@kloimhardts-MacBook-Air.local>
Date: Fri, 11 Jun 2021 13:35:53 +0200
Subject: [PATCH] remove qlkit

---
 deps.edn                     |  4 +---
 shadow-cljs.edn              |  7 ++-----
 src/scittle/qlkit-externs.js |  2 --
 src/scittle/qlkit.cljs       | 39 ------------------------------------
 4 files changed, 3 insertions(+), 49 deletions(-)
 delete mode 100644 src/scittle/qlkit-externs.js
 delete mode 100644 src/scittle/qlkit.cljs

diff --git a/deps.edn b/deps.edn
index 23731d8..8d343d9 100644
--- a/deps.edn
+++ b/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"}
-  qlkit/qlkit {:mvn/version "0.5.0-SNAPSHOT"}}
+  cljs-ajax/cljs-ajax {:mvn/version "0.8.3"}}
 
  :aliases
  {:dev
diff --git a/shadow-cljs.edn b/shadow-cljs.edn
index edc7fc8..0fa1756 100644
--- a/shadow-cljs.edn
+++ b/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}}
-    :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}}}}
diff --git a/src/scittle/qlkit-externs.js b/src/scittle/qlkit-externs.js
deleted file mode 100644
index fd71946..0000000
--- a/src/scittle/qlkit-externs.js
+++ /dev/null
@@ -1,2 +0,0 @@
-var Component = {};
-Component.setState = function () {};
diff --git a/src/scittle/qlkit.cljs b/src/scittle/qlkit.cljs
deleted file mode 100644
index c1023b3..0000000
--- a/src/scittle/qlkit.cljs
+++ /dev/null
@@ -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}})