Implement translations that simulate keypresses.

* thogai.el (thogai-insert-translation): Implement translations that
simulate keypresses.

1 files changed, 17 insertions, 0 deletions

diff --git a/thogai.el b/thogai.el
index daa9372..3039583 100644
--- a/thogai.el
+++ b/thogai.el
@@ -347,6 +347,23 @@ External callers should always pass nil as the value."
         (save-excursion
           (left-word)
           (delete-char -1)))
+       ;; Key
+       ((pred (lambda (translation)
+                (member (downcase translation)
+                        (list "{#left}" "{#right}" "{#up}" "{#down}"
+                              "{#backspace}" "{#delete}" "{#return}"
+                              "{#space}" "{#tab}"))))
+        (call-interactively
+         (key-binding
+          (kbd (pcase (downcase
+                       (string-remove-prefix
+                        "{#" (string-remove-suffix "}" translation)))
+                 ("backspace" "DEL")
+                 ("delete" "<deletechar>")
+                 ("return" "RET")
+                 ("space" "SPC")
+                 ("tab" "TAB")
+                 (key-name (concat "<" key-name ">")))))))
        ;; Simple literal translation
        (_
         (unless non-first-part-p