[elpa] externals/org-translate 94f9307 15/19: [org-translate] New command ogt-term-display-translations

[Stefan Monnier]

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

    [org-translate] New command ogt-term-display-translations
    
    *
    packages/org-translate/org-translate.el (ogt-term-display-translations):
    Bound in the translation link keymap, for echoing the original and
    translation of the term link under point.
---
 org-translate.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/org-translate.el b/org-translate.el
index 66c9bca..0b908c1 100644
--- a/org-translate.el
+++ b/org-translate.el
@@ -293,6 +293,7 @@ fragilely, and deleted and re-set with abandon.")
 (defvar ogt-link-keymap
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "o") #'ogt-term-occur)
+    (define-key map (kbd "d") #'ogt-term-display-translations)
     map)
   "Keymap active on \"trans:\" type Org links.")
 
@@ -422,6 +423,19 @@ terms."
     ;; correctly in the sparse tree context.
     (occur (concat "trans:" id))))
 
+(defun ogt-term-display-translations ()
+  "Display original and translations for link under point."
+  (interactive)
+  (let ((bits (gethash
+              (org-element-property :path (org-element-context))
+              ogt-glossary-table)))
+    (message
+     (format
+      (concat
+       (mapconcat #'identity (alist-get 'source bits) ", ")
+       " : "
+       (mapconcat #'identity (alist-get 'translation bits) ", "))))))
+
 (defun ogt-prettify-segmenters (&optional begin end)
   "Add a display face to all segmentation characters.
 If BEGIN and END are given, prettify segmenters between those