From 0b7da648f555593c0eb0e587634f36081638583d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 14 Jun 2022 00:29:38 +0530
Subject: Implement infixes in terms of prefixes and the attach operator.

* thogai.el (thogai-insert-translation): Implement infixes in terms of
prefixes and the attach operator by calling thogai-insert-translation
recursively.
---
 thogai.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/thogai.el b/thogai.el
index 9dc5d25..933a565 100644
--- a/thogai.el
+++ b/thogai.el
@@ -248,9 +248,9 @@ External callers should always pass nil as the value."
        ((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))
+        (thogai-insert-translation
+         (concat "{^}{" (string-remove-prefix "{^" translation))
+         non-first-part-p))
        ;; Prefix
        ((pred (lambda (str)
                 (string-suffix-p "^}" str)))
-- 
cgit v1.2.3