From 7e2d813cfe3b7d57b5e699e757bfabd8313d4995 Mon Sep 17 00:00:00 2001 From: ntakahas Date: Fri, 23 Mar 2007 07:07:11 +0000 Subject: [PATCH] Enable Repaya. --- si-wijesekera.mim | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) diff --git a/si-wijesekera.mim b/si-wijesekera.mim index cc009dd..c54e295 100644 --- a/si-wijesekera.mim +++ b/si-wijesekera.mim @@ -299,26 +299,26 @@ This input method requires surrounding text support. ((> c 0) (insert c)))) -;; Repaya is disabled. -;; ("~" -;; (set c @-1) -;; (cond -;; ((| (= c 0x0DD9) (= c 0x0DDB)) -;; (delete @-1)) -;; (1 -;; (set c 0))) -;; (backward) -;; (cond -;; ((& (>= @-1 0x0D9A) (<= @-1 0x0DC6)) -;; (set c1 @-1) -;; (delete @-1) -;; (insert c1) -;; (move @<) -;; 0x0DBB 0x0DCA 0x200D)) -;; (cond -;; ((> c 0) -;; (move @>) -;; (insert c)))) + ;; Repaya is disabled. + ("~" + (set c @-1) + (cond + ((| (= c 0x0DD9) (= c 0x0DDB)) + (delete @-1)) + (1 + (set c 0))) + (backward) + (cond + ((& (>= @-1 0x0D9A) (<= @-1 0x0DC6)) + (set c1 @-1) + (delete @-1) + (insert c1) + (move @<) + 0x0DBB 0x0DCA 0x200D)) + (cond + ((> c 0) + (move @>) + (insert c)))) ((BackSpace) (delete-preceding-zw) -- 1.7.10.4