Implement infix translations.

* thogai.el (thogai-insert-translation): Implement infix translations.

1 files changed, 7 insertions, 0 deletions

diff --git a/thogai.el b/thogai.el
index 60f25ef..195c914 100644
--- a/thogai.el
+++ b/thogai.el
@@ -233,6 +233,13 @@ callers should never pass non-nil SUBTRANSLATION."
        ;; Attach operator
        ("{^}"
         (setq thogai-attach-next t))
+       ;; Infix
+       ((pred (lambda (str)
+                (and (string-prefix-p "{^" str)
+                     (string-suffix-p "^}" str))))
+        (thogai-insert-literal
+         (string-remove-prefix "{^" (string-remove-suffix "^}" translation)))
+        (setq thogai-attach-next t))
        ;; Prefix
        ((pred (lambda (str)
                 (string-suffix-p "^}" str)))