3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-11 13:01:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add dynamic properties modifiers to WASM

Browse source
This commit is contained in:
alonso.torres 2025-04-24 12:05:52 +02:00 • committed by Alonso Torres
parent 44d68ad723
commit 8ce71e792e
5 changed files with 238 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -409,9 +409,8 @@
padding-bottom
padding-left)))
(defn set-grid-layout
(defn set-grid-layout-data
[shape]
(let [dir (-> (or (dm/get-prop shape :layout-grid-dir) :row) sr/translate-layout-grid-dir)
gap (dm/get-prop shape :layout-gap)
row-gap (or (dm/get-prop gap :row-gap) 0)
@ -440,11 +439,11 @@
padding-top
padding-right
padding-bottom
padding-left))
padding-left)))
;; Send Rows
(let [entries (:layout-grid-rows shape)
size (grid-layout-get-row-entries-size entries)
(defn set-grid-layout-rows
[entries]
(let [size (grid-layout-get-row-entries-size entries)
offset (mem/alloc-bytes size)
heap
@ -459,11 +458,11 @@
(.set heap (sr/u8 (sr/translate-grid-track-type type)) (+ current-offset 0))
(.set heap (sr/f32->u8 value) (+ current-offset 1))
(recur (rest entries) (+ current-offset GRID-LAYOUT-ROW-ENTRY-SIZE)))))
(h/call wasm/internal-module "_set_grid_rows"))
(h/call wasm/internal-module "_set_grid_rows")))
;; Send Columns
(let [entries (:layout-grid-columns shape)
size (grid-layout-get-column-entries-size entries)
(defn set-grid-layout-columns
[entries]
(let [size (grid-layout-get-column-entries-size entries)
offset (mem/alloc-bytes size)
heap
@ -478,10 +477,11 @@
(.set heap (sr/u8 (sr/translate-grid-track-type type)) (+ current-offset 0))
(.set heap (sr/f32->u8 value) (+ current-offset 1))
(recur (rest entries) (+ current-offset GRID-LAYOUT-COLUMN-ENTRY-SIZE)))))
(h/call wasm/internal-module "_set_grid_columns"))
(h/call wasm/internal-module "_set_grid_columns")))
;; Send cells
(let [entries (-> shape :layout-grid-cells vals)
(defn set-grid-layout-cells
[cells]
(let [entries (vals cells)
size (grid-layout-get-cell-entries-size entries)
offset (mem/alloc-bytes size)
@ -533,6 +533,13 @@
(h/call wasm/internal-module "_set_grid_cells")))
(defn set-grid-layout
[shape]
(set-grid-layout-data shape)
(set-grid-layout-rows (:layout-grid-rows shape))
(set-grid-layout-columns (:layout-grid-columns shape))
(set-grid-layout-cells (:layout-grid-cells shape)))
(defn set-layout-child
[shape]
(let [margins (dm/get-prop shape :layout-item-margin)
@ -868,4 +875,4 @@
(p/merr (fn [cause]
(js/console.error cause)
(p/resolved false)))))
(p/resolved false))))
(p/resolved false))))