Changes to accomodate with the updated libraries

prertik · prertik · commit 3b36b7bbf373 · 2021-04-10T22:33:48.000+05:45
diff --git a/src/lt/macros.cljc b/src/lt/macros.cljc
@@ -38,7 +38,7 @@
                 (next decl)
                 decl)]
    `(defn ~sym ~doc ~params
-      (let [e# (crate.core/html ~hiccup)]
+      (let [e# (singultus.core/html ~hiccup)]
         (doseq [[ev# func#] (partition 2 ~(vec events))]
           (lt.util.dom/on e# ev# func#))
         e#))))
diff --git a/src/lt/object.cljs b/src/lt/object.cljs
@@ -2,10 +2,10 @@
   "Define core of BOT architecture and provide fns for manipulating objects,
   behaviors and tags"
   (:refer-clojure :exclude [set!])
-  (:require [crate.core :as crate]
+  (:require [singultus.core :as crate]
             [clojure.set :as set]
             [clojure.string :as string]
-            [crate.binding :refer [sub-swap! subatom sub-reset! deref?]]
+            [singultus.binding :refer [sub-swap! subatom sub-reset! deref?]]
             [lt.util.cljs :as cljs]
             [lt.util.dom :refer [replace-with] :as dom]
             [lt.util.js :refer [throttle debounce]])
diff --git a/src/lt/objs/bottombar.cljs b/src/lt/objs/bottombar.cljs
@@ -6,7 +6,7 @@
             [lt.objs.canvas :as canvas]
             [lt.util.cljs :refer [->dottedkw]]
             [lt.util.style :refer [->px]]
-            [crate.binding :refer [map-bound bound subatom]])
+            [singultus.binding :refer [map-bound bound subatom]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 
diff --git a/src/lt/objs/browser.cljs b/src/lt/objs/browser.cljs
@@ -18,8 +18,8 @@
             [lt.objs.clients.devtools :as devtools]
             [lt.util.dom :as dom]
             [clojure.string :as string]
-            [crate.core :as crate]
-            [crate.binding :refer [bound subatom]])
+            [singultus.core :as crate]
+            [singultus.binding :refer [bound subatom]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (def utils (js-obj))
diff --git a/src/lt/objs/clients/devtools.cljs b/src/lt/objs/clients/devtools.cljs
@@ -9,11 +9,11 @@
             [lt.objs.app :as app]
             [lt.objs.clients :as clients]
             [fetch.core :as fetch]
-            [crate.core :as crate]
+            [singultus.core :as crate]
             [lt.util.dom :as dom]
             [lt.util.js :refer [every wait ->clj]]
             [lt.util.ipc :as ipc]
-            [crate.binding :refer [bound subatom]]
+            [singultus.binding :refer [bound subatom]]
             [clojure.string :as string])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
diff --git a/src/lt/objs/clients/local.cljs b/src/lt/objs/clients/local.cljs
@@ -9,7 +9,7 @@
             [lt.objs.eval :as eval]
             [lt.objs.console :as console]
             [clojure.string :as string]
-            [crate.core :as crate]
+            [singultus.core :as crate]
             [lt.util.dom :refer [$ append remove]])
   (:use [lt.util.js :only [wait ->clj]])
   (:require-macros [lt.macros :refer [behavior]]))
diff --git a/src/lt/objs/console.cljs b/src/lt/objs/console.cljs
@@ -11,7 +11,7 @@
             [clojure.string :as string]
             [lt.util.dom :refer [$ append empty parents] :as dom]
             [lt.objs.platform :as platform])
-  (:require-macros [crate.def-macros :refer [defpartial]]
+  (:require-macros [singultus.def-macros :refer [defpartial]]
                    [lt.macros :refer [behavior defui]]))
 
 (def console-limit 50)
diff --git a/src/lt/objs/editor.cljs b/src/lt/objs/editor.cljs
@@ -17,7 +17,7 @@
   * `pos` - Position: depending on the context, either a Javascript object
             (e.g., `{\"line\": 0, \"ch\": 0}`) or cljs map (e.g., `{:line 0 :ch 0}`)."
   (:refer-clojure :exclude [val replace range])
-  (:require [crate.core :as crate]
+  (:require [singultus.core :as crate]
             [lt.objs.context :as ctx-obj]
             [lt.object :as object]
             [lt.objs.files :as files]
diff --git a/src/lt/objs/eval.cljs b/src/lt/objs/eval.cljs
@@ -12,8 +12,8 @@
             [lt.objs.sidebar.command :as cmd]
             [lt.objs.notifos :as notifos]
             [lt.objs.popup :as popup]
-            [crate.core :as crate]
-            [crate.binding :refer [bound]]
+            [singultus.core :as crate]
+            [singultus.binding :refer [bound]]
             [lt.objs.console :as console]
             [lt.util.dom :as dom]
             [clojure.string :as string]
diff --git a/src/lt/objs/find.cljs b/src/lt/objs/find.cljs
@@ -10,7 +10,7 @@
             [lt.objs.keyboard :as keyboard]
             [lt.objs.editor :as editor]
             [lt.util.dom :as dom]
-            [crate.binding :refer [bound subatom]]
+            [singultus.binding :refer [bound subatom]]
             [lt.util.style :refer [->px]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
diff --git a/src/lt/objs/intro.cljs b/src/lt/objs/intro.cljs
@@ -8,8 +8,8 @@
             [lt.objs.app :as app]
             [lt.objs.tabs :as tabs]
             [lt.util.dom :as dom]
-            [crate.core :refer [raw]]
-            [crate.binding :refer [bound]])
+            [singultus.core :refer [raw]]
+            [singultus.binding :refer [bound]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (behavior ::on-close-destroy
diff --git a/src/lt/objs/notifos.cljs b/src/lt/objs/notifos.cljs
@@ -4,7 +4,7 @@
             [lt.objs.statusbar :as statusbar]
             [lt.objs.command :as cmd]
             [lt.util.js :refer [wait]]
-            [crate.binding :refer [map-bound bound deref?]])
+            [singultus.binding :refer [map-bound bound deref?]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (def ^:private standard-timeout 10000)
diff --git a/src/lt/objs/opener.cljs b/src/lt/objs/opener.cljs
@@ -17,8 +17,8 @@
             [lt.objs.files :as files]
             [lt.util.dom :as dom]
             [lt.util.cljs :refer [->dottedkw]])
-  (:use [crate.binding :only [bound map-bound]])
-  (:use-macros [crate.def-macros :only [defpartial]]
+  (:use [singultus.binding :only [bound map-bound]])
+  (:use-macros [singultus.def-macros :only [defpartial]]
                [lt.macros :only [behavior defui]]))
 
 ;;**********************************************************
diff --git a/src/lt/objs/plugins.cljs b/src/lt/objs/plugins.cljs
@@ -17,8 +17,8 @@
             [lt.objs.platform :as platform]
             [cljs.reader :as reader]
             [fetch.core :as fetch]
-            [crate.core :as crate]
-            [crate.binding :refer [bound]]
+            [singultus.core :as crate]
+            [singultus.binding :refer [bound]]
             [lt.util.kahn :as kahn]
             [lt.util.load :as load]
             [lt.util.dom :as dom]
diff --git a/src/lt/objs/search.cljs b/src/lt/objs/search.cljs
@@ -11,8 +11,8 @@
             [lt.objs.thread :as thread]
             [lt.util.dom :as dom]
             [lt.objs.workspace :as workspace2]
-            [crate.core :as crate]
-            [crate.binding :refer [computed bound]]
+            [singultus.core :as crate]
+            [singultus.binding :refer [computed bound]]
             [lt.util.js :refer [wait now]]
             [lt.util.load :as load]
             [clojure.string :as string]
diff --git a/src/lt/objs/sidebar.cljs b/src/lt/objs/sidebar.cljs
@@ -7,7 +7,7 @@
             [lt.objs.canvas :as canvas]
             [lt.util.dom :as dom]
             [lt.util.cljs :refer [->dottedkw]]
-            [crate.binding :refer [map-bound bound subatom]])
+            [singultus.binding :refer [map-bound bound subatom]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (def default-width 200)
diff --git a/src/lt/objs/sidebar/clients.cljs b/src/lt/objs/sidebar/clients.cljs
@@ -10,7 +10,7 @@
             [lt.objs.popup :as popup]
             [lt.objs.editor.pool :as pool]
             [lt.util.dom :as dom]
-            [crate.binding :refer [bound map-bound subatom]])
+            [singultus.binding :refer [bound map-bound subatom]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (defui close-button [i]
diff --git a/src/lt/objs/sidebar/command.cljs b/src/lt/objs/sidebar/command.cljs
@@ -10,8 +10,8 @@
             [lt.util.dom :as dom]
             [lt.util.cljs :refer [->dottedkw]]
             [clojure.string :as string]
-            [crate.core :as crate]
-            [crate.binding :refer [subatom bound map-bound computed]])
+            [singultus.core :as crate]
+            [singultus.binding :refer [subatom bound map-bound computed]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (load/js "core/node_modules/lighttable/util/fuzzy.js" :sync)
diff --git a/src/lt/objs/sidebar/navigate.cljs b/src/lt/objs/sidebar/navigate.cljs
@@ -12,8 +12,8 @@
             [lt.util.dom :as dom]
             [lt.objs.thread]
             [lt.util.load :as load]
-            [crate.core :as crate]
-            [crate.binding :refer [bound subatom]])
+            [singultus.core :as crate]
+            [singultus.binding :refer [bound subatom]])
   (:require-macros [lt.macros :refer [behavior defui background]]))
 
 
diff --git a/src/lt/objs/sidebar/workspace.cljs b/src/lt/objs/sidebar/workspace.cljs
@@ -13,7 +13,7 @@
             [lt.objs.menu :as menu]
             [lt.util.dom :as dom]
             [lt.util.cljs :refer [->dottedkw]]
-            [crate.binding :refer [bound subatom]]
+            [singultus.binding :refer [bound subatom]]
             [clojure.string :as string])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
diff --git a/src/lt/objs/statusbar.cljs b/src/lt/objs/statusbar.cljs
@@ -9,7 +9,7 @@
             [lt.objs.editor :as ed]
             [lt.util.dom :as dom]
             [lt.util.cljs :as cljs]
-            [crate.binding :refer [bound map-bound]])
+            [singultus.binding :refer [bound map-bound]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 ;;**********************************************************
diff --git a/src/lt/objs/style.cljs b/src/lt/objs/style.cljs
@@ -12,8 +12,8 @@
             [lt.objs.deploy :as deploy]
             [lt.util.dom :as dom]
             [lt.util.load :as load]
-            [crate.binding :refer [bound -value subatom]]
-            [crate.compiler :refer [dom-attr]]
+            [singultus.binding :refer [bound -value subatom]]
+            [singultus.compiler :refer [dom-attr]]
             [clojure.string :as string])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
diff --git a/src/lt/objs/tabs.cljs b/src/lt/objs/tabs.cljs
@@ -11,8 +11,8 @@
             [lt.util.dom :refer [$ append] :as dom]
             [lt.util.style :refer [->px]]
             [lt.util.js :refer [now]]
-            [crate.core :as crate]
-            [crate.binding :refer [bound map-bound subatom]])
+            [singultus.core :as crate]
+            [singultus.binding :refer [bound map-bound subatom]])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (load/js "core/node_modules/lighttable/ui/dragdrop.js" :sync)
