✨ Fixes tests and linter for commons

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

@@ -27,7 +27,22 @@
   (assoc-in state [:workspace-drawing :object :initialized?] true))
 
 (defn insert-point-segment [state point]
-  (update-in state [:workspace-drawing :object :segments] (fnil conj []) point))
+
+  (let [segments (-> state
+                     (get-in [:workspace-drawing :object :segments])
+                     (or [])
+                     (conj point))
+        content (gsp/segments->content segments)
+        selrect (gsh/content->selrect content)
+        points (gsh/rect->points selrect)]
+    (-> state
+        (update-in [:workspace-drawing :object] assoc
+                   :segments segments
+                   :content content
+                   :selrect selrect
+                   :points points))))
+
+
 
 (defn curve-to-path [{:keys [segments] :as shape}]
   (let [content (gsp/segments->content segments)

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

@@ -12,6 +12,7 @@
    [app.main.data.workspace.drawing :as dd]
    [app.main.store :as st]
    [app.main.ui.workspace.shapes :as shapes]
+   [app.main.ui.shapes.path :refer [path-shape]]
    [app.main.ui.workspace.shapes.path.editor :refer [path-editor]]
    [app.common.geom.shapes :as gsh]
    [app.common.data :as d]
@@ -22,13 +23,14 @@
 (declare path-draw-area)
 
 (mf/defc draw-area
-  [{:keys [shape zoom] :as props}]
+  [{:keys [shape zoom tool] :as props}]
 
   [:g.draw-area
    [:& shapes/shape-wrapper {:shape shape}]
 
-   (case (:type shape)
+   (case tool
      :path      [:& path-editor {:shape shape :zoom zoom}]
+     :curve     [:& path-shape {:shape shape :zoom zoom}]
      #_:default [:& generic-draw-area {:shape shape :zoom zoom}])])
 
 (mf/defc generic-draw-area

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

@@ -592,6 +592,7 @@
        (when drawing-obj
          [:& draw-area {:shape drawing-obj
                         :zoom zoom
+                        :tool drawing-tool
                         :modifiers (:modifiers local)}])
 
        (when (contains? layout :display-grid)