From f1515a85bf6727dc51ac9a35add49960d69777fc Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Wed, 29 Jan 2025 10:51:39 +0100
Subject: [PATCH] :sparkles: Copy text content to clipboard

---
 CHANGES.md                                    |  1 +
 frontend/src/app/main/data/workspace.cljs     | 31 +++++++++++++++++++
 .../app/main/ui/workspace/context_menu.cljs   |  6 ++++
 frontend/translations/en.po                   |  5 ++-
 frontend/translations/es.po                   |  3 ++
 5 files changed, 45 insertions(+), 1 deletion(-)

diff --git a/CHANGES.md b/CHANGES.md
index 9a868cf38..1515fa29d 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -14,6 +14,7 @@
 - Shareable link pointing to an specific board. [Taiga #3219](https://tree.taiga.io/project/penpot/us/3219)
 - Copy styles in CSS [Taiga #9401](https://tree.taiga.io/project/penpot/us/9401)
 - Copy/paste shape styles (fills, strokes, shadows, etc..) [Taiga #8937](https://tree.taiga.io/project/penpot/us/8937)
+- Copy text content to clipboard [Taiga #9970](https://tree.taiga.io/project/penpot/us/9970?milestone=424203)
 - Resize board to fit content option [Taiga #4707](https://tree.taiga.io/project/penpot/us/4707)
 - Rename selected layer via Board name [Taiga #9430](https://tree.taiga.io/project/penpot/us/9430)
 
diff --git a/frontend/src/app/main/data/workspace.cljs b/frontend/src/app/main/data/workspace.cljs
index 56acb9412..606dad928 100644
--- a/frontend/src/app/main/data/workspace.cljs
+++ b/frontend/src/app/main/data/workspace.cljs
@@ -1537,6 +1537,37 @@
             css (css/generate-style objects selected selected {:with-prelude? false})]
         (wapi/write-to-clipboard css)))))
 
+(defn copy-selected-text
+  []
+  (ptk/reify ::copy-selected-text
+    ptk/EffectEvent
+    (effect [_ state _]
+      (let [selected (dsh/lookup-selected state)
+            objects  (dsh/lookup-page-objects state)
+
+            text-shapes
+            (->> (cfh/selected-with-children objects selected)
+                 (keep (d/getf objects))
+                 (filter cfh/text-shape?))
+
+            selected (into (d/ordered-set) (map :id) text-shapes)
+
+            ;; Narrow the objects map so it contains only relevant data for
+            ;; selected and its parents
+            objects  (cfh/selected-subtree objects selected)
+            selected (->> (ctst/sort-z-index objects selected)
+                          (into (d/ordered-set)))
+
+            text
+            (->> selected
+                 (map
+                  (fn [id]
+                    (let [shape (get objects id)]
+                      (-> shape :content txt/content->text))))
+                 (str/join "\n"))]
+
+        (wapi/write-to-clipboard text)))))
+
 (defn copy-selected-props
   []
   (ptk/reify ::copy-selected-props
diff --git a/frontend/src/app/main/ui/workspace/context_menu.cljs b/frontend/src/app/main/ui/workspace/context_menu.cljs
index ffb0913ab..1d0de3364 100644
--- a/frontend/src/app/main/ui/workspace/context_menu.cljs
+++ b/frontend/src/app/main/ui/workspace/context_menu.cljs
@@ -161,6 +161,9 @@
         handle-paste-props
         (mf/use-callback #(st/emit! (dw/paste-selected-props)))
 
+        handle-copy-text
+        (mf/use-callback #(st/emit! (dw/copy-selected-text)))
+
         handle-hover-copy-paste
         (mf/use-callback
          (fn []
@@ -204,6 +207,9 @@
 
       [:> menu-separator* {}]
 
+      [:> menu-entry* {:title (tr "workspace.shape.menu.copy-text")
+                       :on-click handle-copy-text}]
+
       [:> menu-entry* {:title (tr "workspace.shape.menu.copy-props")
                        :shortcut (sc/get-tooltip :copy-props)
                        :disabled (> (count shapes) 1)
diff --git a/frontend/translations/en.po b/frontend/translations/en.po
index 251953f93..e2afcb65b 100644
--- a/frontend/translations/en.po
+++ b/frontend/translations/en.po
@@ -5990,6 +5990,9 @@ msgstr "Copy as CSS (nested layers)"
 msgid "workspace.shape.menu.copy-props"
 msgstr "Copy properties"
 
+msgid "workspace.shape.menu.copy-text"
+msgstr "Copy as text"
+
 msgid "workspace.shape.menu.paste-props"
 msgstr "Paste properties"
 
@@ -6984,4 +6987,4 @@ msgstr "No people found for @%s"
 
 #: src/app/main/ui/dashboard/placeholder.cljs:48
 msgid "dashboard.add-file"
-msgstr "Add file"
\ No newline at end of file
+msgstr "Add file"
diff --git a/frontend/translations/es.po b/frontend/translations/es.po
index c4dc848ab..a4a05ad57 100644
--- a/frontend/translations/es.po
+++ b/frontend/translations/es.po
@@ -6016,6 +6016,9 @@ msgstr "Copiar como CSS (capas anidadas)"
 msgid "workspace.shape.menu.copy-props"
 msgstr "Copiar propiedades"
 
+msgid "workspace.shape.menu.copy-text"
+msgstr "Copiar como texto"
+
 msgid "workspace.shape.menu.paste-props"
 msgstr "Pegar propiedades"