🐛 Disallow to create a redundant component

CHANGES.md

@@ -11,11 +11,12 @@
 
 ### :bug: Bugs fixed
 
-- Fix problem with exporting before the document is saved [Taiga #2189](https://tree.taiga.io/project/penpot/issue/2189)
-- Fix undo stacking when changing color from color-picker [Taiga #2191](https://tree.taiga.io/project/penpot/issue/2191)
-- Fix pages dropdown in viewer [Taiga #2087](https://tree.taiga.io/project/penpot/issue/2087)
-- Fix problem when exporting texts with gradients or opacity [Taiga #2200](https://tree.taiga.io/project/penpot/issue/2200)
-- Fix problem with view mode comments [Taiga #](https://tree.taiga.io/project/penpot/issue/2226)
+- Fix problem with exporting before the document is saved [Taiga #2189](https://tree.taiga.io/project/penpot/issue/2189).
+- Fix undo stacking when changing color from color-picker [Taiga #2191](https://tree.taiga.io/project/penpot/issue/2191).
+- Fix pages dropdown in viewer [Taiga #2087](https://tree.taiga.io/project/penpot/issue/2087).
+- Fix problem when exporting texts with gradients or opacity [Taiga #2200](https://tree.taiga.io/project/penpot/issue/2200).
+- Fix problem with view mode comments [Taiga #226](https://tree.taiga.io/project/penpot/issue/2226).
+- Disallow to create a component when already has one [Taiga #2237](https://tree.taiga.io/project/penpot/issue/2237).
 
 ### :arrow_up: Deps updates
 ### :heart: Community contributions by (Thank you!)

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

@@ -125,6 +125,9 @@
   create a group that contains all ids. Then, make a component with it,
   and link all shapes to their corresponding one in the component."
   [shapes objects page-id file-id]
+  (if (and (= (count shapes) 1)
+           (:component-id (first shapes)))
+    empty-changes
     (let [[group rchanges uchanges]
           (if (and (= (count shapes) 1)
                    (= (:type (first shapes)) :group))
@@ -188,7 +191,7 @@
                                                  :attr :touched
                                                  :val (:touched original-shape)}]}))
                               updated-shapes))]
-    [group rchanges uchanges]))
+      [group rchanges uchanges])))
 
 (defn duplicate-component
   "Clone the root shape of the component and all children. Generate new

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

@@ -281,7 +281,8 @@
            [:& menu-entry {:title (tr "workspace.shape.menu.delete-flow-start")
                            :on-click (do-remove-flow flow)}])))
 
-     (when (not= (:type shape) :frame)
+     (when (and (not= (:type shape) :frame)
+                (or multiple? (nil? (:component-id shape))))
        [:*
         [:& menu-separator]
         [:& menu-entry {:title (tr "workspace.shape.menu.create-component")