(cyrillic-translit): New input method.

diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 31973a5b82f35134e317f1d886d06b3c0a6fd3a3..9accf5ad5fd313e70cebfbcd3a737cf2644c0f21 100644 (file)
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -829,3 +829,68 @@ as follows.
  ("/A" ?\e,L,\e(B)
  ("/S" ?\e,L.\e(B)
  ("/D" ?\e,L/\e(B))
+
+;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>.
+
+(quail-define-package
+ "cyrillic-translit" "Cyrillic" "\e,A6\e(Bt" nil
+ "Intuitively transliterated keybooard layout.
+Most convenient for entering Russian but all cyrillic characters are included.
+Should handle most cases. However:
+  for TSE use \"c\", never \"ts\"
+  SHCHA = Bulgarian SHT = \"shch\", \"sj\", \"\\sht\" or \"\\t\",
+  REVERSE ROUNDED E = \"e'\" or \"e`\"
+  KHA when after  \"c,s,z\" = \"x\" or \"kh\"
+  HARD SIGN = \"~\", CAPITAL HARD SIGN = \"~~\",
+  SOFT SIGN = \"'\", CAPITAL SOFT SIGN = \"''\".
+
+Also included are Ukranian YE = \"\\e\" and YI = \"yi\", 
+Belorussian SHORT U = \"u'\",
+Serbocroatian DJE = \"\\d\", CHJE= \"\\ch\", 
+Macedonian GJE = \"\\g\", DZE = \"\\s\", KJE = \"\\k\",
+cyrillic I DECIMAL = \"\\i\", JE = \"\\j\", LJE = \"\\l\", NJE = \"\\n\" and DZE =\"\\z\"."
+ nil t t t t)
+
+(quail-define-rules
+ ("a" ?\e,AP\e(B)("b" ?\e,AQ\e(B) ("v" ?\e,AR\e(B) ("w" ?\e,AR\e(B) ("g" ?\e,AS\e(B) ("d" ?\e,AT\e(B) 
+ ("e" ?\e,AU\e(B) ("je" ?\e,AU\e(B) ("je" ?\e,AU\e(B)
+ ("yo" ?\e,Aq\e(B) ("jo" ?\e,Aq\e(B)
+ ("zh" ?\e,AV\e(B) ("z" ?\e,AW\e(B) ("i" ?\e,AX\e(B) 
+ ("j" ?\e,AY\e(B) ("j'" ?\e,AY\e(B) ("j`" ?\e,AY\e(B) ("k" ?\e,AZ\e(B) ("l" ?\e,A[\e(B)
+ ("m" ?\e,A\\e(B) ("n" ?\e,A]\e(B) ("o" ?\e,A^\e(B) ("p" ?\e,A_\e(B) ("r" ?\e,A`\e(B) ("s" ?\e,Aa\e(B) ("t" ?\e,Ab\e(B) ("u" ?\e,Ac\e(B)
+ ("f" ?\e,Ad\e(B) ("x" ?\e,Ae\e(B) ("h" ?\e,Ae\e(B) ("kh" ?\e,Ae\e(B)
+ ("c" ?\e,Af\e(B) ("ch" ?\e,Ag\e(B)
+ ("sh" ?\e,Ah\e(B) 
+; ("w" ?\e,Ai\e(B) ("q" ?\e,Ai\e(B) 
+ ("shch" ?\e,Ai\e(B) ("sj" ?\e,Ai\e(B) 
+ ("\\sht" ?\e,Ai\e(B) ("\\t" ?\e,Ai\e(B) 
+ ("~" ?\e,Aj\e(B) ("y" ?\e,Ak\e(B) ("'" ?\e,Al\e(B) ("`" ?\e,Al\e(B) 
+ ("e'" ?\e,Am\e(B) ("e`" ?\e,Am\e(B) ("@" ?\e,Am\e(B) 
+ ("yu" ?\e,An\e(B) ("ju" ?\e,An\e(B) 
+ ("ya" ?\e,Ao\e(B) ("ja" ?\e,Ao\e(B)
+
+ ("A" ?\e,A0\e(B) ("B" ?\e,A1\e(B) ("V" ?\e,A2\e(B) ("W" ?\e,A2\e(B) ("G" ?\e,A3\e(B) ("D" ?\e,A4\e(B) 
+ ("E" ?\e,A5\e(B) ("Je" ?\e,A5\e(B) ("JE" ?\e,A5\e(B)
+ ("Yo" ?\e,A!\e(B) ("YO" ?\e,A!\e(B) ("Jo" ?\e,A!\e(B) ("JO" ?\e,A!\e(B) 
+ ("Zh" ?\e,A6\e(B) ("ZH" ?\e,A6\e(B) ("Z" ?\e,A7\e(B) ("I" ?\e,A8\e(B) 
+ ("J" ?\e,A9\e(B) ("J'" ?\e,A9\e(B) ("J`" ?\e,A9\e(B) ("K" ?\e,A:\e(B) ("L" ?\e,A;\e(B)
+ ("M" ?\e,A<\e(B) ("N" ?\e,A=\e(B) ("O" ?\e,A>\e(B) ("P" ?\e,A?\e(B) ("R" ?\e,A@\e(B) ("S" ?\e,AA\e(B) ("T" ?\e,AB\e(B) ("U" ?\e,AC\e(B)
+ ("F" ?\e,AD\e(B) ("X" ?\e,AE\e(B) ("H" ?\e,AE\e(B) ("Kh" ?\e,AE\e(B) ("KH" ?\e,AE\e(B)
+ ("C" ?\e,AF\e(B) ("Ch" ?\e,AG\e(B) ("CH" ?\e,AG\e(B) 
+ ("Sh" ?\e,AH\e(B) ("SH" ?\e,AH\e(B) 
+; ("W" ?\e,AI\e(B) ("Q" ?\e,AI\e(B) 
+ ("Shch" ?\e,AI\e(B) ("SHCH" ?\e,AI\e(B) ("Sj" ?\e,AI\e(B) ("SJ" ?\e,AI\e(B) 
+ ("\\Sht" ?\e,AI\e(B) ("\\SHT" ?\e,AI\e(B) ("\\T" ?\e,AI\e(B) 
+ ("~~" "\e,AJ\e(B") ("Y" ?\e,AK\e(B) ("''" "\e,AL\e(B") ("E'" ?\e,AM\e(B) ("E`" ?\e,AM\e(B) 
+ ("Yu" ?\e,AN\e(B) ("YU" ?\e,AN\e(B) ("Ju" ?\e,AN\e(B) ("JU" ?\e,AN\e(B) 
+ ("Ya" ?\e,AO\e(B) ("YA" ?\e,AO\e(B) ("Ja" ?\e,AO\e(B) ("JA" ?\e,AO\e(B) 
+
+ ("\\e" ?\e,At\e(B) ("yi" ?\e,Aw\e(B) ("u'" ?\e,A~\e(B)
+ ("\\d" ?\e,Ar\e(B) ("\\ch" ?\e,A{\e(B)
+ ("\\g" ?\e,As\e(B) ("\\s" ?\e,Au\e(B) ("\\k" ?\e,A|\e(B)
+ ("\\i" ?\e,Av\e(B) ("\\j" ?\e,Ax\e(B) ("\\l" ?\e,Ay\e(B) ("\\n" ?\e,Az\e(B) ("\\z" ?\e,A\7f\e(B)
+ ("\\E" ?\e,A$\e(B) ("YE" ?\e,A$\e(B) ("Yi" ?\e,A'\e(B) ("YI" ?\e,A'\e(B) ("U'" ?\e,A.\e(B) 
+ ("\\D" ?\e,A"\e(B) ("\\Ch" ?\e,A+\e(B) ("\\CH" ?\e,A+\e(B)
+ ("\\G" ?\e,A#\e(B) ("\\S" ?\e,A%\e(B) ("\\K" ?\e,A,\e(B) 
+ ("\\I" ?\e,A&\e(B) ("\\J" ?\e,A(\e(B) ("\\L" ?\e,A)\e(B) ("\\N" ?\e,A*\e(B) ("\\Z" ?\e,A/\e(B)
+)