Remove unnecessary anon fn allocation on set-grid-layout-data

And remove incorrect use of dm/get prop for non statically known
attributes of shape
This commit is contained in:
Andrey Antukh
2025-08-12 08:57:31 +02:00
parent 9f14edb0d7
commit 3f71734cb4

View File

@@ -418,21 +418,22 @@
(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)
column-gap (or (dm/get-prop gap :column-gap) 0)
(let [dir (-> (get shape :layout-grid-dir :row)
(sr/translate-layout-grid-dir))
gap (get shape :layout-gap)
row-gap (get gap :row-gap 0)
column-gap (get gap :column-gap 0)
align-items (-> (or (dm/get-prop shape :layout-align-items) :start) sr/translate-layout-align-items)
align-content (-> (or (dm/get-prop shape :layout-align-content) :stretch) sr/translate-layout-align-content)
justify-items (-> (or (dm/get-prop shape :layout-justify-items) :start) sr/translate-layout-justify-items)
justify-content (-> (or (dm/get-prop shape :layout-justify-content) :stretch) sr/translate-layout-justify-content)
align-items (-> (get shape :layout-align-items :start) sr/translate-layout-align-items)
align-content (-> (get shape :layout-align-content :stretch) sr/translate-layout-align-content)
justify-items (-> (get shape :layout-justify-items :start) sr/translate-layout-justify-items)
justify-content (-> (get shape :layout-justify-content :stretch) sr/translate-layout-justify-content)
padding (dm/get-prop shape :layout-padding)
padding-top (or (dm/get-prop padding :p1) 0)
padding-right (or (dm/get-prop padding :p2) 0)
padding-bottom (or (dm/get-prop padding :p3) 0)
padding-left (or (dm/get-prop padding :p4) 0)]
padding (get shape :layout-padding)
padding-top (get padding :p1 0)
padding-right (get padding :p2 0)
padding-bottom (get padding :p3 0)
padding-left (get padding :p4 0)]
(h/call wasm/internal-module
"_set_grid_layout_data"