aboutsummaryrefslogtreecommitdiff
path: root/thogai.el
diff options
context:
space:
mode:
Diffstat (limited to 'thogai.el')
-rw-r--r--thogai.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/thogai.el b/thogai.el
index 3936bc7..7637ab4 100644
--- a/thogai.el
+++ b/thogai.el
@@ -258,6 +258,15 @@ External callers should always pass nil as the value."
(concat (string-remove-prefix "{" (string-remove-suffix "^}" translation))
"{^}")
non-first-part-p))
+ ;; Carry capitalization.
+ ((pred (lambda (str)
+ (string-prefix-p "{~|" str)))
+ (let ((capitalization-state thogai-capitalize-next-word))
+ (let ((thogai-capitalize-next-word nil))
+ (thogai-insert-translation
+ (string-remove-prefix "{~|" (string-remove-suffix "}" translation))
+ non-first-part-p))
+ (setq thogai-capitalize-next-word capitalization-state)))
;; Glue operator
((pred (lambda (str)
(string-prefix-p "{&" str)))