enhance performance

Author: sprocketc

src/renderer/document/handlers.cljs

@@ -11,10 +11,17 @@
    [renderer.snap.handlers :as snap.handlers]
    [renderer.utils.vec :as utils.vec]))
 
-(m/=> path [:-> App [:* [:or keyword? uuid?]] vector?])
+(m/=> path [:function
+            [:-> App vector?]
+            [:-> App keyword? vector?]
+            [:-> App keyword? [:* any?] vector?]])
 (defn path
-  [db & more]
-  (apply conj [:documents (:active-document db)] more))
+  ([db]
+   [:documents (:active-document db)])
+  ([db k]
+   (conj (path db) k))
+  ([db k & more]
+   (apply conj (path db) k more)))
 
 (m/=> active [:-> App Document])
 (defn active

src/renderer/element/handlers.cljs

@@ -250,8 +250,7 @@
 (m/=> update-prop [:-> App uuid? ifn? [:* any?] App])
 (defn update-prop
   [db id k & more]
-  (-> (apply update-in db (path db id k) more)
-      (refresh-bbox id)))
+  (apply update-in db (path db id k) more))
 
 (m/=> assoc-prop [:function
                   [:-> App keyword? any? App]
@@ -260,10 +259,9 @@
   ([db k v]
    (reduce (partial-right assoc-prop k v) db (selected-ids db)))
   ([db id k v]
-   (-> (if (string/blank? v)
-         (update-in db (path db id) dissoc k)
-         (assoc-in db (path db id k) v))
-       (refresh-bbox id))))
+   (if (string/blank? v)
+     (update-in db (path db id) dissoc k)
+     (assoc-in db (path db id k) v))))
 
 (m/=> dissoc-attr [:function
                    [:-> App keyword? App]
@@ -274,7 +272,8 @@
   ([db id k]
    (cond-> db
      (not (locked? db id))
-     (update-prop id :attrs dissoc k))))
+     (-> (update-prop id :attrs dissoc k)
+         (refresh-bbox id)))))
 
 (m/=> assoc-attr [:function
                   [:-> App keyword? string? App]

src/renderer/element/impl/text.cljs

@@ -68,6 +68,7 @@
          (-> (element.handlers/delete db id)
              (history.handlers/finalize "Remove text"))
          (-> (element.handlers/assoc-prop db id :content s)
+             (element.handlers/refresh-bbox id)
              (history.handlers/finalize "Set text")))
        (tool.handlers/activate :transform))))
 

src/renderer/history/handlers.cljs

@@ -12,10 +12,17 @@
    [renderer.utils.math :refer [Vec2]]
    [renderer.utils.vec :as utils.vec]))
 
-(m/=> path [:-> App [:* [:or keyword? uuid?]] vector?])
+(m/=> path [:function
+            [:-> App vector?]
+            [:-> App keyword? vector?]
+            [:-> App keyword? [:* any?] vector?]])
 (defn path
-  [db & more]
-  (apply conj [:documents (:active-document db) :history] more))
+  ([db]
+   [:documents (:active-document db) :history])
+  ([db k]
+   (conj (path db) k))
+  ([db k & more]
+   (apply conj (path db) k more)))
 
 (m/=> history [:-> App [:maybe History]])
 (defn history