comparison leim/quail/latin-post.el @ 18716:25c391385880

Change titles of quail packages.

18715:d37ea94a4bb1

;; Author: TAKAHASHI Naoto <[e-mail]>

(require 'quail)

(quail-define-package
 "latin-1-postfix" "Latin-1" "1+" t
 "Latin-1 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Aa(B

 ("!/" ?,A!(B)
 ("<<" ?,A+(B)
 (">>" ?,A;(B))

(quail-define-package
 "latin-2-postfix" "Latin-2" "2+" t
 "Latin-2 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Ba(B

 ("z." ?,B?(B)
 ("z~" ?,B>(B)
 )

(quail-define-package
 "latin-3-postfix" "Latin-3" "3+" t
 "Latin-3 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Ca(B

 ("u~" ?,C}(B)
 ("z." ?,C?(B)
 )

(quail-define-package
 "latin-4-postfix" "Latin-4" "4+" t
 "Latin-4 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Da(B

 ("u-" ?,D~(B)
 ("z~" ?,D>(B)
 )

(quail-define-package
 "latin-5-postfix" "Latin-5" "5+" t
 "Latin-5 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Ma(B

 ("u`" ?,My(B)
 ("y\"" ?,M(B)
 )

(quail-define-package
 "danish-postfix" "Latin-1" "DA+" t
 "Danish input method (rule: AE -> ,AF(B, OE -> ,AX(B, AA -> ,AE(B, E' -> ,AI(B)"
 nil t)

(quail-define-rules
 ("AE" ?,AF(B)

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "esperanto-postfix" "Latin-3" "EO+" t
 "Esperanto input method with postfix modifiers

Preceding ^ or following x will produce accented characters,
e.g. ^C -> ,CF(B, Gx -> ,CX(B.
" nil t)

 ("^u" ?,C}(B)
 ("~u" ?,C}(B)
 )

(quail-define-package
 "finnish-postfix" "Latin-1" "FI+" t
 "Finnish (Suomi) input method (rule: AE -> ,AD(B, OE -> ,AV(B)"
 nil t)

(quail-define-rules
 ("AE" ?,AD(B)

 ("OE" ?,AV(B)
 ("oe" ?,Av(B)
 )

(quail-define-package
 "french-postfix" "Latin-1" "FR+" t
 "French (Fran,Ag(Bais) input method with postfix modifiers

` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma.
Par exemple A` -> ,A@(B, E' -> ,AI(B.

 ("<<" ?,A+(B)
 (">>" ?,A;(B)
 )

(quail-define-package
 "german-postfix" "Latin-1" "DE+" t
 "German (Deutsch) input method (rule: AE -> ,AD(B, OE -> ,AV(B, UE -> ,A\(B, sz -> ,A_(B)

,A_(B can also be input by 'ss' followed by M-n."
 nil t)

 ("sz" ?,A_(B)
 ("ss" ["ss" ?,A_(B])
 )

(quail-define-package
 "icelandic-postfix" "Latin-1" "IS+" t
 "Icelandic (,AM(Bslenska) input method with postfix modifiers

A' -> ,AA(B
E' -> ,AI(B
I' -> ,AM(B

 ("T/" ?,A^(B)
 ("t/" ?,A~(B)
 )

(quail-define-package
 "italian-postfix" "Latin-1" "IT+" t
 "Italian (Italiano) input method with postfix modifiers

A` -> ,A@(B
E` -> ,AH(B
I` -> ,AL(B

 ("U`" ?,AY(B)
 ("u`" ?,Ay(B)
 )

(quail-define-package
 "norwegian-postfix" "Latin-1" "NO+" t
 "Norwegian (Norsk) input method (rule: AE->,AF(B, OE->,AX(B, AA->,AE(B, E'->,AI(B)"
 nil t)

(quail-define-rules
 ("AE" ?,AF(B)

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "scandinavian-postfix" "Latin-1" "SC+" t
 "Scandinavian input method (rule: AE->,AD(B/,AF(B, OE->,AV(B/,AX(B, AA->,AE(B, E'->,AI(B)

Supported languages are Swidish, Norwegian, Danish, and Finnish.

You can toggle between ,AD(B and ,AF(B, or between OE and ,AV(B, by typing M-n

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "spanish-postfix" "Latin-1" "ES+" t
 "Spanish (Espa,Aq(Bol) input method with postfix modifiers

A' -> ,AA(B
E' -> ,AI(B
I' -> ,AM(B

 ("?/" ?,A?(B)
 ("!/" ?,A!(B)
 )

(quail-define-package
 "swedish-postfix" "Latin-1" "SV" t
 "Swedish (Svenska) input method (rule: AA -> ,AE(B, AE -> ,AD(B, OE -> ,AV(B, E' -> ,AI(B)"
 nil t)

(quail-define-rules
 ("AA" ?,AE(B)

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "turkish-postfix" "Latin-3" "TR" t
 "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers

Note for I, ,C9(B, ,C)(B, i.

A^ -> ,CB(B

 ("U^" ?,C[(B)
 ("u^" ?,C{(B)
 )

(quail-define-package
 "british" "Latin-1" ",A#(B" t
 "British English input method with Latin-1 character ,A#(B (# -> ,A#(B)"
 nil t)

(quail-define-rules
 ("#" [?,A#(B ?#])

;;; 92.12.15  created for Mule Ver.0.9.6 by Takahashi N. <[e-mail]>
;;; 92.12.29  modified by Takahashi N. <[e-mail]>

;;
(quail-define-package
 "french-keyboard" "Latin-1" "Fr" t
 "French (Fran,Ag(Bais) input method simulating some French keyboard
<e dans l'o> n'est pas disponible." nil t t t t)

;; ,Aj(B1  ,Ai(B2  ,Ah(B3  ,At(B4  ,An(B5  ,Ao(B6  ,Ab(B7  ,A{(B8  ,Ay(B9  ,A`(B0  -_  ,Ak(B+  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AgG(B  ,A|(B&

 (">" ?\))
 )

;;
(quail-define-package
 "french-azerty" "Latin-1" "AZERTY" t
 "French (Fran,Ag(Bais) input method simulating Azerty keyboard

Similaire au clavier fran,Ag(Bais de SUN.
pr,Ai(Bfixes:  ^ pour circonflexe,  ,A((B pour tr,Ai(Bma.
<e dans l'o> n'est pas disponible." nil t t t t)

 ("{u" ?,A|(B)
 )

;;
(quail-define-package
 "icelandic-keyboard" "Latin-1" "Is" t
 "Icelandic (,AM(Bslenska) input method simulating some Icelandic keyboard

Dead accent is right to ,Af(B." nil t t t t)

;; 1!  2"  3#  4$  5%  6^  7&  8*  9(  0)  ,AvV(B  -_  `~

 ("'Y" ?,A](B)
 )

;;
(quail-define-package
 "danish-keyboard" "Latin-1" "Da" t
 "Danish input method simulating SUN Danish keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  ,A='(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "norwegian-keyboard" "Latin-1" "No" t
 "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  |,A'(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "swedish-keyboard" "Latin-1" "Sv" t
 "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  ,A'=(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "finish-keyboard" "Latin-1" "Fi" t
 "Finish input method simulating SUN Finnish/Swedish keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  ,A'=(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "german" "Latin-1" "De" t
 "German (Deutsch) input method simulating SUN German keyboard"
 nil t t t t)

;; 1!  2"  3,A'(B  4$  5%  6&  7/  8(  9)  0=  ,A_(B?  [{  ]}
;;  qQ  wW  eE  rR  tT  zZ  uU  iI  oO  pP  ,A|\(B  +*

 ("?" ?_)
 )

;;
(quail-define-package
 "italian-keyboard" "Latin-1" "It" t
 "Italian (Italiano) input method simulating SUN Italian keyboard"
 nil t t t t)

;; 1!  2"  3,A#(B  4$  5%  6&  7/  8(  9)  0=  '?  ,Al(B^  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,Ahi(B  +*

 ("?" ?_)
 )

;;
(quail-define-package
 "spanish-keyboard" "Latin-1" "Es" t
 "Spanish (Espa,Aq(Bol) input method simulating SUN Spanish keyboard"
 nil t t t t)

;; 1!  2"  3,A7(B  4$  5%  6&  7/  8(  9)  0=  '?  ,A!?(B  ,AmM(B
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AiI(B  ,AsS(B

 ("?" ?_)
 )

;;
(quail-define-package
 "english-dvorak" "English" "DV" t
 "English (ASCII) input method simulating Dvorak keyboard"
 nil t t t t)

;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  [{  ]}  `~
;;  '"  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  =+

18716:25c391385880

;; Author: TAKAHASHI Naoto <[e-mail]>

(require 'quail)

(quail-define-package
 "latin-1-postfix" "Latin-1" "1<" t
 "Latin-1 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Aa(B

 ("!/" ?,A!(B)
 ("<<" ?,A+(B)
 (">>" ?,A;(B))

(quail-define-package
 "latin-2-postfix" "Latin-2" "2<" t
 "Latin-2 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Ba(B

 ("z." ?,B?(B)
 ("z~" ?,B>(B)
 )

(quail-define-package
 "latin-3-postfix" "Latin-3" "3<" t
 "Latin-3 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Ca(B

 ("u~" ?,C}(B)
 ("z." ?,C?(B)
 )

(quail-define-package
 "latin-4-postfix" "Latin-4" "4<" t
 "Latin-4 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Da(B

 ("u-" ?,D~(B)
 ("z~" ?,D>(B)
 )

(quail-define-package
 "latin-5-postfix" "Latin-5" "5<" t
 "Latin-5 characters input method with postfix modifiers

    effect   | postfix | examples
 ------------+---------+----------
    acute    |    '    | a' -> ,Ma(B

 ("u`" ?,My(B)
 ("y\"" ?,M(B)
 )

(quail-define-package
 "danish-postfix" "Latin-1" "DA<" t
 "Danish input method (rule: AE -> ,AF(B, OE -> ,AX(B, AA -> ,AE(B, E' -> ,AI(B)"
 nil t)

(quail-define-rules
 ("AE" ?,AF(B)

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "esperanto-postfix" "Latin-3" "EO<" t
 "Esperanto input method with postfix modifiers

Preceding ^ or following x will produce accented characters,
e.g. ^C -> ,CF(B, Gx -> ,CX(B.
" nil t)

 ("^u" ?,C}(B)
 ("~u" ?,C}(B)
 )

(quail-define-package
 "finnish-postfix" "Latin-1" "FI<" t
 "Finnish (Suomi) input method (rule: AE -> ,AD(B, OE -> ,AV(B)"
 nil t)

(quail-define-rules
 ("AE" ?,AD(B)

 ("OE" ?,AV(B)
 ("oe" ?,Av(B)
 )

(quail-define-package
 "french-postfix" "Latin-1" "FR<" t
 "French (Fran,Ag(Bais) input method with postfix modifiers

` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr,Ai(Bma.
Par exemple A` -> ,A@(B, E' -> ,AI(B.

 ("<<" ?,A+(B)
 (">>" ?,A;(B)
 )

(quail-define-package
 "german-postfix" "Latin-1" "DE<" t
 "German (Deutsch) input method (rule: AE -> ,AD(B, OE -> ,AV(B, UE -> ,A\(B, sz -> ,A_(B)

,A_(B can also be input by 'ss' followed by M-n."
 nil t)

 ("sz" ?,A_(B)
 ("ss" ["ss" ?,A_(B])
 )

(quail-define-package
 "icelandic-postfix" "Latin-1" "IS<" t
 "Icelandic (,AM(Bslenska) input method with postfix modifiers

A' -> ,AA(B
E' -> ,AI(B
I' -> ,AM(B

 ("T/" ?,A^(B)
 ("t/" ?,A~(B)
 )

(quail-define-package
 "italian-postfix" "Latin-1" "IT<" t
 "Italian (Italiano) input method with postfix modifiers

A` -> ,A@(B
E` -> ,AH(B
I` -> ,AL(B

 ("U`" ?,AY(B)
 ("u`" ?,Ay(B)
 )

(quail-define-package
 "norwegian-postfix" "Latin-1" "NO<" t
 "Norwegian (Norsk) input method (rule: AE->,AF(B, OE->,AX(B, AA->,AE(B, E'->,AI(B)"
 nil t)

(quail-define-rules
 ("AE" ?,AF(B)

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "scandinavian-postfix" "Latin-1" "SC<" t
 "Scandinavian input method (rule: AE->,AD(B/,AF(B, OE->,AV(B/,AX(B, AA->,AE(B, E'->,AI(B)

Supported languages are Swidish, Norwegian, Danish, and Finnish.

You can toggle between ,AD(B and ,AF(B, or between OE and ,AV(B, by typing M-n

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "spanish-postfix" "Latin-1" "ES<" t
 "Spanish (Espa,Aq(Bol) input method with postfix modifiers

A' -> ,AA(B
E' -> ,AI(B
I' -> ,AM(B

 ("?/" ?,A?(B)
 ("!/" ?,A!(B)
 )

(quail-define-package
 "swedish-postfix" "Latin-1" "SV<" t
 "Swedish (Svenska) input method (rule: AA -> ,AE(B, AE -> ,AD(B, OE -> ,AV(B, E' -> ,AI(B)"
 nil t)

(quail-define-rules
 ("AA" ?,AE(B)

 ("E'" ?,AI(B)
 ("e'" ?,Ai(B)
 )

(quail-define-package
 "turkish-postfix" "Latin-3" "TR<" t
 "Turkish (T,C|(Brk,Cg(Be) input method with postfix modifiers

Note for I, ,C9(B, ,C)(B, i.

A^ -> ,CB(B

 ("U^" ?,C[(B)
 ("u^" ?,C{(B)
 )

(quail-define-package
 "british" "Latin-1" ",A#(B@" t
 "British English input method with Latin-1 character ,A#(B (# -> ,A#(B)"
 nil t)

(quail-define-rules
 ("#" [?,A#(B ?#])

;;; 92.12.15  created for Mule Ver.0.9.6 by Takahashi N. <[e-mail]>
;;; 92.12.29  modified by Takahashi N. <[e-mail]>

;;
(quail-define-package
 "french-keyboard" "Latin-1" "FR@" t
 "French (Fran,Ag(Bais) input method simulating some French keyboard
<e dans l'o> n'est pas disponible." nil t t t t)

;; ,Aj(B1  ,Ai(B2  ,Ah(B3  ,At(B4  ,An(B5  ,Ao(B6  ,Ab(B7  ,A{(B8  ,Ay(B9  ,A`(B0  -_  ,Ak(B+  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AgG(B  ,A|(B&

 (">" ?\))
 )

;;
(quail-define-package
 "french-azerty" "Latin-1" "AZ@" t
 "French (Fran,Ag(Bais) input method simulating Azerty keyboard

Similaire au clavier fran,Ag(Bais de SUN.
pr,Ai(Bfixes:  ^ pour circonflexe,  ,A((B pour tr,Ai(Bma.
<e dans l'o> n'est pas disponible." nil t t t t)

 ("{u" ?,A|(B)
 )

;;
(quail-define-package
 "icelandic-keyboard" "Latin-1" "IS@" t
 "Icelandic (,AM(Bslenska) input method simulating some Icelandic keyboard

Dead accent is right to ,Af(B." nil t t t t)

;; 1!  2"  3#  4$  5%  6^  7&  8*  9(  0)  ,AvV(B  -_  `~

 ("'Y" ?,A](B)
 )

;;
(quail-define-package
 "danish-keyboard" "Latin-1" "DA@" t
 "Danish input method simulating SUN Danish keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  ,A='(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "norwegian-keyboard" "Latin-1" "NO@" t
 "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  |,A'(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "swedish-keyboard" "Latin-1" "SV@" t
 "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  ,A'=(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "finish-keyboard" "Latin-1" "FI@" t
 "Finish input method simulating SUN Finnish/Swedish keyboard"
 nil t t t t)

;; 1!  2"  3#  4,A$(B  5%  6&  7/  8(  9)  0=  +?  ,A'=(B  ~^
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AeE(B  ,AiI(B

 ("?" ?_)
 )

;;
(quail-define-package
 "german" "Latin-1" "DE@" t
 "German (Deutsch) input method simulating SUN German keyboard"
 nil t t t t)

;; 1!  2"  3,A'(B  4$  5%  6&  7/  8(  9)  0=  ,A_(B?  [{  ]}
;;  qQ  wW  eE  rR  tT  zZ  uU  iI  oO  pP  ,A|\(B  +*

 ("?" ?_)
 )

;;
(quail-define-package
 "italian-keyboard" "Latin-1" "IT@" t
 "Italian (Italiano) input method simulating SUN Italian keyboard"
 nil t t t t)

;; 1!  2"  3,A#(B  4$  5%  6&  7/  8(  9)  0=  '?  ,Al(B^  `~
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,Ahi(B  +*

 ("?" ?_)
 )

;;
(quail-define-package
 "spanish-keyboard" "Latin-1" "ES@" t
 "Spanish (Espa,Aq(Bol) input method simulating SUN Spanish keyboard"
 nil t t t t)

;; 1!  2"  3,A7(B  4$  5%  6&  7/  8(  9)  0=  '?  ,A!?(B  ,AmM(B
;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  ,AiI(B  ,AsS(B

 ("?" ?_)
 )

;;
(quail-define-package
 "english-dvorak" "English" "DV@" t
 "English (ASCII) input method simulating Dvorak keyboard"
 nil t t t t)

;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  [{  ]}  `~
;;  '"  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  =+