From fd6395fcd425f4e3f9e889b9ef52edb55c804ec0 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sun, 21 Feb 2016 20:30:20 +0200
Subject: [PATCH] Improve workspace initialization.

---
 src/uxbox/data/workspace.cljs | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/src/uxbox/data/workspace.cljs b/src/uxbox/data/workspace.cljs
index 926d979d8..7a9806a9d 100644
--- a/src/uxbox/data/workspace.cljs
+++ b/src/uxbox/data/workspace.cljs
@@ -59,16 +59,22 @@
 
 (defn initialize
   "Initialize the workspace state."
-  [projectid pageid]
+  [project page]
   (reify
     rs/UpdateEvent
     (-apply-update [_ state]
-      (let [s {:project projectid
-               :flags #{:layers :element-options}
-               :drawing nil
-               :selected #{}
-               :page pageid}]
-        (assoc state :workspace s)))))
+      (if-let [workspace (:workspace state)]
+        (update state :workspace merge
+                {:project project
+                 :page page
+                 :selected #{}
+                 :drawing nil})
+        (update state :workspace merge
+                {:project project
+                 :page page
+                 :flags #{:layers :element-options}
+                 :selected #{}
+                 :drawing nil})))))
 
 (defn toggle-flag
   "Toggle the enabled flag of the specified tool."