🎉 Auto sync when changing main instance

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

@@ -214,7 +214,8 @@
     (watch [_ state _]
       (if (contains? (get-in state [:workspace-data :pages-index]) page-id)
         (rx/of (dwp/preload-data-uris)
-               (dwth/watch-state-changes))
+               (dwth/watch-state-changes)
+               (dwl/watch-component-changes))
         (let [default-page-id (get-in state [:workspace-data :pages 0])]
           (rx/of (go-to-page default-page-id)))))
 

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

@@ -10,6 +10,7 @@
    [app.common.geom.point :as gpt]
    [app.common.logging :as log]
    [app.common.pages :as cp]
+   [app.common.pages.changes :as ch]
    [app.common.pages.changes-builder :as pcb]
    [app.common.pages.changes-spec :as pcs]
    [app.common.pages.helpers :as cph]
@@ -29,6 +30,7 @@
    [app.main.data.workspace.selection :as dws]
    [app.main.data.workspace.state-helpers :as wsh]
    [app.main.data.workspace.undo :as dwu]
+   [app.main.refs :as refs]
    [app.main.repo :as rp]
    [app.main.store :as st]
    [app.util.i18n :refer [tr]]
@@ -615,7 +617,8 @@
    (ptk/reify ::sync-file
      ptk/UpdateEvent
      (update [_ state]
-       (if (not= library-id (:current-file-id state))
+       (if (and (not= library-id (:current-file-id state))
+                (nil? asset-id))
          (d/assoc-in-when state [:workspace-libraries library-id :synced-at] (dt/now))
          state))
 
@@ -743,6 +746,46 @@
                   :callback do-dismiss}]
                 :sync-dialog))))))
 
+(defn watch-component-changes
+  "Watch the state for changes that affect to any main instance. If a change is detected will throw
+  an update-component-sync, so changes are immediately propagated to the component and copies."
+  []
+  (ptk/reify ::watch-component-changes
+    ptk/WatchEvent
+    (watch [_ _ stream]
+      (let [stopper
+            (->> stream
+                 (rx/filter #(or (= :app.main.data.workspace/finalize-page (ptk/type %))
+                                 (= ::watch-component-changes (ptk/type %)))))
+
+            workspace-data-str
+            (->> (rx/concat
+                  (rx/of nil)
+                  (rx/from-atom refs/workspace-data {:emit-current-value? true})))
+
+            change-str
+            (->> stream
+                 (rx/filter #(or (dch/commit-changes? %)
+                                 (= (ptk/type %) :app.main.data.workspace.notifications/handle-file-change)))
+                 (rx/observe-on :async))
+
+            check-changes
+            (fn [[event data]]
+              (let [changes (-> event deref :changes)
+                    components-changed (reduce #(into %1 (ch/components-changed data %2))
+                                               #{}
+                                               changes)]
+                (js/console.log "components-changed" (clj->js components-changed))
+                (when (d/not-empty? components-changed)
+                  (apply st/emit!
+                         (map #(update-component-sync % (:id data))
+                              components-changed)))))]
+
+        (->> change-str
+             (rx/with-latest-from workspace-data-str)
+             (rx/map check-changes)
+             (rx/take-until stopper))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Backend interactions
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

@@ -254,6 +254,7 @@
   (and (if (nil? component-id)
          (ctk/uses-library-components? shape library-id)
          (ctk/instance-of? shape library-id component-id))
+       (not (:main-instance? shape)) ; not need to sync the main instance (avoid infinite loop)
        (or (:component-root? shape) (not page?)))) ; avoid nested components inside pages
 
 (defmethod uses-assets? :colors

frontend/src/app/main/ui/workspace/sidebar/assets.cljs

@@ -188,7 +188,6 @@
                      (add-group % group-name)))))
   (st/emit! (dwu/commit-undo-transaction)))
 
-
 (defn- on-drop-asset
   [event asset dragging? selected-assets selected-assets-full selected-assets-paths rename]
   (let [create-typed-assets-group (partial create-assets-group rename)]