|
155
|
1 ;;; quail/greek.el -- Quail package for inputting Greek
|
|
|
2
|
|
|
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
|
|
|
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
|
|
|
5
|
|
|
6 ;; Keywords: multilingual, input method, Greek
|
|
|
7
|
|
|
8 ;; This file is part of GNU Emacs.
|
|
|
9
|
|
|
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
11 ;; it under the terms of the GNU General Public License as published by
|
|
|
12 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
13 ;; any later version.
|
|
|
14
|
|
|
15 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
18 ;; GNU General Public License for more details.
|
|
|
19
|
|
|
20 ;; You should have received a copy of the GNU General Public License
|
|
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
|
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
23
|
|
|
24 ;;; Code:
|
|
|
25
|
|
|
26 (require 'quail)
|
|
|
27
|
|
|
28 (quail-define-package "quail-jis-greek" "Greek" "$B&%&K&K&G&M&I&J&A(B" nil
|
|
|
29 "JIS X0208.1983 encoding.
|
|
|
30 The layout is same as greek, but uses JIS characters.
|
|
|
31 Sorry, accents and terminal sigma are not supported in JIS."
|
|
|
32 nil t t t t)
|
|
|
33
|
|
|
34 (quail-define-rules
|
|
|
35 ("1" ?$B#1(B)
|
|
|
36 ("2" ?$B#2(B)
|
|
|
37 ("3" ?$B#3(B)
|
|
|
38 ("4" ?$B#4(B)
|
|
|
39 ("5" ?$B#5(B)
|
|
|
40 ("6" ?$B#6(B)
|
|
|
41 ("7" ?$B#7(B)
|
|
|
42 ("8" ?$B#8(B)
|
|
|
43 ("9" ?$B#9(B)
|
|
|
44 ("0" ?$B#0(B)
|
|
|
45 ("-" ?$B!](B)
|
|
|
46 ("=" ?$B!a(B)
|
|
|
47 ("`" ?$B!F(B)
|
|
|
48 ("q" ?$B!&(B)
|
|
|
49 ("w" ?$B&R(B)
|
|
|
50 ("e" ?$B&E(B)
|
|
|
51 ("r" ?$B&Q(B)
|
|
|
52 ("t" ?$B&S(B)
|
|
|
53 ("y" ?$B&T(B)
|
|
|
54 ("u" ?$B&H(B)
|
|
|
55 ("i" ?$B&I(B)
|
|
|
56 ("o" ?$B&O(B)
|
|
|
57 ("p" ?$B&P(B)
|
|
|
58 ("[" ?\$B!N(B)
|
|
|
59 ("]" ?\$B!O(B)
|
|
|
60 ("a" ?$B&A(B)
|
|
|
61 ("s" ?$B&R(B)
|
|
|
62 ("d" ?$B&D(B)
|
|
|
63 ("f" ?$B&U(B)
|
|
|
64 ("g" ?$B&C(B)
|
|
|
65 ("h" ?$B&G(B)
|
|
|
66 ("j" ?$B&N(B)
|
|
|
67 ("k" ?$B&J(B)
|
|
|
68 ("l" ?$B&K(B)
|
|
|
69 (";" ?$B!G(B)
|
|
|
70 ("'" ?$B!G(B)
|
|
|
71 ("\\" ?$B!@(B)
|
|
|
72 ("z" ?$B&F(B)
|
|
|
73 ("x" ?$B&V(B)
|
|
|
74 ("c" ?$B&W(B)
|
|
|
75 ("v" ?$B&X(B)
|
|
|
76 ("b" ?$B&B(B)
|
|
|
77 ("n" ?$B&M(B)
|
|
|
78 ("m" ?$B&L(B)
|
|
|
79 ("," ?, )
|
|
|
80 ("." ?. )
|
|
|
81 ("/" ?$B!?(B)
|
|
|
82
|
|
|
83 ("!" ?$B!*(B)
|
|
|
84 ("@" ?$B!w(B)
|
|
|
85 ("#" ?$B!t(B)
|
|
|
86 ("$" ?$B!t(B)
|
|
|
87 ("%" ?$B!s(B)
|
|
|
88 ("^" ?$B!0(B)
|
|
|
89 ("&" ?$B!u(B)
|
|
|
90 ("*" ?$B!v(B)
|
|
|
91 ("(" ?\$B!J(B)
|
|
|
92 (")" ?\$B!K(B)
|
|
|
93 ("_" ?$B!2(B)
|
|
|
94 ("+" ?$B!\(B)
|
|
|
95 ("~" ?$B!1(B)
|
|
|
96 ("Q" ?$B!](B)
|
|
|
97 ("W" ?$B&2(B)
|
|
|
98 ("E" ?$B&%(B)
|
|
|
99 ("R" ?$B&1(B)
|
|
|
100 ("T" ?$B&3(B)
|
|
|
101 ("Y" ?$B&4(B)
|
|
|
102 ("U" ?$B&((B)
|
|
|
103 ("I" ?$B&)(B)
|
|
|
104 ("O" ?$B&/(B)
|
|
|
105 ("P" ?$B&1(B)
|
|
|
106 ("{" ?\$B!P(B)
|
|
|
107 ("}" ?\$B!Q(B)
|
|
|
108 ("A" ?$B&!(B)
|
|
|
109 ("S" ?$B&2(B)
|
|
|
110 ("D" ?$B&$(B)
|
|
|
111 ("F" ?$B&5(B)
|
|
|
112 ("G" ?$B&#(B)
|
|
|
113 ("H" ?$B&'(B)
|
|
|
114 ("J" ?$B&.(B)
|
|
|
115 ("K" ?$B&*(B)
|
|
|
116 ("L" ?$B&+(B)
|
|
|
117 (":" ?$B!I(B)
|
|
|
118 ("\"" ?$B!I(B)
|
|
|
119 ("|" ?$B!C(B)
|
|
|
120 ("Z" ?$B&&(B)
|
|
|
121 ("X" ?$B&6(B)
|
|
|
122 ("C" ?$B&7(B)
|
|
|
123 ("V" ?$B&8(B)
|
|
|
124 ("B" ?$B&"(B)
|
|
|
125 ("N" ?$B&-(B)
|
|
|
126 ("M" ?$B&,(B)
|
|
|
127 ("<" ?$B!((B)
|
|
|
128 (">" ?$B!'(B)
|
|
|
129 ("?" ?$B!)(B))
|
|
|
130
|
|
|
131 ;;
|
|
|
132
|
|
|
133 (quail-define-package "quail-greek" "Greek" ",FEkkgmij\(B" nil
|
|
|
134 "Greek Keyboard
|
|
|
135 --------------
|
|
|
136
|
|
|
137 In the right of ,Fk(B key is a combination key, where
|
|
|
138 ,F4(B acute
|
|
|
139 ,F((B diaresis
|
|
|
140
|
|
|
141 e.g.
|
|
|
142 ,Fa(B + ,F4(B -> ,F\(B
|
|
|
143 ,Fi(B + ,F((B -> ,Fz(B
|
|
|
144 ,Fi(B + ,F((B + ,F4(B -> ,F@(B"
|
|
|
145 nil t t t t)
|
|
|
146
|
|
|
147 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
|
|
|
148 ;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
|
|
|
149 ;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \|
|
|
|
150 ;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /?
|
|
|
151
|
|
|
152 (quail-define-rules
|
|
|
153 ("1" ?1)
|
|
|
154 ("2" ?2)
|
|
|
155 ("3" ?3)
|
|
|
156 ("4" ?4)
|
|
|
157 ("5" ?5)
|
|
|
158 ("6" ?6)
|
|
|
159 ("7" ?7)
|
|
|
160 ("8" ?8)
|
|
|
161 ("9" ?9)
|
|
|
162 ("0" ?0)
|
|
|
163 ("-" ?-)
|
|
|
164 ("=" ?=)
|
|
|
165 ("`" ?`)
|
|
|
166 ("q" ?,F7(B)
|
|
|
167 ("w" ?,Fr(B)
|
|
|
168 ("e" ?,Fe(B)
|
|
|
169 ("r" ?,Fq(B)
|
|
|
170 ("t" ?,Ft(B)
|
|
|
171 ("y" ?,Fu(B)
|
|
|
172 ("u" ?,Fh(B)
|
|
|
173 ("i" ?,Fi(B)
|
|
|
174 ("o" ?,Fo(B)
|
|
|
175 ("p" ?,Fp(B)
|
|
|
176 ("[" ?\[)
|
|
|
177 ("]" ?\])
|
|
|
178 ("a" ?,Fa(B)
|
|
|
179 ("s" ?,Fs(B)
|
|
|
180 ("d" ?,Fd(B)
|
|
|
181 ("f" ?,Fv(B)
|
|
|
182 ("g" ?,Fc(B)
|
|
|
183 ("h" ?,Fg(B)
|
|
|
184 ("j" ?,Fn(B)
|
|
|
185 ("k" ?,Fj(B)
|
|
|
186 ("l" ?,Fk(B)
|
|
|
187 (";" ?,F4(B)
|
|
|
188 ("'" ?')
|
|
|
189 ("\\" ?\\)
|
|
|
190 ("z" ?,Ff(B)
|
|
|
191 ("x" ?,Fw(B)
|
|
|
192 ("c" ?,Fx(B)
|
|
|
193 ("v" ?,Fy(B)
|
|
|
194 ("b" ?,Fb(B)
|
|
|
195 ("n" ?,Fm(B)
|
|
|
196 ("m" ?,Fl(B)
|
|
|
197 ("," ?,)
|
|
|
198 ("." ?.)
|
|
|
199 ("/" ?/)
|
|
|
200
|
|
|
201 ("!" ?!)
|
|
|
202 ("@" ?@)
|
|
|
203 ("#" ?#)
|
|
|
204 ("$" ?$)
|
|
|
205 ("%" ?%)
|
|
|
206 ("^" ?^)
|
|
|
207 ("&" ?&)
|
|
|
208 ("*" ?*)
|
|
|
209 ("(" ?\()
|
|
|
210 (")" ?\))
|
|
|
211 ("_" ?_)
|
|
|
212 ("+" ?+)
|
|
|
213 ("~" ?~)
|
|
|
214 ("Q" ?,F/(B)
|
|
|
215 ("W" ?,FS(B)
|
|
|
216 ("E" ?,FE(B)
|
|
|
217 ("R" ?,FQ(B)
|
|
|
218 ("T" ?,FT(B)
|
|
|
219 ("Y" ?,FU(B)
|
|
|
220 ("U" ?,FH(B)
|
|
|
221 ("I" ?,FI(B)
|
|
|
222 ("O" ?,FO(B)
|
|
|
223 ("P" ?,FP(B)
|
|
|
224 ("{" ?{)
|
|
|
225 ("}" ?})
|
|
|
226 ("A" ?,FA(B)
|
|
|
227 ("S" ?,FS(B)
|
|
|
228 ("D" ?,FD(B)
|
|
|
229 ("F" ?,FV(B)
|
|
|
230 ("G" ?,FC(B)
|
|
|
231 ("H" ?,FG(B)
|
|
|
232 ("J" ?,FN(B)
|
|
|
233 ("K" ?,FJ(B)
|
|
|
234 ("L" ?,FK(B)
|
|
|
235 (":" ?,F((B)
|
|
|
236 ("\"" ?\")
|
|
|
237 ("|" ?|)
|
|
|
238 ("Z" ?,FF(B)
|
|
|
239 ("X" ?,FW(B)
|
|
|
240 ("C" ?,FX(B)
|
|
|
241 ("V" ?,FY(B)
|
|
|
242 ("B" ?,FB(B)
|
|
|
243 ("N" ?,FM(B)
|
|
|
244 ("M" ?,FL(B)
|
|
|
245 ("<" ?\;)
|
|
|
246 (">" ?:)
|
|
|
247 ("?" ??)
|
|
|
248
|
|
|
249 ("a;" ?,F\(B)
|
|
|
250 ("e;" ?,F](B)
|
|
|
251 ("h;" ?,F^(B)
|
|
|
252 ("i;" ?,F_(B)
|
|
|
253 ("o;" ?,F|(B)
|
|
|
254 ("y;" ?,F}(B)
|
|
|
255 ("v;" ?,F~(B)
|
|
|
256 ("A;" ?,F6(B)
|
|
|
257 ("E;" ?,F8(B)
|
|
|
258 ("H;" ?,F9(B)
|
|
|
259 ("I;" ?,F:(B)
|
|
|
260 ("O;" ?,F<(B)
|
|
|
261 ("Y;" ?,F>(B)
|
|
|
262 ("V;" ?,F?(B)
|
|
|
263 ("i:" ?,Fz(B)
|
|
|
264 ("y:" ?,F{(B)
|
|
|
265 ("I:" ?,FZ(B)
|
|
|
266 ("Y:" ?,F[(B)
|
|
|
267 ("i:;" ?,F@(B)
|
|
|
268 ("y:;" ?,F`(B))
|
