From d6a2fee09aa0d7b98fb34fc784e74852219b3334 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Fri, 21 Oct 2016 00:19:57 +0200
Subject: [PATCH] Simplify select-for-drawing event implementation.

---
 src/uxbox/main/data/workspace.cljs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/uxbox/main/data/workspace.cljs b/src/uxbox/main/data/workspace.cljs
index 34c03dd873..5c92ab932d 100644
--- a/src/uxbox/main/data/workspace.cljs
+++ b/src/uxbox/main/data/workspace.cljs
@@ -109,9 +109,11 @@
   (reify
     rs/UpdateEvent
     (-apply-update [_ state]
-      (if (or (nil? shape) (= (get-in state [:workspace :drawing]) shape))
-        (update-in state [:workspace] dissoc :drawing)
-        (assoc-in state [:workspace :drawing] shape)))))
+      (let [current (get-in state [:workspace :drawing])]
+        (if (or (nil? shape)
+                (= shape current))
+          (update state :workspace dissoc :drawing)
+          (assoc-in state [:workspace :drawing] shape))))))
 
 ;; --- Activate Workspace Flag