Commit 8eaa3bc7 authored by Eli Zaretskii's avatar Eli Zaretskii

("greek-babel"): New input method. From David

Kastrup <David.Kastrup@neuroinformatik.ruhr-uni-bochum.de>.
parent eef9b65f
;;; greek.el --- Quail package for inputting Greek
;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*-
;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
......@@ -416,6 +416,268 @@ nil t t nil nil nil nil nil nil nil t)
;;
(quail-define-package "greek-babel" "Greek" "BG" t
"The TeX Babel input method for Classical Greek using mule-unicode-0100-24ff.
-------------------------------------
character capital small
-------------------------------------
alpha A a
beta B b
gamma G g
delta D d
epsilon E e
zeta Z z
eta H h
theta J j
iota I i
kappa K k
lamda L l
mu M m
nu N n
xi X x
omicron O o
pi P p
rho R r
sigma S s
final sigma c
tau T t
upsilon U u
phi F f
chi Q q
psi Y y
omega W w
-------------------------------------
sampi !
digamma #
stigma $
koppa & %
-------------------------------------
------------------------
mark key
------------------------
ypogegrammeni |
psili >
dasia <
oxia '
varia `
perispomeni ~
dialytika \"
ano teleia ;
erotimatiko ?
----------------------
"
nil t t nil nil nil nil nil nil nil t)
(quail-define-rules
("!" ?$,1'a(B) ; sampi
("#" ?$,1'\(B) ; DIGAMMA
("$" ?$,1'[(B) ; stigma
("%" ?$,1'_(B) ; koppa
("&" ?$,1'^(B) ; KOPPA
(">" ?$,1q(B) ; psili
("'" ?$,1r](B) ; oxia
(";" ?$,1&g(B) ; ano teleia
("?" ?$,1&^(B) ; erotimatiko
("\"" ?,A((B) ; dialytika
("|" ?$,1&Z(B) ; ypogegrammeni
("A" ?$,1&q(B)
("B" ?$,1&r(B)
("D" ?$,1&t(B)
("E" ?$,1&u(B)
("F" ?$,1'&(B)
("G" ?$,1&s(B)
("H" ?$,1&w(B)
("I" ?$,1&y(B)
("J" ?$,1&x(B)
("K" ?$,1&z(B)
("L" ?$,1&{(B)
("M" ?$,1&|(B)
("N" ?$,1&}(B)
("O" ?$,1&(B)
("P" ?$,1' (B)
("Q" ?$,1''(B)
("R" ?$,1'!(B)
("S" ?$,1'#(B)
("T" ?$,1'$(B)
("U" ?$,1'%(B)
("W" ?$,1')(B)
("X" ?$,1&~(B)
("Y" ?$,1'((B)
("Z" ?$,1&v(B)
("`" ?$,1rO(B) ; varia
("~" ?$,1r (B) ; perispomeni
("<" ?$,1r^(B) ; dasia
("a" ?$,1'1(B)
("a|" ?$,1qs(B)
("b" ?$,1'2(B)
("c" ?$,1'B(B)
("d" ?$,1'4(B)
("e" ?$,1'5(B)
("f" ?$,1'F(B)
("g" ?$,1'3(B)
("h" ?$,1'7(B)
("h|" ?$,1r#(B)
("i" ?$,1'9(B)
("j" ?$,1'8(B)
("k" ?$,1':(B)
("l" ?$,1';(B)
("m" ?$,1'<(B)
("n" ?$,1'=(B)
("o" ?$,1'?(B)
("p" ?$,1'@(B)
("q" ?$,1'G(B)
("r" ?$,1'A(B)
("s" ?$,1'C(B)
("t" ?$,1'D(B)
("u" ?$,1'E(B)
("w" ?$,1'I(B)
("w|" ?$,1rS(B)
("x" ?$,1'>(B)
("y" ?$,1'H(B)
("z" ?$,1'6(B)
("<i" ?$,1pQ(B)
(">i" ?$,1pP(B)
("'i" ?$,1q7(B)
("<`i" ?$,1pU(B)
(">'i" ?$,1pT(B)
("`i" ?$,1q6(B)
("<`i" ?$,1pS(B)
(">'i" ?$,1pR(B)
("~i" ?$,1r6(B)
("<~i" ?$,1pW(B)
(">'i" ?$,1pV(B)
("\"i" ?$,1'J(B)
("\"'i" ?$,1r3(B)
("\"`i" ?$,1r2(B)
("<~" ?$,1r?(B)
(">~" ?$,1r/(B)
("<`" ?$,1r>(B)
(">'" ?$,1r.(B)
("<`" ?$,1r=(B)
(">`" ?$,1r-(B)
("\"'" ?$,1rN(B)
("\"`" ?$,1rM(B)
("<e" ?$,1p1(B)
(">e" ?$,1p0(B)
("'e" ?$,1q3(B)
("<'e" ?$,1p5(B)
(">'e" ?$,1p4(B)
("`e" ?$,1q2(B)
("<`e" ?$,1p3(B)
(">`e" ?$,1p2(B)
("<a" ?$,1p!(B)
(">a" ?$,1p (B)
("'a" ?$,1q1(B)
("<'a" ?$,1p%(B)
(">'a" ?$,1p$(B)
("`a" ?$,1q0(B)
("<`a" ?$,1p#(B)
(">`a" ?$,1p"(B)
("~a" ?$,1qv(B)
("<~a" ?$,1p'(B)
(">~a" ?$,1p&(B)
("<a|" ?$,1qA(B)
(">a|" ?$,1q@(B)
("'a|" ?$,1qt(B)
("<'a|" ?$,1qE(B)
(">'a|" ?$,1qD(B)
("`a|" ?$,1qr(B)
("<`a|" ?$,1qC(B)
(">`a|" ?$,1qB(B)
("~a|" ?$,1qw(B)
("<~a|" ?$,1qG(B)
(">~a|" ?$,1qF(B)
("<r" ?$,1rE(B)
(">r" ?$,1rD(B)
("<h" ?$,1pA(B)
(">h" ?$,1p@(B)
("'h" ?$,1q5(B)
("<'h" ?$,1pE(B)
(">'h" ?$,1pD(B)
("`h" ?$,1q4(B)
("<`h" ?$,1pC(B)
(">`h" ?$,1pB(B)
("~h" ?$,1r&(B)
("<~h" ?$,1pG(B)
(">~h" ?$,1pF(B)
("|" ?$,1&Z(B) ; ypogegrammeni
("<h|" ?$,1qQ(B)
(">h|" ?$,1qP(B)
("'h|" ?$,1r$(B)
("<'h|" ?$,1qU(B)
(">'h|" ?$,1qT(B)
("`h|" ?$,1r"(B)
("<`h|" ?$,1qS(B)
(">`h|" ?$,1qR(B)
("~h|" ?$,1r'(B)
("<~h|" ?$,1qW(B)
(">~h|" ?$,1qV(B)
("<o" ?$,1pa(B)
(">o" ?$,1p`(B)
("'o" ?$,1q9(B)
("<'o" ?$,1pe(B)
(">'o" ?$,1pd(B)
("`o" ?$,1q8(B)
("<`o" ?$,1pc(B)
(">`o" ?$,1pb(B)
("<u" ?$,1pq(B)
(">u" ?$,1pp(B)
("'u" ?$,1q;(B)
("<'u" ?$,1pu(B)
(">'u" ?$,1pt(B)
("`u" ?$,1q:(B)
("<`u" ?$,1ps(B)
(">`u" ?$,1pr(B)
("~u" ?$,1rF(B)
("<~u" ?$,1pw(B)
(">~u" ?$,1pv(B)
("\"u" ?$,1'K(B)
("\"'u" ?$,1rC(B)
("`\"u" ?$,1rB(B)
("<w" ?$,1q!(B)
(">w" ?$,1q (B)
("'w" ?$,1q=(B)
("<'w" ?$,1q%(B)
(">'w" ?$,1q$(B)
("`w" ?$,1q<(B)
("<`w" ?$,1q#(B)
(">`w" ?$,1q"(B)
("~w" ?$,1rV(B)
("<~w" ?$,1q'(B)
(">~w" ?$,1q&(B)
("<w|" ?$,1qa(B)
(">w|" ?$,1q`(B)
("'w|" ?$,1rT(B)
("<'w|" ?$,1qe(B)
(">'w|" ?$,1qd(B)
("`w|" ?$,1rR(B)
("<`w|" ?$,1qc(B)
(">`w|" ?$,1qb(B)
("~w|" ?$,1rW(B)
("<~w|" ?$,1qg(B)
(">~w|" ?$,1qf(B)
)
;;
(quail-define-package "greek-ibycus4" "Greek" "IB" t
"The Ibycus4 input method for Classical Greek using mule-unicode-0100-24ff."
nil t t nil nil nil nil nil nil nil t)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment