performance enhancements

Author: sprocketc

src/renderer/element/handlers.cljs

@@ -65,7 +65,7 @@
 (m/=> selected-ids [:-> App [:set uuid?]])
 (defn selected-ids
   [db]
-  (->> db selected (map :id) set))
+  (into #{} (map :id) (selected db)))
 
 (m/=> children-ids [:-> App uuid? [:vector uuid?]])
 (defn children-ids
@@ -139,12 +139,11 @@
 (m/=> siblings-selected? [:-> App [:maybe boolean?]])
 (defn siblings-selected?
   [db]
-  (let [selected-els (selected db)
-        parent-els (set (map :parent selected-els))]
-    (and (seq parent-els)
-         (empty? (rest parent-els))
-         (= (count selected-els)
-            (count (children-ids db (first parent-els)))))))
+  (let [ids (parent-ids db)]
+    (and (seq ids)
+         (empty? (rest ids))
+         (= (count (selected db))
+            (count (children-ids db (first ids)))))))
 
 (m/=> siblings [:function
                 [:-> App [:maybe [:vector uuid?]]]

src/renderer/snap/handlers.cljs

@@ -94,7 +94,9 @@
 (m/=> snap-with [:-> App ifn? [:* any?] App])
 (defn snap-with
   [db f & more]
-  (let [db (update-nearest-neighbors db)]
-    (if (:nearest-neighbor db)
-      (apply f db (nearest-delta db) more)
-      db)))
+  (if (-> db :snap :active)
+    (let [db (update-nearest-neighbors db)]
+      (if (:nearest-neighbor db)
+        (apply f db (nearest-delta db) more)
+        db))
+    db))