Improve interactions and after-review fixes

This commit is contained in:
alonso.torres 2021-12-28 11:12:33 +01:00
parent c28a2acfc7
commit 493a7680e0
5 changed files with 51 additions and 25 deletions

View file

@ -15,12 +15,16 @@
(defn calc-bool-content
[shape objects]
(->> (:shapes shape)
(map (d/getf objects))
(filter (comp not :hidden))
(map #(stp/convert-to-path % objects))
(mapv :content)
(pb/content-bool (:bool-type shape))))
(let [extract-content-xf
(comp (map (d/getf objects))
(filter (comp not :hidden))
(map #(stp/convert-to-path % objects))
(map :content))
shapes-content
(into [] extract-content-xf (:shapes shape))]
(pb/content-bool (:bool-type shape) shapes-content)))
(defn update-bool-selrect
"Calculates the selrect+points for the boolean shape"