✨ Move frames with guides move the guides

frontend/src/app/main/data/workspace/guides.cljs

@@ -6,7 +6,10 @@
 
 (ns app.main.data.workspace.guides
   (:require
+   [app.common.geom.point :as gpt]
+   [app.common.geom.shapes :as gsh]
    [app.common.spec :as us]
+   [app.common.types.page-options :as tpo]
    [app.main.data.workspace.changes :as dwc]
    [app.main.data.workspace.state-helpers :as wsh]
    [beicon.core :as rx]
@@ -20,7 +23,7 @@
       (merge guide))))
 
 (defn update-guides [guide]
-  ;; TODO CHECK SPEC
+  (us/verify ::tpo/guide guide)
   (ptk/reify ::update-guides
     ptk/WatchEvent
     (watch [it state _]
@@ -44,7 +47,7 @@
            :origin it}))))))
 
 (defn remove-guide [guide]
-  ;; TODO CHECK SPEC
+  (us/verify ::tpo/guide guide)
   (ptk/reify ::remove-guide
     ptk/WatchEvent
     (watch [it state _]
@@ -75,26 +78,24 @@
 
     (watch [_ state _]
       (let [objects (wsh/lookup-page-objects state)
-            frame-ids (->> ids (filter #(= :frame (get-in objects [% :type]))) (into #{}))
+            frame-ids? (->> ids (filter #(= :frame (get-in objects [% :type]))) (into #{}))
             object-modifiers  (get state :workspace-modifiers)
 
-            moved-guide?
-            (fn [guide]
-              (let [frame-id (:frame-id guide)]
-                (and (contains? frame-ids frame-id)
-                     (some? (get-in object-modifiers [frame-id :modifiers :displacement])))))
-
             build-move-event
             (fn [guide]
-              (let [disp (get-in object-modifiers [(:frame-id guide) :modifiers :displacement])
+              (let [frame (get objects (:frame-id guide))
-                    guide (if (= :x (:axis guide))
+                    frame' (-> (merge frame (get object-modifiers (:frame-id guide)))
-                            (update guide :position + (:e disp))
+                               (gsh/transform-shape))
-                            (update guide :position + (:f disp)))]
+
+                    moved (gpt/to-vec (gpt/point (:x frame) (:y frame))
+                                      (gpt/point (:x frame') (:y frame')))
+
+                    guide (update guide :position + (get moved (:axis guide)))]
                 (update-guides guide)))]
 
         (->> (wsh/lookup-page-options state)
              :guides
              (vals)
-             (filter moved-guide?)
+             (filter (comp frame-ids? :frame-id))
              (map build-move-event)
              (rx/from))))))

frontend/src/app/main/data/workspace/transforms.cljs

@@ -171,6 +171,7 @@
             ignore-tree       (get-ignore-tree object-modifiers objects ids)]
 
         (rx/of (dwu/start-undo-transaction)
+               (dwg/move-frame-guides ids-with-children)
                (dch/update-shapes
                  ids-with-children
                  (fn [shape]
@@ -189,7 +190,6 @@
                           :rotation
                           :flip-x
                           :flip-y]})
-               (dwg/move-frame-guides ids-with-children)
                (clear-local-transform)
                (dwu/commit-undo-transaction))))))
 

frontend/src/app/main/ui/shapes/export.cljs

@@ -158,7 +158,7 @@
 (mf/defc export-guides
   [{:keys [guides]}]
   [:> "penpot:guides" #js {}
-   (for [{:keys [id position frame-id axis]} (vals guides)]
+   (for [{:keys [position frame-id axis]} (vals guides)]
      [:> "penpot:guide" #js {:position position
                              :frame-id frame-id
                              :axis (d/name axis)}])])

frontend/src/app/main/ui/workspace/viewport.cljs

@@ -370,5 +370,6 @@
            {:zoom zoom
             :vbox vbox
             :hover-frame frame-parent
+            :modifiers modifiers
             :disabled-guides? disabled-guides?}]])]]]))
 

frontend/src/app/main/ui/workspace/viewport/guides.cljs

@@ -7,6 +7,8 @@
 (ns app.main.ui.workspace.viewport.guides
   (:require
    [app.common.colors :as colors]
+   [app.common.geom.point :as gpt]
+   [app.common.geom.shapes :as gsh]
    [app.common.math :as mth]
    [app.common.uuid :as uuid]
    [app.main.data.workspace :as dw]
@@ -137,11 +139,7 @@
       {:x (+ (:x vbox) rules-pos)
        :y (- pos (/ guide-active-area 2))
        :width (:width vbox)
-       :height guide-active-area}
+       :height guide-active-area})))
-
-
-
-      )))
 
 (defn guide-line-axis
   ([pos vbox axis]
@@ -232,9 +230,19 @@
      :width (:width vbox)
      :height (/ 24 zoom)}))
 
+(defn is-guide-inside-frame?
+  [guide frame]
+
+  (if (= :x (:axis guide))
+    (and (>= (:position guide) (:x frame) )
+         (<= (:position guide) (+ (:x frame) (:width frame)) ))
+
+    (and (>= (:position guide) (:y frame) )
+         (<= (:position guide) (+ (:y frame) (:height frame)) ))))
+
 (mf/defc guide
   {::mf/wrap [mf/memo]}
-  [{:keys [guide hover? on-guide-change get-hover-frame vbox zoom hover-frame disabled-guides?]}]
+  [{:keys [guide hover? on-guide-change get-hover-frame vbox zoom hover-frame disabled-guides? frame-modifier]}]
 
   (let [axis (:axis guide)
 
@@ -254,11 +262,17 @@
                 state
                 frame]} (use-guide handle-change-position get-hover-frame zoom guide)
 
-        frame (or frame hover-frame)
+        base-frame (or frame hover-frame)
-        pos (or (:new-position @state) (:position guide))
+        frame (gsh/transform-shape (merge base-frame frame-modifier))
+
+        move-vec (gpt/to-vec (gpt/point (:x base-frame) (:y base-frame))
+                             (gpt/point (:x frame) (:y frame)))
+
+        pos (+ (or (:new-position @state) (:position guide)) (get move-vec axis))
         guide-width (/ guide-width zoom)
         guide-pill-corner-radius (/ guide-pill-corner-radius zoom)]
 
+    (when (or (nil? frame) (is-guide-inside-frame? (assoc guide :position pos) frame))
       [:g.guide-area {:data-guide-frame-id (when (some? frame) (str (:id frame)))}
        (when-not disabled-guides?
          (let [{:keys [x y width height]} (guide-area-axis pos vbox zoom frame axis)]
@@ -343,7 +357,7 @@
                     :style {:font-size (/ 13 zoom)
                             :font-family "sourcesanspro"
                             :fill colors/black}}
-           (str (mth/round pos))]]))]))
+             (str (mth/round pos))]]))])))
 
 (mf/defc new-guide-area
   [{:keys [vbox zoom axis get-hover-frame disabled-guides?]}]
@@ -395,7 +409,7 @@
 
 (mf/defc viewport-guides
   {::mf/wrap [mf/memo]}
-  [{:keys [zoom vbox hover-frame disabled-guides?]}]
+  [{:keys [zoom vbox hover-frame disabled-guides? modifiers]}]
 
   (let [page (mf/deref refs/workspace-page)
 
@@ -445,6 +459,7 @@
                    :guide current
                    :vbox vbox
                    :zoom zoom
+                   :frame-modifier (get modifiers (:frame-id current))
                    :get-hover-frame get-hover-frame
                    :on-guide-change on-guide-change
                    :disabled-guides? disabled-guides?}])]))