✨ Curve tool improvements

frontend/src/app/main/data/workspace/common.cljs

@@ -314,37 +314,41 @@
      [redo-changes undo-changes])))
 
 (defn add-shape
-  [attrs]
+  ([attrs]
-  (us/verify ::shape-attrs attrs)
+   (add-shape attrs {}))
-  (ptk/reify ::add-shape
-    ptk/WatchEvent
-    (watch [it state _]
-      (let [page-id  (:current-page-id state)
-            objects  (wsh/lookup-page-objects state page-id)
 
-            id (or (:id attrs) (uuid/next))
+  ([attrs {:keys [no-select?]}]
-            name (-> objects
+   (us/verify ::shape-attrs attrs)
-                     (retrieve-used-names)
+   (ptk/reify ::add-shape
-                     (generate-unique-name (:name attrs)))
+     ptk/WatchEvent
+     (watch [it state _]
+       (let [page-id  (:current-page-id state)
+             objects  (wsh/lookup-page-objects state page-id)
 
-            selected (wsh/lookup-selected state)
+             id (or (:id attrs) (uuid/next))
+             name (-> objects
+                      (retrieve-used-names)
+                      (generate-unique-name (:name attrs)))
 
-            [rchanges uchanges] (add-shape-changes
+             selected (wsh/lookup-selected state)
-                                 page-id
-                                 objects
-                                 selected
-                                 (-> attrs
-                                     (assoc :id id )
-                                     (assoc :name name)))]
 
-        (rx/concat
+             [rchanges uchanges] (add-shape-changes
-         (rx/of (dch/commit-changes {:redo-changes rchanges
+                                  page-id
-                                     :undo-changes uchanges
+                                  objects
-                                     :origin it})
+                                  selected
-                (select-shapes (d/ordered-set id)))
+                                  (-> attrs
-         (when (= :text (:type attrs))
+                                      (assoc :id id )
-           (->> (rx/of (start-edition-mode id))
+                                      (assoc :name name)))]
-                (rx/observe-on :async))))))))
+
+         (rx/concat
+          (rx/of (dch/commit-changes {:redo-changes rchanges
+                                      :undo-changes uchanges
+                                      :origin it})
+                 (when-not no-select?
+                   (select-shapes (d/ordered-set id))))
+          (when (= :text (:type attrs))
+            (->> (rx/of (start-edition-mode id))
+                 (rx/observe-on :async)))))))))
 
 (defn move-shapes-into-frame [frame-id shapes]
   (ptk/reify ::move-shapes-into-frame

frontend/src/app/main/data/workspace/drawing.cljs

@@ -42,6 +42,15 @@
           (when (= tool :path)
             (rx/of (start-drawing :path)))
 
+          (when (= tool :curve)
+            (let [stopper (->> stream (rx/filter dwc/interrupt?))]
+              (->> stream
+                   (rx/take-until stopper)
+                   (rx/filter (ptk/type? ::common/handle-finish-drawing))
+                   (rx/take 1)
+                   (rx/observe-on :async)
+                   (rx/map #(select-for-drawing tool data)))))
+
           ;; NOTE: comments are a special case and they manage they
           ;; own interrupt cycle.q
           (when (and (not= tool :comments)

frontend/src/app/main/data/workspace/drawing/common.cljs

@@ -24,7 +24,8 @@
   (ptk/reify ::handle-finish-drawing
     ptk/WatchEvent
     (watch [_ state _]
-      (let [shape (get-in state [:workspace-drawing :object])]
+      (let [tool (get-in state [:workspace-drawing :tool])
+            shape (get-in state [:workspace-drawing :object])]
         (rx/concat
          (when (:initialized? shape)
            (let [page-id (:current-page-id state)
@@ -55,7 +56,7 @@
                 (rx/of (dwu/start-undo-transaction))
                 (rx/empty))
 
-              (rx/of (dwc/add-shape shape))
+              (rx/of (dwc/add-shape shape {:no-select? (= tool :curve)}))
 
               (if (= :frame (:type shape))
                 (->> (uw/ask! {:cmd :selection/query

frontend/src/app/main/ui/workspace/viewport.cljs

@@ -142,7 +142,7 @@
         show-draw-area?          drawing-obj
         show-gradient-handlers?  (= (count selected) 1)
         show-grids?              (contains? layout :display-grid)
-        show-outlines?           (and (nil? transform) (not edition) (not drawing-obj) (not (#{:comments :path} drawing-tool)))
+        show-outlines?           (and (nil? transform) (not edition) (not drawing-obj) (not (#{:comments :path :curve} drawing-tool)))
         show-pixel-grid?         (>= zoom 8)
         show-presence?           page-id
         show-prototypes?         (= options-mode :prototype)