[elpa] externals/org-translate 6e371e0: Use the region when adding a translation of a glossary item

[Eric Abrahamsen]

branch: externals/org-translate
commit 6e371e0dada894f6b8177d661f75766f4385cdc5
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Use the region when adding a translation of a glossary item
    
    * org-translate.el (ogt-insert-glossary-translation): If the user
    already has a translation in the buffer, just use that.
---
 org-translate.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/org-translate.el b/org-translate.el
index 81b8aa6..1b807e8 100644
--- a/org-translate.el
+++ b/org-translate.el
@@ -755,13 +755,19 @@ prefix arg to be prompted for the term to enter."
          (alist-get 'translation
                     (gethash glossary-id ogt-glossary-table))
          this-translation
-         (completing-read (format "Translation of %s: " orig)
-                          glossary-translation))
+         (if (use-region-p)
+             (buffer-substring (region-beginning)
+                               (region-end))
+           (completing-read (format "Translation of %s: " orig)
+                            glossary-translation)))
     (cl-pushnew
      this-translation
      (alist-get 'translation
                (gethash glossary-id ogt-glossary-table))
      :test #'equal)
+    (when (use-region-p)
+      (delete-region (region-beginning)
+                    (region-end)))
     (insert (format "[[trans:%s][%s]]" glossary-id this-translation))))
 
 (defun ogt-stop-translating (project-name)