Minor changes on shapes.

frontend/src/uxbox/main/data/shapes.cljs

@@ -597,7 +597,8 @@
     ptk/UpdateEvent
     (update [_ state]
       (let [pid (get-in state [:workspace :page])
-            used-names (map #(get-in state [:shapes % :name]) (get-in state [:pages pid :shapes]))
+            used-names (map #(get-in state [:shapes % :name])
+                            (get-in state [:pages pid :shapes]))
             selected (get-in state [:workspace :selected])]
         (impl/group-shapes state selected used-names pid)))))
 
@@ -620,7 +621,8 @@
     (update [_ state]
       (let [pid (get-in state [:workspace :page])
             selected (get-in state [:workspace :selected])
-            used-names (map #(get-in state [:shapes % :name]) (get-in state [:pages pid :shapes]))]
+            used-names (map #(get-in state [:shapes % :name])
+                            (get-in state [:pages pid :shapes]))]
         (impl/duplicate-shapes state selected used-names)))))
 
 (defn delete-selected
@@ -644,7 +646,6 @@
        (->> (get-in state [:workspace :selected])
             (map #(update-fill-attrs % opts)))))))
 
-
 (defn update-selected-shapes-stroke
   "Update the fill related attributed on
   selected shapes."

frontend/src/uxbox/main/ui/workspace/shortcuts.cljs

@@ -89,11 +89,11 @@
 
 ;; --- Helpers
 
-(defn- move-selected
+;; (defn- move-selected
-  [dir speed]
+;;   [dir speed]
-  (case speed
+;;   (case speed
-    :std (st/emit! (uds/move-selected dir 1))
+;;     :std (st/emit! (uds/move-selected dir 1))
-    :fast (st/emit! (uds/move-selected dir 20))))
+;;     :fast (st/emit! (uds/move-selected dir 20))))
 
 ;; --- Mixin