diff options
| -rw-r--r-- | thogai.el | 9 |
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))) |