3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-07 14:38:33 +02:00
Code Issues Projects Releases Packages Wiki Activity

Merge pull request #6984 from penpot/superalex-fix-switching-theme-form-wasm-render

Browse source 
🐛 Fix switching theme for wasm render
This commit is contained in:
Elena Torró 2025-07-28 11:30:41 +02:00 • committed by GitHub
commit ff7e34e308
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 36 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

6
frontend/src/app/render_wasm/api.cljs
View file

@ -1065,3 +1065,9 @@
(js/console.error cause) (js/console.error cause)
(p/resolved false))))) (p/resolved false)))))
(p/resolved false)))) (p/resolved false))))
(defn shape-in-current-page?
"Check if a shape is in the current page by looking up the current page objects"
[shape-id]
(let [objects (deref refs/workspace-page-objects)]
(contains? objects shape-id)))

12
frontend/src/app/render_wasm/shape.cljs
View file

@ -208,6 +208,8 @@
(defn set-wasm-multi-attrs! (defn set-wasm-multi-attrs!
[shape properties] [shape properties]
;; Only call WASM API if the shape is in the current page
(when (api/shape-in-current-page? (:id shape))
(api/use-shape (:id shape)) (api/use-shape (:id shape))
(let [result (let [result
(->> properties (->> properties
@ -224,11 +226,13 @@
(api/request-render "set-wasm-attrs-pending")))) (api/request-render "set-wasm-attrs-pending"))))
(do (do
(api/update-shape-tiles) (api/update-shape-tiles)
(api/request-render "set-wasm-attrs"))))) (api/request-render "set-wasm-attrs"))))))
(defn set-wasm-attrs! (defn set-wasm-attrs!
[shape k v] [shape k v]
(let [shape (assoc shape k v)] (let [shape (assoc shape k v)]
;; Only call WASM API if the shape is in the current page
(when (api/shape-in-current-page? (:id shape))
(api/use-shape (:id shape)) (api/use-shape (:id shape))
(let [result (set-wasm-single-attr! shape k) (let [result (set-wasm-single-attr! shape k)
pending (-> (d/index-by :key :callback result) vals)] pending (-> (d/index-by :key :callback result) vals)]
@ -244,7 +248,7 @@
(api/request-render "set-wasm-attrs-pending")))) (api/request-render "set-wasm-attrs-pending"))))
(do (do
(api/update-shape-tiles) (api/update-shape-tiles)
(api/request-render "set-wasm-attrs")))))) (api/request-render "set-wasm-attrs")))))))
(defn- impl-assoc (defn- impl-assoc
[self k v] [self k v]
@ -274,7 +278,9 @@
[self k] [self k]
(when ^boolean shape/*wasm-sync* (when ^boolean shape/*wasm-sync*
(binding [shape/*wasm-sync* false] (binding [shape/*wasm-sync* false]
(set-wasm-attrs! self k nil))) ;; Only call WASM API if the shape is in the current page
(when (api/shape-in-current-page? (.-id ^ShapeProxy self))
(set-wasm-attrs! self k nil))))
(case k (case k
:id :id