🐛 Fix initial shape names

This commit is contained in:
Andrés Moya 2021-08-13 13:42:33 +02:00
parent f6742d1bbf
commit 1de1eb6b9b
2 changed files with 7 additions and 7 deletions

View file

@ -274,7 +274,7 @@
(watch [it state _]
(let [pages (get-in state [:workspace-data :pages-index])
unames (dwc/retrieve-used-names pages)
name (dwc/generate-unique-name unames "Page")
name (dwc/generate-unique-name unames "Page-1")
rchange {:type :add-page
:id id