near/heyarne.rect-packing
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add key to fix reagent warning

Browse source
This commit is contained in:
heyarne 2021-12-30 17:12:46 +01:00
commit 5c2f429d2e
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/heyarne/rect_packing/core.cljs
View file

@ -50,20 +50,20 @@
(defn main []
(let [{:keys [frame rects]} @state
sorted (pack-rects-naive frame rects)]
sorted (map-indexed vector (pack-rects-naive frame rects))]
[:main
[:h1 "Visualization"]
[:svg {:viewBox "-1 -1 501 501" :xmlns "http://www.w3.org/2000/svg"}
[:rect {:width (geom/width frame)
:height (geom/height frame)}]
(for [rect sorted]
[:rect {:width (geom/width rect) :height (geom/height rect)
:x (-> rect :p :x)
:y (-> rect :p :y)}])]
(for [[idx rect] sorted]
^{:key idx} [:rect {:width (geom/width rect) :height (geom/height rect)
:x (-> rect :p :x)
:y (-> rect :p :y)}])]
[:h2 "Rectangles"]
[:ul
(for [rect sorted]
[:li [:pre (pr-str rect)]])]]))
(for [[idx rect] sorted]
^{:key idx} [:li [:pre (pr-str rect)]])]]))
(defn ^:dev/after-load init []
(println "Initializing…")