Remove side effect on workspace initialization.

This commit is contained in:
Andrey Antukh 2015-12-18 19:20:48 +02:00
parent 5fddf7ca4d
commit e8235fcf02

View file

@ -127,7 +127,7 @@
(let [s {:project projectid (let [s {:project projectid
:toolboxes #{} :toolboxes #{}
:page pageid}] :page pageid}]
(update state :workspace merge s))) (assoc state :workspace s)))
IPrintWithWriter IPrintWithWriter
(-pr-writer [mv writer _] (-pr-writer [mv writer _]
@ -159,7 +159,7 @@
(let [pages (project-pages state projectid) (let [pages (project-pages state projectid)
pageid (:id (first pages))] pageid (:id (first pages))]
(rs/emit! (r/navigate :workspace/page {:project-uuid projectid (rs/emit! (r/navigate :workspace/page {:project-uuid projectid
:page-uuid pageid}))))) :page-uuid pageid})))))
IPrintWithWriter IPrintWithWriter
(-pr-writer [mv writer _] (-pr-writer [mv writer _]
(-write writer "#<event:u.s.p/go-to-project"))))) (-write writer "#<event:u.s.p/go-to-project")))))