mirror of
https://github.com/penpot/penpot.git
synced 2025-03-12 07:41:43 -05:00
🐛 Fix problem with frame guides
This commit is contained in:
parent
21dd9a260c
commit
2b2a84da64
4 changed files with 4 additions and 4 deletions
|
@ -28,7 +28,7 @@
|
||||||
(watch [_ state _]
|
(watch [_ state _]
|
||||||
(let [page-id (:current-page-id state)
|
(let [page-id (:current-page-id state)
|
||||||
page (dm/get-in state [:workspace-data :pages-index page-id])
|
page (dm/get-in state [:workspace-data :pages-index page-id])
|
||||||
params (or (dm/get-in page [:grids :square])
|
params (or (dm/get-in page [:default-grids :square])
|
||||||
(:square ctg/default-grid-params))
|
(:square ctg/default-grid-params))
|
||||||
grid {:type :square
|
grid {:type :square
|
||||||
:params params
|
:params params
|
||||||
|
|
|
@ -24,7 +24,7 @@
|
||||||
[rumext.v2 :as mf]))
|
[rumext.v2 :as mf]))
|
||||||
|
|
||||||
(def lens:default-grids
|
(def lens:default-grids
|
||||||
(l/derived :default-grids refs/workspace-data))
|
(l/derived :default-grids refs/workspace-page))
|
||||||
|
|
||||||
(defn- get-size-options []
|
(defn- get-size-options []
|
||||||
[{:value nil :label (tr "workspace.options.grid.auto")}
|
[{:value nil :label (tr "workspace.options.grid.auto")}
|
||||||
|
|
|
@ -1251,7 +1251,7 @@
|
||||||
{:name "rulerGuides"
|
{:name "rulerGuides"
|
||||||
:get
|
:get
|
||||||
(fn [_]
|
(fn [_]
|
||||||
(let [guides (-> (u/locate-page file-id page-id) :options :guides)]
|
(let [guides (-> (u/locate-page file-id page-id) :guides)]
|
||||||
(->> guides
|
(->> guides
|
||||||
(vals)
|
(vals)
|
||||||
(filter #(= id (:frame-id %)))
|
(filter #(= id (:frame-id %)))
|
||||||
|
|
|
@ -129,7 +129,7 @@
|
||||||
ruler-id (obj/get proxy "$id")
|
ruler-id (obj/get proxy "$id")
|
||||||
page (locate-page file-id page-id)]
|
page (locate-page file-id page-id)]
|
||||||
(when (some? page)
|
(when (some? page)
|
||||||
(d/seek #(= (:id %) ruler-id) (-> page :options :guides vals)))))
|
(d/seek #(= (:id %) ruler-id) (-> page :guides vals)))))
|
||||||
|
|
||||||
(defn proxy->interaction
|
(defn proxy->interaction
|
||||||
[proxy]
|
[proxy]
|
||||||
|
|
Loading…
Add table
Reference in a new issue