🐛 Fix possible race condition on component rename and deletion

CHANGES.md

@@ -5,6 +5,7 @@
 ### :bug: Bugs fixed
 
 - Fix issue on handling empty content on boolean shapes
+- Fix race condition issue on component renaming
 - Handle EOF errors on writting streamed response
 - Handle EOF errors on websocket send/ping methods
 - Disable parallel upload of file media on import (causes too much

frontend/src/app/main/data/workspace/libraries.cljs

@@ -314,10 +314,13 @@
   (ptk/reify ::rename-component
     ptk/WatchEvent
     (watch [it state _]
+      ;; NOTE: we need to ensure the component exists, because there
+      ;; are small posibilities of race conditions with component
+      ;; deletion.
+      (when-let [component (get-in state [:workspace-data :components id])]
         (let [[path name] (cp/parse-path-name new-name)
-            component (get-in state [:workspace-data :components id])
               objects     (get component :objects)
-            ; Give the same name to the root shape
+              ;; Give the same name to the root shape
               new-objects (assoc-in objects
                                     [(:id component) :name]
                                     name)
@@ -336,7 +339,7 @@
 
           (rx/of (dch/commit-changes {:redo-changes rchanges
                                       :undo-changes uchanges
-                                    :origin it}))))))
+                                      :origin it})))))))
 
 (defn duplicate-component
   "Create a new component copied from the one with the given id."