Attachment 872 Details for Bug 6771 – раскладки с украинским, которыми я пользуюсь...

раскладки с украинским, которыми я пользуюсь...

cyrillic.el (text/plain), 8.79 KB, created by viy on 2005-05-09 20:44:25 MSD

(hide)

Description:

Filename:

MIME Type:

Creator: viy

Created: 2005-05-09 20:44:25 MSD

Size: 8.79 KB

patch

obsolete

>;;; 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

Actions: View

Attachments on bug 6771: 872