about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-06-16 01:44:25 +0530
committerArun Isaac2022-06-16 01:44:25 +0530
commit3763e656e21bda0cc5f6cd60a9225cf2de2b25fb (patch)
tree13d510f5f9309a4c63cff707ce66e5d2d410b806
parenta6b171c122388e07aa3b70b71a1a761221b6713a (diff)
downloadthogai-3763e656e21bda0cc5f6cd60a9225cf2de2b25fb.tar.gz
thogai-3763e656e21bda0cc5f6cd60a9225cf2de2b25fb.tar.lz
thogai-3763e656e21bda0cc5f6cd60a9225cf2de2b25fb.zip
Implement capitalization carry suffix.
* thogai.el (thogai-insert-translation): Implement capitalization
carry suffix.
-rw-r--r--thogai.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/thogai.el b/thogai.el
index 7637ab4..06db17c 100644
--- a/thogai.el
+++ b/thogai.el
@@ -267,6 +267,11 @@ External callers should always pass nil as the value."
              (string-remove-prefix "{~|" (string-remove-suffix "}" translation))
              non-first-part-p))
           (setq thogai-capitalize-next-word capitalization-state)))
+       ;; Suffix and carry capitalization.
+       ((pred (lambda (str)
+                (string-prefix-p "{^~|" str)))
+        (thogai-insert-translation
+         (concat "{^}{" (string-remove-prefix "{^" translation))))
        ;; Glue operator
        ((pred (lambda (str)
                 (string-prefix-p "{&" str)))