simplify duplicate event

Author: sprocketc

src/renderer/element/events.cljs

@@ -184,10 +184,10 @@
    (h/paste-styles db)))
 
 (rf/reg-event-db
- ::duplicate-in-place
+ ::duplicate
  [(finalize "Duplicate selection")]
  (fn [db]
-   (h/duplicate-in-place db)))
+   (h/duplicate db)))
 
 (rf/reg-event-db
  ::translate

src/renderer/element/handlers.cljs

@@ -695,18 +695,11 @@
         (not= (:id (root db)) (:id parent-el))
         (translate [(- s-x1) (- s-y1)])) (selected-ids db)))))
 
-(m/=> duplicate-in-place [:-> App App])
-(defn duplicate-in-place
+(m/=> duplicate [:-> App App])
+(defn duplicate
   [db]
   (reduce create (deselect db) (top-selected-sorted db)))
 
-(m/=> duplicate [:-> App Vec2D App])
-(defn duplicate
-  [db offset]
-  (-> db
-      (duplicate-in-place)
-      (translate offset)))
-
 (defn animate
   ([db tag attrs]
    (reduce (partial-right animate tag attrs) (deselect db) (selected db)))

src/renderer/element/views.cljs

@@ -28,7 +28,7 @@
    {:label "Animate Motion"
     :action [::element.e/animate :animateMotion {}]}
    {:type :separator}
-   {:label "Duplicate in place"
-    :action [::element.e/duplicate-in-place]}
+   {:label "Duplicate"
+    :action [::element.e/duplicate]}
    {:label "Delete"
     :action [::element.e/delete]}])

src/renderer/menubar/views.cljs

@@ -147,7 +147,7 @@
             :icon "copy"
             :label "Duplicate"
             :disabled (not @(rf/subscribe [::element.s/some-selected]))
-            :action [::element.e/duplicate-in-place]}
+            :action [::element.e/duplicate]}
            {:id :divider-3
             :type :separator}
            {:id :select-all

src/renderer/tool/impl/base/transform.cljs

@@ -279,8 +279,8 @@
       (if alt-key?
         (-> db
             (history.h/swap)
-            (select-element (pointer/shift? e))
-            (element.h/duplicate delta)
+            (element.h/duplicate)
+            (translate delta)
             (snap.h/snap-with element.h/translate)
             (app.h/set-cursor "copy"))
         (app.h/set-state db :translate))

src/renderer/utils/keyboard.cljs

@@ -130,7 +130,7 @@
                  [{:keyCode (key-codes "D")
                    :ctrlKey true
                    :shiftKey true}]]
-                [[::element.e/duplicate-in-place]
+                [[::element.e/duplicate]
                  [{:keyCode (key-codes "D")
                    :ctrlKey true}]]
                 [[::element.e/boolean-operation :exclude]

src/user.cljs

@@ -60,7 +60,7 @@
 (defn ^:export duplicate
   "Duplicates the selected elements."
   []
-  (rf/dispatch [::element.e/duplicate-in-place]))
+  (rf/dispatch [::element.e/duplicate]))
 
 (defn ^:export create
   "Creates a new element."