enhance performance

Author: sprocketc

src/renderer/element/handlers.cljs

@@ -37,9 +37,11 @@
 
 (defn update-bounds
   [db el-k]
-  (as-> db db
-    (update-in db (conj (path db) el-k) #(assoc % :bounds (element/adjusted-bounds % (elements db))))
-    (reduce #(update-bounds %1 %2) db (:children (element db el-k)))))
+  (if (= el-k :canvas)
+    db
+    (as-> db db
+      (update-in db (conj (path db) el-k) #(assoc % :bounds (element/adjusted-bounds % (elements db))))
+      (reduce #(update-bounds %1 %2) db (:children (element db el-k))))))
 
 (defn update-el
   [db el f & more]

src/renderer/tree/views.cljs

@@ -136,15 +136,24 @@
        [:ul (map (fn [el] [item el (inc depth) elements])
                  (mapv (fn [key] (get elements key)) (reverse children)))])]))
 
+(defn inner-sidebar-render
+  [canvas-children elements]
+  [:div.tree-sidebar.overflow-hidden
+   {:on-pointer-up #(rf/dispatch [:element/deselect-all])}
+   [:div.v-scroll.h-full
+    {:on-pointer-leave #(rf/dispatch [:document/set-hovered-keys #{}])}
+    [:ul (map (fn [el] [item el 1 elements])
+              (reverse canvas-children))]]])
+
 (defn inner-sidebar []
-  (let [canvas-children @(rf/subscribe [:element/canvas-children])
-        elements @(rf/subscribe [:document/elements])]
-    [:div.tree-sidebar.overflow-hidden
-     {:on-pointer-up #(rf/dispatch [:element/deselect-all])}
-     [:div.v-scroll.h-full
-      {:on-pointer-leave #(rf/dispatch [:document/set-hovered-keys #{}])}
-      [:ul (map (fn [el] [item el 1 elements])
-                (reverse canvas-children))]]]))
+  (let [state @(rf/subscribe [:state])]
+    (if (= state :default)
+      (let [canvas-children @(rf/subscribe [:element/canvas-children])
+            elements @(rf/subscribe [:document/elements])]
+        [inner-sidebar-render canvas-children elements])
+      (ra/with-let [canvas-children @(rf/subscribe [:element/canvas-children])
+                    elements @(rf/subscribe [:document/elements])]
+        [inner-sidebar-render canvas-children elements]))))
 
 (defn root
   []