;;; cyrillic.el --- Addon for quail package for inputting Cyrillic characters

;;; Commentary:

;;; Added cyrillic-russian cyrillic-russian-ms (analog cyrillic-jcuken)
;;; Modifed cyrillic-ukrainian cyrillic-ukrainian-ms (analog cyrillic-jcuken)

;;; Code:

(require 'quail)

(quail-define-package
 "cyrillic-russian" "Cyrillic" ",L6(BRl" nil
 ",L9FC:5=(B keyboard layout widely used in Russia  (Linux)"
 nil t t t t nil nil nil nil nil t)

;;  1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ =+ ,L!(B
;;   ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,Lj(B
;;    ,LD(B  ,LK(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B ,L6(B  ,LM(B
;;     ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B  /?

(quail-define-rules
 ("1" ?1)
 ("2" ?2)
 ("3" ?3)
 ("4" ?4)
 ("5" ?5)
 ("6" ?6)
 ("7" ?7)
 ("8" ?8)
 ("9" ?9)
 ("0" ?0)
 ("-" ?-)
 ("=" ?=)
 ("`" ?,Lq(B)  ("~~" ?~)
 ("q" ?,LY(B)
 ("w" ?,Lf(B)
 ("e" ?,Lc(B)
 ("r" ?,LZ(B)
 ("t" ?,LU(B)
 ("y" ?,L](B)
 ("u" ?,LS(B)
 ("i" ?,Lh(B)
 ("o" ?,Li(B)
 ("p" ?,LW(B)
 ("[" ?,Le(B)
 ("]" ?,Lj(B)
 ("a" ?,Ld(B)
 ("s" ?,Lk(B)
 ("d" ?,LR(B)
 ("f" ?,LP(B)
 ("g" ?,L_(B)
 ("h" ?,L`(B)
 ("j" ?,L^(B)
 ("k" ?,L[(B)
 ("l" ?,LT(B)
 (";" ?,LV(B)
 ("'" ?,Lm(B)
 ("\\" ?\\) ("\\\\" ?\\)
 ("z" ?,Lo(B)
 ("x" ?,Lg(B)
 ("c" ?,La(B)
 ("v" ?,L\(B)
 ("b" ?,LX(B)
 ("n" ?,Lb(B)
 ("m" ?,Ll(B)
 ("," ?,LQ(B)
 ("." ?,Ln(B)
 ("/" ?/)
 
 ("!" ?!)
 ("@" ?\")
 ("#" ?') ("##" ?#)
 ("$" ?*)
 ("%" ?:)
 ("^" ?,)
 ("&" ?.) ("&&" ?&)
 ("*" ?\;)
 ("(" ?()
  (")" ?))
 ("_" ?_)
 ("+" ?+)
 ("~" ?,L!(B) 
 ("Q" ?,L9(B)
 ("W" ?,LF(B)
 ("E" ?,LC(B)
 ("R" ?,L:(B)
 ("T" ?,L5(B)
 ("Y" ?,L=(B)
 ("U" ?,L3(B)
 ("I" ?,LH(B)
 ("O" ?,LI(B)
 ("P" ?,L7(B)
 ("{" ?,LE(B)
 ("}" ?,LJ(B)
 ("A" ?,LD(B)
 ("S" ?,LK(B)
 ("D" ?,L2(B)
 ("F" ?,L0(B)
 ("G" ?,L?(B)
 ("H" ?,L@(B)
 ("J" ?,L>(B)
 ("K" ?,L;(B)
 ("L" ?,L4(B)
 (":" ?,L6(B)
 ("\"" ?,LM(B)
 ("|" ?|)
 ("Z" ?,LO(B)
 ("X" ?,LG(B)
 ("C" ?,LA(B)
 ("V" ?,L<(B)
 ("B" ?,L8(B)
 ("N" ?,LB(B)
 ("M" ?,LL(B)
 ("<" ?,L1(B)  ("<<" ["<<"])
 (">" ?,LN(B)  (">>" [">>"])
 ("?" ??))

;;


(quail-define-package
 "cyrillic-ukrainian" "Cyrillic" ",L6(BUl" nil
 ",L9FC:5=3(B UKRAINIAN (Linux)

Sorry, but 'ghe with upturn' is not included in ISO 8859-5,
so we mimic it with 'gje'"
 nil t t t t nil nil nil nil nil t)

;; ,L#(B 1! 2" 3' 4* 5: 6, 7. 8; 9( 0) -_ += \|
;;     ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,L'(B
;;  	,LD(B  ,L&(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B  ,L6(B  ,L$(B
;;  	  ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B /?

(quail-define-rules
 ("`" ?,Ls(B)      ("~" ?,L#(B)   ("~~" ?~)
 ("1" ?1)      ("!" ?!)  
 ("2" ?2)      ("@" ?\") 
 ("3" ?3)      ("#" ?')   ("##" ?#)
 ("4" ?4)      ("$" ?*)  
 ("5" ?5)      ("%" ?:)  
 ("6" ?6)      ("^" ?,)  
 ("7" ?7)      ("&" ?.)  ("&&" ?&)
 ("8" ?8)      ("*" ?\;) 
 ("9" ?9)      ("(" ?\() 
 ("0" ?0)      (")" ?\))  
 ("-" ?-)      ("_" ?_)  
 ("=" ?=)      ("+" ?+)  
 ("\\" ?\\)    ("|" ?|)   ("\\\\" ?\\)

 ("q" ?,LY(B)      ("Q" ?,L9(B)
 ("w" ?,Lf(B)      ("W" ?,LF(B)
 ("e" ?,Lc(B)      ("E" ?,LC(B)
 ("r" ?,LZ(B)      ("R" ?,L:(B)
 ("t" ?,LU(B)      ("T" ?,L5(B)
 ("y" ?,L](B)      ("Y" ?,L=(B)
 ("u" ?,LS(B)      ("U" ?,L3(B)
 ("i" ?,Lh(B)      ("I" ?,LH(B)
 ("o" ?,Li(B)      ("O" ?,LI(B)
 ("p" ?,LW(B)      ("P" ?,L7(B)
 ("[" ?,Le(B)      ("{" ?,LE(B)
 ("]" ?,Lw(B)      ("}" ?,L'(B)

 ("a" ?,Ld(B)      ("A" ?,LD(B)
 ("s" ?,Lv(B)      ("S" ?,L&(B)
 ("d" ?,LR(B)      ("D" ?,L2(B)
 ("f" ?,LP(B)      ("F" ?,L0(B)
 ("g" ?,L_(B)      ("G" ?,L?(B)
 ("h" ?,L`(B)      ("H" ?,L@(B)
 ("j" ?,L^(B)      ("J" ?,L>(B)
 ("k" ?,L[(B)      ("K" ?,L;(B)
 ("l" ?,LT(B)      ("L" ?,L4(B)
 (";" ?,LV(B)      (":" ?,L6(B)
 ("'" ?,Lt(B)      ("\"" ?,L$(B)

 ("z" ?,Lo(B)      ("Z" ?,LO(B)
 ("x" ?,Lg(B)      ("X" ?,LG(B)
 ("c" ?,La(B)      ("C" ?,LA(B)
 ("v" ?,L\(B)      ("V" ?,L<(B)
 ("b" ?,LX(B)      ("B" ?,L8(B)
 ("n" ?,Lb(B)      ("N" ?,LB(B)
 ("m" ?,Ll(B)      ("M" ?,LL(B)
 ("," ?,LQ(B)      ("<" ?,L1(B)  ("<<" ["<<"])
 ("." ?,Ln(B)      (">" ?,LN(B)  (">>" [">>"])
 ("/" ?/)      ("?" ??))

;;

(quail-define-package
 "cyrillic-ukrainian-ms" "Cyrillic" ",L6(BUm" nil
 ",L9FC:5=3(B-MS UKRAINIAN (MS)

Sorry, but 'ghe with upturn' is not included in ISO 8859-5,
so we mimic it with 'gje'"
 nil t t t t nil nil nil nil nil t)

;; ,L#(B 1! 2" 3' 4; 5% 6: 7? 8* 9( 0) -_ += \|
;;     ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,L'(B
;;  	,LD(B  ,L&(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B  ,L6(B  ,L$(B
;;  	  ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B ,.

(quail-define-rules
 ("`" ?,Ls(B)      ("~" ?,L#(B)    ("~~" ?~)
 ("1" ?1)      ("!" ?!)  
 ("2" ?2)      ("@" ?\") 
 ("3" ?3)      ("#" ?')  ("##" ?#)
 ("4" ?4)      ("$" ?\;)  
 ("5" ?5)      ("%" ?%)  
 ("6" ?6)      ("^" ?:)  
 ("7" ?7)      ("&" ??)  ("&&" ?&)
 ("8" ?8)      ("*" ?*) 
 ("9" ?9)      ("(" ?\() 
 ("0" ?0)      (")" ?\))  
 ("-" ?-)      ("_" ?_)  
 ("=" ?=)      ("+" ?+)  
 ("\\" ?/)     ("|" ?|)  ("\\\\" ?\\)

 ("q" ?,LY(B)      ("Q" ?,L9(B)
 ("w" ?,Lf(B)      ("W" ?,LF(B)
 ("e" ?,Lc(B)      ("E" ?,LC(B)
 ("r" ?,LZ(B)      ("R" ?,L:(B)
 ("t" ?,LU(B)      ("T" ?,L5(B)
 ("y" ?,L](B)      ("Y" ?,L=(B)
 ("u" ?,LS(B)      ("U" ?,L3(B)
 ("i" ?,Lh(B)      ("I" ?,LH(B)
 ("o" ?,Li(B)      ("O" ?,LI(B)
 ("p" ?,LW(B)      ("P" ?,L7(B)
 ("[" ?,Le(B)      ("{" ?,LE(B)
 ("]" ?,Lw(B)      ("}" ?,L'(B)

 ("a" ?,Ld(B)      ("A" ?,LD(B)
 ("s" ?,Lv(B)      ("S" ?,L&(B)
 ("d" ?,LR(B)      ("D" ?,L2(B)
 ("f" ?,LP(B)      ("F" ?,L0(B)
 ("g" ?,L_(B)      ("G" ?,L?(B)
 ("h" ?,L`(B)      ("H" ?,L@(B)
 ("j" ?,L^(B)      ("J" ?,L>(B)
 ("k" ?,L[(B)      ("K" ?,L;(B)
 ("l" ?,LT(B)      ("L" ?,L4(B)
 (";" ?,LV(B)      (":" ?,L6(B)
 ("'" ?,Lt(B)      ("\"" ?,L$(B)

 ("z" ?,Lo(B)      ("Z" ?,LO(B)
 ("x" ?,Lg(B)      ("X" ?,LG(B)
 ("c" ?,La(B)      ("C" ?,LA(B)
 ("v" ?,L\(B)      ("V" ?,L<(B)
 ("b" ?,LX(B)      ("B" ?,L8(B)
 ("n" ?,Lb(B)      ("N" ?,LB(B)
 ("m" ?,Ll(B)      ("M" ?,LL(B)
 ("," ?,LQ(B)      ("<" ?,L1(B)  ("<<" ["<<"])
 ("." ?,Ln(B)      (">" ?,LN(B)  (">>" [">>"])
 ("/" ?.)      ("?" ?,))

;;

(quail-define-package
 "cyrillic-russian-ms" "Cyrillic" ",L6(BRm" nil
 ",L9FC:5=3(B-MS RUSSIAN (MS)"
 nil t t t t nil nil nil nil nil t)

;; ,L!(B 1! 2" 3# 4; 5% 6: 7? 8* 9( 0) -_ += \|
;;     ,L9(B  ,LF(B  ,LC(B  ,L:(B  ,L5(B  ,L=(B  ,L3(B  ,LH(B  ,LI(B  ,L7(B  ,LE(B  ,LJ(B
;;  	,LD(B  ,LK(B  ,L2(B  ,L0(B  ,L?(B  ,L@(B  ,L>(B  ,L;(B  ,L4(B  ,L6(B  ,LM(B
;;  	  ,LO(B  ,LG(B  ,LA(B  ,L<(B  ,L8(B  ,LB(B  ,LL(B  ,L1(B  ,LN(B ,.

(quail-define-rules
 ("`" ?,Lq(B)      ("~" ?,L!(B)     ("~~" ?~)
 ("1" ?1)      ("!" ?!)  
 ("2" ?2)      ("@" ?\")    
 ("3" ?3)      ("#" ?')      ("##" ?#)
 ("4" ?4)      ("$" ?\;)  
 ("5" ?5)      ("%" ?%)  
 ("6" ?6)      ("^" ?:)  
 ("7" ?7)      ("&" ??)     ("&&" ?&)
 ("8" ?8)      ("*" ?*) 
 ("9" ?9)      ("(" ?\() 
 ("0" ?0)      (")" ?\))  
 ("-" ?-)      ("_" ?_)  
 ("=" ?=)      ("+" ?+)  
 ("\\" ?/)     ("|" ?|)     ("\\\\" ?\\)

 ("q" ?,LY(B)      ("Q" ?,L9(B)
 ("w" ?,Lf(B)      ("W" ?,LF(B)
 ("e" ?,Lc(B)      ("E" ?,LC(B)
 ("r" ?,LZ(B)      ("R" ?,L:(B)
 ("t" ?,LU(B)      ("T" ?,L5(B)
 ("y" ?,L](B)      ("Y" ?,L=(B)
 ("u" ?,LS(B)      ("U" ?,L3(B)
 ("i" ?,Lh(B)      ("I" ?,LH(B)
 ("o" ?,Li(B)      ("O" ?,LI(B)
 ("p" ?,LW(B)      ("P" ?,L7(B)
 ("[" ?,Le(B)      ("{" ?,LE(B)
 ("]" ?,Lj(B)      ("}" ?,LJ(B)

 ("a" ?,Ld(B)      ("A" ?,LD(B)
 ("s" ?,Lk(B)      ("S" ?,LK(B)
 ("d" ?,LR(B)      ("D" ?,L2(B)
 ("f" ?,LP(B)      ("F" ?,L0(B)
 ("g" ?,L_(B)      ("G" ?,L?(B)
 ("h" ?,L`(B)      ("H" ?,L@(B)
 ("j" ?,L^(B)      ("J" ?,L>(B)
 ("k" ?,L[(B)      ("K" ?,L;(B)
 ("l" ?,LT(B)      ("L" ?,L4(B)
 (";" ?,LV(B)      (":" ?,L6(B)
 ("'" ?,Lm(B)      ("\"" ?,LM(B)

 ("z" ?,Lo(B)      ("Z" ?,LO(B)
 ("x" ?,Lg(B)      ("X" ?,LG(B)
 ("c" ?,La(B)      ("C" ?,LA(B)
 ("v" ?,L\(B)      ("V" ?,L<(B)
 ("b" ?,LX(B)      ("B" ?,L8(B)
 ("n" ?,Lb(B)      ("N" ?,LB(B)
 ("m" ?,Ll(B)      ("M" ?,LL(B)
 ("," ?,LQ(B)      ("<" ?,L1(B)  ("<<" ["<<"])
 ("." ?,Ln(B)      (">" ?,LN(B)  (">>" [">>"])
 ("/" ?.)      ("?" ?,))

;;


;; Local Variables:
;; buffer-file-coding-system: iso-2022-7bit
;; End:

;;; cyrillic.el ends here