performance enhancements

Author: sprocketc

src/renderer/element/handlers.cljs

@@ -23,10 +23,20 @@
    [renderer.utils.path :as utils.path :refer [PathManipulation PathBooleanOperation]]
    [renderer.utils.vec :as utils.vec]))
 
-(m/=> path [:-> App [:* [:or keyword? uuid?]] vector?])
+(m/=> path [:function
+            [:-> App vector?]
+            [:-> App uuid? vector?]
+            [:-> App uuid? keyword? vector?]
+            [:-> App uuid? keyword? [:* any?] vector?]])
 (defn path
-  [db & more]
-  (apply conj [:documents (:active-document db) :elements] more))
+  ([db]
+   [:documents (:active-document db) :elements])
+  ([db id]
+   (conj (path db) id))
+  ([db id prop]
+   (conj (path db) id prop))
+  ([db id prop & more]
+   (apply conj (path db) id prop more)))
 
 (m/=> entities [:function
                 [:-> App [:maybe [:map-of uuid? Element]]]

src/renderer/snap/handlers.cljs

@@ -28,23 +28,27 @@
 (m/=> update-nearest-neighbors [:-> App App])
 (defn update-nearest-neighbors
   [db]
-  (let [zoom (get-in db [:documents (:active-document db) :zoom])
-        threshold (-> db :snap :threshold)
-        threshold (Math/pow (/ threshold zoom) 2)
-        nneighbors (nearest-neighbors db)
-        nneighbors (filter #(< (:dist-squared %) threshold) nneighbors)]
-    (assoc db
-           :nearest-neighbors nneighbors
-           :nearest-neighbor (apply min-key :dist-squared nneighbors))))
+  (if-not (-> db :snap :active)
+    db
+    (let [zoom (get-in db [:documents (:active-document db) :zoom])
+          threshold (-> db :snap :threshold)
+          threshold (Math/pow (/ threshold zoom) 2)
+          nneighbors (nearest-neighbors db)
+          nneighbors (filter #(< (:dist-squared %) threshold) nneighbors)]
+      (assoc db
+             :nearest-neighbors nneighbors
+             :nearest-neighbor (apply min-key :dist-squared nneighbors)))))
 
 (m/=> update-viewport-tree [:-> App App])
 (defn update-viewport-tree
   [db]
-  (let [[x y width height] (frame.handlers/viewbox db)
-        boundaries [[x (+ x width)] [y (+ y height)]]]
-    (assoc db :viewbox-kdtree (-> (:kdtree db)
-                                  (kdtree/interval-search boundaries)
-                                  (kdtree/build-tree)))))
+  (if-not (-> db :snap :active)
+    db
+    (let [[x y width height] (frame.handlers/viewbox db)
+          boundaries [[x (+ x width)] [y (+ y height)]]]
+      (assoc db :viewbox-kdtree (-> (:kdtree db)
+                                    (kdtree/interval-search boundaries)
+                                    (kdtree/build-tree))))))
 
 (m/=> rebuild-tree [:-> App App])
 (defn rebuild-tree

src/renderer/tool/impl/base/transform.cljs

@@ -390,8 +390,7 @@
 
 (defmethod tool.hierarchy/snapping-points :transform
   [db]
-  (let [elements (vals (element.handlers/entities db))
-        selected (filter :selected elements)
+  (let [selected (element.handlers/selected db)
         options (-> db :snap :options)]
     (cond
       (= (:state db) :scale)
@@ -461,7 +460,8 @@
        [:<>
         [tool.views/wrapping-bbox bbox]
         [tool.views/bounding-corners bbox]
-        (when (= state :scale) [size-label bbox])])
+        (when (= state :scale)
+          [size-label bbox])])
 
      (when pivot-point
        [utils.svg/times pivot-point])