From e44e820cef9f05d711bbe54881bd221dd713466c Mon Sep 17 00:00:00 2001 From: ntakahas Date: Thu, 25 Sep 2008 10:48:20 +0000 Subject: [PATCH] Remove any requirement for surrounding text support. --- im/si-phonetic-static.mim | 57 ++++++++++++++------------------------------- 1 file changed, 18 insertions(+), 39 deletions(-) diff --git a/im/si-phonetic-static.mim b/im/si-phonetic-static.mim index 85bbd60..552aae1 100644 --- a/im/si-phonetic-static.mim +++ b/im/si-phonetic-static.mim @@ -1,7 +1,24 @@ ;; si-phonetic-static.mim -- Sinhala phonetic static keymap +;; Copyright (C) 2006-2008 Harshula Jayasuriya + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License +;; as published by the Free Software Foundation; either version 2 +;; of the License, or (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; if not, write to the Free Software +;; Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + ;; m17n Keymap file for Sinhala (Sri Lanka) (2006-04-26) ;; Maintainer: Harshula Jayasuriya -;; Last Updated: 2007-07-08 +;; Last Updated: 2008-09-10 ;; This is a phonetic static mapping for a standard US-English keyboard ;; (qwerty) ;; http://www.nongnu.org/sinhala/doc/keymaps/sinhala-keyboard_3.html @@ -109,47 +126,9 @@ ((S-\ ) " ") ; 0x00a0 - no-break space ((A-\ ) "‌") ; 0x200c - ZWNJ - ((BackSpace) - (cond - ;; rakaaranshaya and yansaya - ((| (= @-1 0x0DBA) (= @-1 0x0DBB)) - (delete @-1) - (delete-al-zwj) - ) - ;; touch - ((& (= @-2 0x200D) (= @-1 0x0DCA)) - (delete @-2) - ) - ;; join - ((= @-1 0x200D) - (delete-al-zwj) - ) - (1 - (delete @-1) - ) - ) - ) - ) ) -(macro - (delete-al-zwj - (cond - ((& (= @-2 0x0DCA) (= @-1 0x200D)) - (delete @-2) - ;; repaya - (cond - ((= @-1 0x0DBB) - (delete @-1) - ) - ) - ) - ) - ) - -) - (state (init (phon) -- 1.7.10.4