From ee9b99635bf8ba8ac7dd47eac5654329ff0fb25c Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 22 Aug 2016 17:32:02 +0300
Subject: [PATCH] Add path selection component when path is in edition mode.

---
 src/uxbox/main/ui/workspace/selection.cljs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/uxbox/main/ui/workspace/selection.cljs b/src/uxbox/main/ui/workspace/selection.cljs
index 445b6f4bb..ce063b146 100644
--- a/src/uxbox/main/ui/workspace/selection.cljs
+++ b/src/uxbox/main/ui/workspace/selection.cljs
@@ -93,6 +93,23 @@
                   :style {:stroke "#333" :fill "transparent"
                           :stroke-opacity "1"}}]]))
 
+(mx/defc path-edition-selection-handlers
+  [{:keys [id points] :as shape}]
+  (letfn [(on-mouse-down [index event]
+            (dom/stop-propagation event)
+            (rlocks/acquire! :shape/resize)
+            (println "on-mouse-down" index)
+            (start-path-edition id index))
+
+            #_(rlocks/acquire! :shape/resize [vid id])]
+    (let [tmx (geom/transformation-matrix shape)
+          points (map #(gpt/transform % tmx) points)]
+      [:g.controls
+       (for [[index {:keys [x y]}] (map-indexed vector points)]
+         [:circle {:cx x :cy y :r 3
+                   :on-mouse-down (partial on-mouse-down index)
+                   :fill "red"}])])))
+
 (mx/defc single-selection-handlers
   [{:keys [id] :as shape}]
   (letfn [(on-mouse-down [vid event]
@@ -158,4 +175,8 @@
       (> shapes-num 1)
       (multiple-selection-handlers shapes)
 
+      (and (= :path (:type shape))
+           (:edition? shape))
+      (path-edition-selection-handlers shape)
+
       (= shapes-num 1) (single-selection-handlers (first shapes)))))