Add a --copy to support suggested translation workflow

Follow up to #9115

docs/contributing-to-translations.md

@@ -58,51 +58,31 @@ To see what translations are missing for your language use:
 
 ```shell
 $ bb lang:missing LOCALE
-
-|                       :translation-key |                                  :string-to-translate |
-|----------------------------------------+-------------------------------------------------------|
-|                            :cards-view |                                            View cards |
-|                                :delete |                                                Delete |
-|                          :export-graph |                                          Export graph |
-|                           :export-page |                                           Export page |
-|                          :graph-search |                                          Search graph |
-|                       :open-new-window |                                            New window |
+|                            :translation-key |                        :string-to-translate |               :file |
+|---------------------------------------------+---------------------------------------------+---------------------|
+|                     :content/copy-block-url |                              Copy block URL | frontend/dicts.cljs |
+|                     :content/copy-export-as |                          Copy / Export as.. | frontend/dicts.cljs |
+|                           :content/copy-ref |                         Copy this reference | frontend/dicts.cljs |
+|                         :content/delete-ref |                       Delete this reference | frontend/dicts.cljs |
+...
 ```
 
-Now, manually, add keys for your language to the translation files, save and rerun the above command. 
-Over time you're hoping to have this list drop to zero.
-
-Almost all translations are pretty quick. The only exceptions to this are the keys `:tutorial/text` and `:tutorial/dummy-notes`. These reference files that are part of the onboarding tutorial. Most languages don't have this translated. If you are willing to do this, we would be happy to have this translated.
-
-### \*nix-like command
-
-For \*nix translators, since this process is a LITTLE tedious to do it manually, here is a small **command** to process the output of `bb lang:missing` command and leave it almost ready to paste it on the dict files.
+Now, manually, add keys for your language to the translation files, save and rerun the above command.
+Over time you're aiming to have this list drop to zero. Since this process can be tedious, there is an option to print the untranslated strings to copy and paste them to the files:
 
-```shell
-bb lang:missing LOCALE | awk -F '|' '{print $2 "\"" $3 "\""}' | sed 's/  //g' | sed 's/ :/:/g' > untranslated_strings.txt
-```
-transforms the output from:
-```
-|                       :settings-page/tab-features |                                              Features | frontend/dicts.cljs |
-|              :whiteboard/link-whiteboard-or-block |                            Link whiteboard/page/block | frontend/dicts.cljs |
-|                   :command.auto-complete/complete |                   Auto-complete: Choose selected item | shortcut/dicts.cljs |
-|                       :command.auto-complete/next |                       Auto-complete: Select next item | shortcut/dicts.cljs |
+```sh
+# When pasting this content, be sure to update the indentation to match the file
+$ bb lang:missing LOCALE --copy
 
+;; For frontend/dicts.cljs
+:content/copy-block-url "Copy block URL"
+:content/copy-export-as "Copy / Export as.."
+:content/copy-ref "Copy this reference"
+:content/delete-ref "Delete this reference"
+...
 ```
-to:
-```
-:settings-page/tab-features "Features "
-:whiteboard/link-whiteboard-or-block "Link whiteboard/page/block "
-:command.auto-complete/complete " Auto-complete: Choose selected item "
-:command.auto-complete/next " Auto-complete: Select next item "
-```
-
-The translator just need to:
 
-0. Ignore garbage at the beggining and end of the `untranslated_strings.txt` file.
-1. In the `untranslated_strings.txt` file check which strings go to which file and since the `bb` output is ordered it is only need to split the strings in *half*.
-2. After splitting the strings, copy a bunch of strings to their corresponding file and translate them. Repeat until finish.
-3. Make the proper indentation.
+Almost all translations are pretty quick. The only exceptions to this are the keys `:tutorial/text` and `:tutorial/dummy-notes`. These reference files that are part of the onboarding tutorial. Most languages don't have this translated. If you are willing to do this, we would be happy to have this translated.
 
 ## Fix Untranslated
 

scripts/src/logseq/tasks/lang.clj

@@ -5,6 +5,7 @@
             [frontend.dicts :as dicts]
             [frontend.modules.shortcut.dicts :as shortcut-dicts]
             [logseq.tasks.util :as task-util]
+            [babashka.cli :as cli]
             [babashka.process :refer [shell]]))
 
 (defn- get-dicts
@@ -46,7 +47,8 @@
   "List missing translations for a given language"
   [& args]
   (let [lang (or (keyword (first args))
-                 (task-util/print-usage "LOCALE"))
+                 (task-util/print-usage "LOCALE [--copy]"))
+        options (cli/parse-opts (rest args) {:coerce {:copy :boolean}})
         _ (when-not (contains? (get-languages) lang)
             (println "Language" lang "does not have an entry in dicts.cljs")
             (System/exit 1))
@@ -60,16 +62,21 @@
                          all-dicts)]
     (if (every? (comp zero? count first) all-missing)
       (println "Language" lang "is fully translated!")
-      (->> all-missing
-           (mapcat (fn [[m file]]
-                     (map (fn [[k v]]
-                            {:translation-key k
-                             ;; Shorten values
-                             :string-to-translate (shorten v 50)
-                             :file file})
-                          m)))
-           (sort-by (juxt :file :translation-key))
-           task-util/print-table))))
+      (let [sorted-missing (->> all-missing
+                                (mapcat (fn [[m file]]
+                                          (map (fn [[k v]]
+                                                 {:translation-key k
+                                                  ;; Shorten values
+                                                  :string-to-translate (shorten v 50)
+                                                  :file file})
+                                               m)))
+                                (sort-by (juxt :file :translation-key)))]
+        (if (:copy options)
+          (doseq [[file missing-for-file] (group-by :file sorted-missing)]
+            (println "\n;; For" file)
+            (doseq [{:keys [translation-key string-to-translate]} missing-for-file]
+              (println translation-key (pr-str string-to-translate))))
+          (task-util/print-table sorted-missing))))))
 
 (defn- validate-non-default-languages
   "This validation finds any translation keys that don't exist in the default