3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-04 07:08:21 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add abstraction for page emptiness checking

Browse source
This commit is contained in:
Andrey Antukh 2025-02-18 16:55:16 +01:00
parent 272bbdd54a
commit 7d840722c4
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
frontend/src/app/main/data/workspace.cljs
View file

@ -29,6 +29,7 @@
[app.common.types.components-list :as ctkl]
[app.common.types.container :as ctn]
[app.common.types.file :as ctf]
[app.common.types.page :as ctp]
[app.common.types.shape :as cts]
[app.common.types.shape-tree :as ctst]
[app.common.types.shape.layout :as ctl]
@ -271,13 +272,12 @@
dwz/zoom-to-selected-shape)))))
(defn- select-frame-tool
[page-id file-id]
[file-id page-id]
(ptk/reify ::select-frame-tool
ptk/WatchEvent
(watch [_ state _]
(let [objects (dsh/lookup-page-objects state file-id page-id)
is-page-empty? (= (count objects) 1)]
(when is-page-empty?
(let [page (dsh/lookup-page state file-id page-id)]
(when (ctp/is-empty? page)
(rx/of (dwd/select-for-drawing :frame)))))))
(defn- fetch-bundle
@ -475,7 +475,7 @@
(dwth/watch-state-changes file-id page-id)
(dwl/watch-component-changes)
(when (cf/external-feature-flag "boards-02" "test")
(select-frame-tool page-id file-id)))
(select-frame-tool file-id page-id)))
(rx/of (dcm/go-to-workspace :file-id file-id ::rt/replace true))))))
(defn finalize-page