From d2059475f00bbb8c6c597613606f31a8c8ea852d Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 5 Mar 2024 10:58:10 +0100
Subject: [PATCH] :zap: Add minor performance enhancement for `inside-layout?`
 helper

---
 common/src/app/common/types/shape/layout.cljc | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/common/src/app/common/types/shape/layout.cljc b/common/src/app/common/types/shape/layout.cljc
index ea2f69dae..c39545041 100644
--- a/common/src/app/common/types/shape/layout.cljc
+++ b/common/src/app/common/types/shape/layout.cljc
@@ -267,20 +267,21 @@
 (defn inside-layout?
   "Check if the shape is inside a layout"
   [objects shape]
-
-  (loop [current-id (:id shape)]
-    (let [current (get objects current-id)]
+  (loop [current-id (dm/get-prop shape :id)]
+    (let [current   (get objects current-id)
+          parent-id (dm/get-prop current :parent-id)]
       (cond
-        (or (nil? current) (= current-id (:parent-id current)))
+        (or (nil? current) (= current-id parent-id))
         false
 
-        (= :frame (:type current))
+        (cfh/frame-shape? current-id)
         (:layout current)
 
         :else
-        (recur (:parent-id current))))))
+        (recur parent-id)))))
 
-(defn wrap? [{:keys [layout-wrap-type]}]
+(defn wrap?
+  [{:keys [layout-wrap-type]}]
   (= layout-wrap-type :wrap))
 
 (defn fill-width?