From 272bbdd54a300e177e70525f599701bc42b54157 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marina=20L=C3=B3pez?= Date: Mon, 17 Feb 2025 11:31:23 +0100 Subject: [PATCH] :tada: Add AB test for empty workspace set board tool by default --- frontend/src/app/main/data/workspace.cljs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/frontend/src/app/main/data/workspace.cljs b/frontend/src/app/main/data/workspace.cljs index f870bb254..3fd0083e2 100644 --- a/frontend/src/app/main/data/workspace.cljs +++ b/frontend/src/app/main/data/workspace.cljs @@ -270,6 +270,16 @@ (rx/of (dws/select-shapes frames-id) dwz/zoom-to-selected-shape))))) +(defn- select-frame-tool + [page-id file-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? + (rx/of (dwd/select-for-drawing :frame))))))) + (defn- fetch-bundle "Multi-stage file bundle fetch coordinator" [file-id] @@ -463,7 +473,9 @@ (if-let [page (dsh/lookup-page state file-id page-id)] (rx/of (initialize-page* file-id page-id page) (dwth/watch-state-changes file-id page-id) - (dwl/watch-component-changes)) + (dwl/watch-component-changes) + (when (cf/external-feature-flag "boards-02" "test") + (select-frame-tool page-id file-id))) (rx/of (dcm/go-to-workspace :file-id file-id ::rt/replace true)))))) (defn finalize-page