From a7a2c377df58f4a9b81c3a779c67c8c8dc57e981 Mon Sep 17 00:00:00 2001
From: ntakahas <ntakahas>
Date: Thu, 25 Nov 2010 11:35:47 +0000
Subject: [PATCH] Update by the author.

---
 im/hi-vedmata.mim |   80 +++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 60 insertions(+), 20 deletions(-)

diff --git a/im/hi-vedmata.mim b/im/hi-vedmata.mim
index b26a877..23bf005 100644
--- a/im/hi-vedmata.mim
+++ b/im/hi-vedmata.mim
@@ -1,3 +1,4 @@
+
 ;; hi-vedmata.mim -- Hindi input method with Remington method
 ;; Copyright (C) 2010  Shantikunj, Haridwar, UK, INDIA <www.awgp.org>
 ;; This file is part of the m17n contrib; a sub-part of the m17n
@@ -24,7 +25,7 @@
 
 
 
-(title "वेदमाता हिन्दी")
+(title "वेदमाता हिन्दी - Remington")
 
 (map
 	(starter
@@ -66,42 +67,72 @@
 	)
 	(setFullChar
 		("e" "म" (insert C))
+		("ez" "म्र" (insert C))
 		("r"  "त" (insert C))
+		("rz"  "त्र" (insert C))
 		("t"  "ज" (insert C))
+		("tz"  "ज्र" (insert C))
 		("iQ"  "फ" (insert C))
+		("iQz"  "फ्र" (insert C))
 		("y" "ल" (insert C))
+		("yz" "ल्र" (insert C))
 		("u" "न" (insert C))
+		("uz" "न्र" (insert C))
 		("i"  "प" (insert C))
+		("iz"  "प्र" (insert C))
 		("o"  "व" (insert C))
+		("oz"  "व्र" (insert C))
 		("p" "च" (insert C))
+		("pz" "च्र" (insert C))
 		("d" "क" (insert C))
+		("dz" "क्र" (insert C))
 		("G" "ळ" (insert C))
 		("g" "ह" (insert C))
+		("gz" "ह्र" (insert C))
 		("j" "र" (insert C))
 		("l" "स" (insert C))
+		("lz" "स्र" (insert C))
 		(";"    "य" (insert C))
+		(";z"  "य्र" (insert C))
 		("x"  "ग" (insert C))
+		("xz"  "ग्र" (insert C))
 		("c"  "ब" (insert C))
+		("cz"  "ब्र" (insert C))
 		("V"  "ट" (insert C))
+		("Vz"  "ट्र" (insert C))
 		("B"  "ठ" (insert C))
+		("Bz"  "ठ्र" (insert C))
 		("b"  "इ" (insert C))
 		("N"  "छ" (insert C))
+		("Nz"  "छ्र" (insert C))
 		("n"  "द" (insert C))
+		("nz"  "द्र" (insert C))
 		("M"  "ड" (insert C))
+		("Mz"  "ड्र" (insert C))
 		("m"  "उ" (insert C))
 		("<"  "ढ" (insert C))
+		("<z"  "ढ्र" (insert C))
 		(">"  "झ" (insert C))
+		(">z"  "झ्र" (insert C))
 		("{k"  "क्ष" (insert C))
 		("Hk"  "भ" (insert C))
+		("Hkz"  "भ्र" (insert C))
 		("Fk"  "थ" (insert C))
+		("Fkz"  "थ्र" (insert C))
 		("'k"  "श" (insert C))
+		("'kz"  "श्र" (insert C))
 		("\"k"  "ष" (insert C))
+		("\"kz"  "ष्र" (insert C))
 		(".k"  "ण" (insert C))
 		("/k"  "ध" (insert C))
+		("/kz"  "ध्र" (insert C))
 		("?k"  "घ" (insert C))
+		("?kz"  "घ्र" (insert C))
 		("[k"  "ख" (insert C))
+		("[kz"  "ख्र" (insert C))
 		("_"  "त्र" (insert C))
 		("J"  "श्र" (insert C))
+;;		("*"     "ञ" (insert C))
 		("K"  "ज्ञ" (insert C))
 		("x@"  "ॻ" (insert C))
 		("t@"  "ॼ" (insert C))
@@ -129,11 +160,11 @@
 		("c" (delete @-) (insert B) "ब"  (insert C))
 		("V" (delete @-) (insert B) "ट"  (insert C))
 		("B" (delete @-) (insert B) "ठ"  (insert C))
-		("b" (delete @-) (insert B) "इ"  (insert C))
+;;		("b" (delete @-) (insert B) "इ"  (insert C))
 		("N" (delete @-) (insert B) "छ"  (insert C))
 		("n" (delete @-) (insert B) "द"  (insert C))
 		("M" (delete @-) (insert B) "ड"  (insert C))
-		("m" (delete @-) (insert B) "उ"  (insert C))
+;;		("m" (delete @-) (insert B) "उ"  (insert C))
 		("<" (delete @-) (insert B) "ढ"  (insert C))
 		(">" (delete @-) (insert B) "झ"  (insert C))
 		("{k" (delete @-) (insert B) "क्ष"  (insert C))
@@ -142,7 +173,9 @@
 		("'k" (delete @-) (insert B) "श"  (insert C))
 		(".k" (delete @-) (insert B) "ण"  (insert C))
 		("\"k" (delete @-) (insert B) "ष" (insert C))
-		("[k" (delete @-) (insert B) "ख" (insert C))		
+	        ("[k" (delete @-) (insert B) "ख" (insert C))
+		("*" (delete @-) (insert B) "ञ" (insert C))
+
 	)
 	
 	(matra 
@@ -168,10 +201,10 @@
 		("z" "्र")
 		("@" " ॒")
 		("ka"  "ां")
-		("kW" "ा" (delete @-) "ॉ")
+		("kW" "ॉ")
 		("vW" "ॲ")
 		(",W" "ऍ")
-		("vkW" "अा" (delete @-)(delete @-) "ऑ")
+		("vkW" "ऑ")
 		("ha"  "ीं")
 		("sa"  "ें")
 		("Sa"  "ैं")
@@ -183,7 +216,9 @@
 		("SA"  "ैँ")
 		("qA"  "ुँ")
 		("wA"  "ूँ")
-
+		("~2"  "ॄ")
+		("~y"  "ॢ")
+		("~y2"  "ॣ")
 
 	)
 
@@ -203,22 +238,14 @@
 		("=" "०")
 	)
 
-;;	(symbol
-;;		("!" "!")
-;;		("@" "/")
-;;		("$" "+")
-;;		("&" "-")
-;;		("*" "ञ")
-;;		("(" ";")
-;;		("=" "त्र")
-;;		("]" ",")
-;;	)
 
 	(mainChar
 		("v" "अ")
+		("~v" "ऄ")
 		("vk" (delete @-) "आ")
 		("vsk" (delete @-) "ओ")
 		("vks" (delete @-) "ओ")
+		("~o" "ऒ")
 		("vSk" (delete @-) "औ")
 		("vkS" (delete @-) "औ")
 	)
@@ -245,12 +272,14 @@
 		("V" "ट")
 		("B" "ठ")
 		("b" "इ")
+		("bZ" "ई")
 		("N" "छ")
 		("n" "द")
 		("M" "ड")
 		("m" "उ")
 		("<" "ढ")
 		("," "ए")
+		("~," "ऎ")
 		(",s" "ऐ")
 		(">" "झ")
 		("{k" "क्ष")
@@ -271,6 +300,8 @@
 		("+22" "ॠ") 
 		("~y" "ऌ")
 		("~y2" "ॡ") 
+		("d~y" "कॢ")
+		("d~y2" "कॣ")
 
 		(")" "द्घ")
 		("}" "द्व")
@@ -279,7 +310,7 @@
 		("K" "ज्ञ")
 ;;		(":" "रू") 
 		(":" "ॐ") 
-		("~a" "ऽ")
+		("::" "卐")
 		("~a" "ऽ")
 		
 
@@ -312,13 +343,14 @@
 		("L" "स्" (set B @-1) )
 		("\"" "ष्" (set B @-1))
 		("'" "श्" (set B @-1))
-		("Z" "र्" (set B @-1))
+;;		("Z" "र्" (set B @-1))
 		("X" "ग्" (set B @-1))
 		("C" "ब्" (set B @-1))
 		("." "ण्" (set B @-1))
 		("?" "घ्" (set B @-1))
 		("/" "ध्" (set B @-1))
 		("[" "ख्" (set B @-1))
+		("*`" "ञ्" (set B @-1))
 
 	)
 	(halfChar
@@ -344,9 +376,13 @@
 		("?" "घ्")
 		("/" "ध्")
 		("[" "ख्")
+		("*`" "ञ्")
 		
 	)
 
+;;	(rChar
+;;		("Z" "र्" (set A1 @-) (set A2 @-1) (set A3 @-2)(set A4 @-3)(delete @-) (delete @-1)(delete @-1)(insert A3)(insert A2)(insert A4)) 
+;;	)
 	(jointChar
 
 		(")" "द्घ")
@@ -377,6 +413,7 @@
 
 
 	(intermediate
+;;		(rChar (shift intermediate))
 		(matra (shift intermediate))
 		(chotiMatra (delete @-) (shift third))
 		(mainChar (shift intermediate))
@@ -398,13 +435,16 @@
 	(fourth
 		(setHalfChar (shift intermediate))
 	)
-	
+	(fifth 
+		(setrChar (shift intermediate))
+	)
 	(second
 		(mainChar (shift intermediate))
 		(fullChar (shift intermediate))
 		(halfChar (shift intermediate))
 		(matra (shift intermediate))
 		(jointChar (shift intermediate))
+;;		(rChar (shift intermediate))
 		(backspace)
 		(return (shift init))
 	)
-- 
1.7.10.4