Commit | Line | Data |
---|---|---|
be567141 | 1 | ;;; cyrillic.el --- Quail package for inputting Cyrillic characters |
24b31c88 | 2 | |
5df4f04c | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 |
698218a2 | 4 | ;; Free Software Foundation, Inc. |
03ba6797 | 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
5df4f04c | 6 | ;; 2006, 2007, 2008, 2009, 2010, 2011 |
698218a2 KH |
7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 | ;; Registration Number H14PRO021 | |
24b31c88 | 9 | |
99edde43 DL |
10 | ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org> |
11 | ;; Keywords: multilingual, input method, Cyrillic, i18n | |
24b31c88 KH |
12 | |
13 | ;; This file is part of GNU Emacs. | |
14 | ||
3d544458 | 15 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
24b31c88 | 16 | ;; it under the terms of the GNU General Public License as published by |
3d544458 GM |
17 | ;; the Free Software Foundation, either version 3 of the License, or |
18 | ;; (at your option) any later version. | |
24b31c88 KH |
19 | |
20 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
21 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
23 | ;; GNU General Public License for more details. | |
24 | ||
25 | ;; You should have received a copy of the GNU General Public License | |
3d544458 | 26 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
24b31c88 | 27 | |
be567141 PJ |
28 | ;;; Commentary: |
29 | ||
99edde43 DL |
30 | ;; These methods use a mixture of 8859-5 and Unicode. Quail, used |
31 | ;; with ucs-tables provides suport for translating on the fly to | |
32 | ;; what's appropriate for aa buffer's file coding system, so the | |
33 | ;; encoding shouldn't matter too much provided it supports the | |
34 | ;; necessary characters. | |
35 | ||
24b31c88 KH |
36 | ;;; Code: |
37 | ||
38 | (require 'quail) | |
39 | ||
99edde43 DL |
40 | ;; This was `cyrillic-jcuken'. Alexander Mikhailian |
41 | ;; <mikhailian@altern.org> says: "cyrillic-jcuken" is actually | |
42 | ;; russian. It is ok but a bit outdated. This layout has been used | |
43 | ;; in typewriters for ages but it has been superceeded on desktops by | |
44 | ;; a variation of this layout, implemented in M$ Windows software. | |
45 | ;; The Windows layout is greatly preferred because of the comma and | |
46 | ;; period being placed more conviniently and, of course, because of | |
47 | ;; the popularity of Windows software. This layout is a common option | |
48 | ;; in X Windows and console layouts for GNU/Linux. [See | |
49 | ;; `russian-computer' below.] | |
24b31c88 | 50 | (quail-define-package |
99edde43 DL |
51 | "russian-typewriter" "Russian" "\e,L69\e(B" nil |
52 | "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)." | |
f10f03e8 | 53 | nil t t t t nil nil nil nil nil t) |
24b31c88 | 54 | |
f8126e67 CY |
55 | ;; \e,Lp\e(B1 -2 /3 "4 :5 ,6 .7 _8 ?9 %0 != ;\ |+ |
56 | ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,LJ\e(B )( | |
6b61353c | 57 | ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B |
f8126e67 | 58 | ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B \e,L!\e(B |
24b31c88 KH |
59 | |
60 | (quail-define-rules | |
f8126e67 CY |
61 | ("1" ?\e,Lp\e(B) |
62 | ("2" ?-) | |
63 | ("3" ?/) | |
64 | ("4" ?\") | |
65 | ("5" ?:) | |
66 | ("6" ?,) | |
67 | ("7" ?.) | |
68 | ("8" ?_) | |
69 | ("9" ??) | |
70 | ("0" ?%) | |
71 | ("-" ?!) | |
72 | ("=" ?\;) | |
73 | ("`" ?|) | |
e62b3a78 KH |
74 | ("q" ?\e,LY\e(B) |
75 | ("w" ?\e,Lf\e(B) | |
76 | ("e" ?\e,Lc\e(B) | |
77 | ("r" ?\e,LZ\e(B) | |
78 | ("t" ?\e,LU\e(B) | |
79 | ("y" ?\e,L]\e(B) | |
80 | ("u" ?\e,LS\e(B) | |
81 | ("i" ?\e,Lh\e(B) | |
82 | ("o" ?\e,Li\e(B) | |
83 | ("p" ?\e,LW\e(B) | |
84 | ("[" ?\e,Le\e(B) | |
85 | ("]" ?\e,Lj\e(B) | |
86 | ("a" ?\e,Ld\e(B) | |
87 | ("s" ?\e,Lk\e(B) | |
88 | ("d" ?\e,LR\e(B) | |
89 | ("f" ?\e,LP\e(B) | |
90 | ("g" ?\e,L_\e(B) | |
91 | ("h" ?\e,L`\e(B) | |
92 | ("j" ?\e,L^\e(B) | |
93 | ("k" ?\e,L[\e(B) | |
94 | ("l" ?\e,LT\e(B) | |
95 | (";" ?\e,LV\e(B) | |
96 | ("'" ?\e,Lm\e(B) | |
f8126e67 | 97 | ("\\" ?\)) |
e62b3a78 KH |
98 | ("z" ?\e,Lo\e(B) |
99 | ("x" ?\e,Lg\e(B) | |
100 | ("c" ?\e,La\e(B) | |
101 | ("v" ?\e,L\\e(B) | |
102 | ("b" ?\e,LX\e(B) | |
103 | ("n" ?\e,Lb\e(B) | |
104 | ("m" ?\e,Ll\e(B) | |
105 | ("," ?\e,LQ\e(B) | |
106 | ("." ?\e,Ln\e(B) | |
f8126e67 CY |
107 | ("/" ?\e,Lq\e(B) |
108 | ||
109 | ("!" ?1) | |
110 | ("@" ?2) | |
111 | ("#" ?3) | |
112 | ("$" ?4) | |
113 | ("%" ?5) | |
114 | ("^" ?6) | |
115 | ("&" ?7) | |
116 | ("*" ?8) | |
117 | ("(" ?9) | |
118 | (")" ?0) | |
119 | ("_" ?=) | |
120 | ("+" ?\\) | |
121 | ("~" ?+) | |
99edde43 DL |
122 | ("Q" ?\e,L9\e(B) |
123 | ("W" ?\e,LF\e(B) | |
124 | ("E" ?\e,LC\e(B) | |
125 | ("R" ?\e,L:\e(B) | |
126 | ("T" ?\e,L5\e(B) | |
127 | ("Y" ?\e,L=\e(B) | |
128 | ("U" ?\e,L3\e(B) | |
129 | ("I" ?\e,LH\e(B) | |
130 | ("O" ?\e,LI\e(B) | |
131 | ("P" ?\e,L7\e(B) | |
132 | ("{" ?\e,LE\e(B) | |
133 | ("}" ?\e,LJ\e(B) | |
134 | ("A" ?\e,LD\e(B) | |
135 | ("S" ?\e,LK\e(B) | |
136 | ("D" ?\e,L2\e(B) | |
137 | ("F" ?\e,L0\e(B) | |
138 | ("G" ?\e,L?\e(B) | |
139 | ("H" ?\e,L@\e(B) | |
140 | ("J" ?\e,L>\e(B) | |
141 | ("K" ?\e,L;\e(B) | |
142 | ("L" ?\e,L4\e(B) | |
143 | (":" ?\e,L6\e(B) | |
144 | ("\"" ?\e,LM\e(B) | |
f8126e67 | 145 | ("|" ?\() |
99edde43 DL |
146 | ("Z" ?\e,LO\e(B) |
147 | ("X" ?\e,LG\e(B) | |
148 | ("C" ?\e,LA\e(B) | |
149 | ("V" ?\e,L<\e(B) | |
150 | ("B" ?\e,L8\e(B) | |
151 | ("N" ?\e,LB\e(B) | |
152 | ("M" ?\e,LL\e(B) | |
153 | ("<" ?\e,L1\e(B) | |
154 | (">" ?\e,LN\e(B) | |
f8126e67 | 155 | ("?" ?\e,L!\e(B) |
99edde43 DL |
156 | ) |
157 | ||
158 | ;; Maintain the obsolete name for now. | |
159 | (push (cons "cyrillic-jcuken" | |
ff57e5d6 KH |
160 | (cdr (assoc "russian-typewriter" quail-package-alist))) |
161 | quail-package-alist) | |
162 | ||
163 | ;; This needs to be seen by quail-update-leim-list-file, but cannot be | |
164 | ;; commented out because quail-update-leim-list-file ignores | |
165 | ;; commented-out lines. | |
166 | (if nil | |
167 | (quail-define-package | |
168 | "cyrillic-jcuken" "Russian" "\e,L69\e(B" nil | |
169 | "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding).")) | |
99edde43 DL |
170 | |
171 | ;; See comment above. This is the variant `winkeys' from `ru' in XKB. | |
172 | (quail-define-package | |
173 | "russian-computer" "Russian" "RU" nil | |
174 | "\e,L9FC:5=\e(B Russian computer layout" | |
175 | nil t t t t nil nil nil nil nil t) | |
176 | ||
d73b58b5 | 177 | ;; 1! 2" 3\e,Lp\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ \/ \e,Lq!\e(B |
6b61353c KH |
178 | ;; \e,L9\e(B \e,LF\e(B \e,LC\e(B \e,L:\e(B \e,L5\e(B \e,L=\e(B \e,L3\e(B \e,LH\e(B \e,LI\e(B \e,L7\e(B \e,LE\e(B \e,LJ\e(B |
179 | ;; \e,LD\e(B \e,LK\e(B \e,L2\e(B \e,L0\e(B \e,L?\e(B \e,L@\e(B \e,L>\e(B \e,L;\e(B \e,L4\e(B \e,L6\e(B \e,LM\e(B | |
99edde43 DL |
180 | ;; \e,LO\e(B \e,LG\e(B \e,LA\e(B \e,L<\e(B \e,L8\e(B \e,LB\e(B \e,LL\e(B \e,L1\e(B \e,LN\e(B ., |
181 | ||
182 | (quail-define-rules | |
183 | ("1" ?1) | |
184 | ("2" ?2) | |
185 | ("3" ?3) | |
186 | ("4" ?4) | |
187 | ("5" ?5) | |
188 | ("6" ?6) | |
189 | ("7" ?7) | |
190 | ("8" ?8) | |
191 | ("9" ?9) | |
192 | ("0" ?0) | |
193 | ("-" ?-) | |
194 | ("=" ?=) | |
d73b58b5 | 195 | ("|" ?/) |
99edde43 DL |
196 | ("`" ?\e,Lq\e(B) |
197 | ("q" ?\e,LY\e(B) | |
198 | ("w" ?\e,Lf\e(B) | |
199 | ("e" ?\e,Lc\e(B) | |
200 | ("r" ?\e,LZ\e(B) | |
201 | ("t" ?\e,LU\e(B) | |
202 | ("y" ?\e,L]\e(B) | |
203 | ("u" ?\e,LS\e(B) | |
204 | ("i" ?\e,Lh\e(B) | |
205 | ("o" ?\e,Li\e(B) | |
206 | ("p" ?\e,LW\e(B) | |
207 | ("[" ?\e,Le\e(B) | |
208 | ("]" ?\e,Lj\e(B) | |
209 | ("a" ?\e,Ld\e(B) | |
210 | ("s" ?\e,Lk\e(B) | |
211 | ("d" ?\e,LR\e(B) | |
212 | ("f" ?\e,LP\e(B) | |
213 | ("g" ?\e,L_\e(B) | |
214 | ("h" ?\e,L`\e(B) | |
215 | ("j" ?\e,L^\e(B) | |
216 | ("k" ?\e,L[\e(B) | |
217 | ("l" ?\e,LT\e(B) | |
218 | (";" ?\e,LV\e(B) | |
219 | ("'" ?\e,Lm\e(B) | |
220 | ("\\" ?\\) | |
221 | ("z" ?\e,Lo\e(B) | |
222 | ("x" ?\e,Lg\e(B) | |
223 | ("c" ?\e,La\e(B) | |
224 | ("v" ?\e,L\\e(B) | |
225 | ("b" ?\e,LX\e(B) | |
226 | ("n" ?\e,Lb\e(B) | |
227 | ("m" ?\e,Ll\e(B) | |
228 | ("," ?\e,LQ\e(B) | |
229 | ("." ?\e,Ln\e(B) | |
230 | ("/" ?.) | |
231 | ("!" ?!) | |
232 | ("@" ?\") | |
233 | ("#" ?\e,Lp\e(B) | |
234 | ("$" ?\;) | |
235 | ("%" ?%) | |
236 | ("^" ?:) | |
237 | ("&" ??) | |
238 | ("*" ?*) | |
24b31c88 | 239 | ("(" ?() |
99edde43 | 240 | (")" ?)) |
24b31c88 KH |
241 | ("_" ?_) |
242 | ("+" ?+) | |
e62b3a78 KH |
243 | ("~" ?\e,L!\e(B) |
244 | ("Q" ?\e,L9\e(B) | |
245 | ("W" ?\e,LF\e(B) | |
246 | ("E" ?\e,LC\e(B) | |
247 | ("R" ?\e,L:\e(B) | |
248 | ("T" ?\e,L5\e(B) | |
249 | ("Y" ?\e,L=\e(B) | |
250 | ("U" ?\e,L3\e(B) | |
251 | ("I" ?\e,LH\e(B) | |
252 | ("O" ?\e,LI\e(B) | |
253 | ("P" ?\e,L7\e(B) | |
254 | ("{" ?\e,LE\e(B) | |
255 | ("}" ?\e,LJ\e(B) | |
256 | ("A" ?\e,LD\e(B) | |
257 | ("S" ?\e,LK\e(B) | |
258 | ("D" ?\e,L2\e(B) | |
259 | ("F" ?\e,L0\e(B) | |
260 | ("G" ?\e,L?\e(B) | |
261 | ("H" ?\e,L@\e(B) | |
262 | ("J" ?\e,L>\e(B) | |
263 | ("K" ?\e,L;\e(B) | |
264 | ("L" ?\e,L4\e(B) | |
265 | (":" ?\e,L6\e(B) | |
266 | ("\"" ?\e,LM\e(B) | |
24b31c88 | 267 | ("|" ?|) |
e62b3a78 KH |
268 | ("Z" ?\e,LO\e(B) |
269 | ("X" ?\e,LG\e(B) | |
270 | ("C" ?\e,LA\e(B) | |
271 | ("V" ?\e,L<\e(B) | |
272 | ("B" ?\e,L8\e(B) | |
273 | ("N" ?\e,LB\e(B) | |
274 | ("M" ?\e,LL\e(B) | |
275 | ("<" ?\e,L1\e(B) | |
276 | (">" ?\e,LN\e(B) | |
99edde43 | 277 | ("?" ?,)) |
24b31c88 | 278 | |
177c0ea7 | 279 | ;; Mikhailian couldn't check the next two. |
24b31c88 | 280 | |
99edde43 DL |
281 | ;; This seems to have the same layout for letters as mk in XKB, but at |
282 | ;; least the top row is different. | |
24b31c88 | 283 | (quail-define-package |
e62b3a78 | 284 | "cyrillic-macedonian" "Cyrillic" "\e,L6\e(BM" nil |
13bf42a2 | 285 | "\e,L)*5@B7\e(B-\e,L#,\e(B keyboard layout based on JUS.I.K1.004" |
f10f03e8 | 286 | nil t t t t nil nil nil nil nil t) |
24b31c88 KH |
287 | |
288 | ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> | |
e62b3a78 KH |
289 | ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L#\e(B |
290 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L,\e(B \e,L6\e(B | |
291 | ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ | |
24b31c88 KH |
292 | |
293 | (quail-define-rules | |
294 | ("1" ?1) | |
295 | ("2" ?2) | |
296 | ("3" ?3) | |
297 | ("4" ?4) | |
298 | ("5" ?5) | |
299 | ("6" ?6) | |
300 | ("7" ?7) | |
301 | ("8" ?8) | |
302 | ("9" ?9) | |
303 | ("0" ?0) | |
304 | ("-" ?/) | |
305 | ("=" ?+) | |
306 | ("`" ?<) | |
e62b3a78 KH |
307 | ("q" ?\e,Ly\e(B) |
308 | ("w" ?\e,Lz\e(B) | |
309 | ("e" ?\e,LU\e(B) | |
310 | ("r" ?\e,L`\e(B) | |
311 | ("t" ?\e,Lb\e(B) | |
312 | ("y" ?\e,LW\e(B) | |
313 | ("u" ?\e,Lc\e(B) | |
314 | ("i" ?\e,LX\e(B) | |
315 | ("o" ?\e,L^\e(B) | |
316 | ("p" ?\e,L_\e(B) | |
317 | ("[" ?\e,Lh\e(B) | |
318 | ("]" ?\e,Ls\e(B) | |
319 | ("a" ?\e,LP\e(B) | |
320 | ("s" ?\e,La\e(B) | |
321 | ("d" ?\e,LT\e(B) | |
322 | ("f" ?\e,Ld\e(B) | |
323 | ("g" ?\e,LS\e(B) | |
324 | ("h" ?\e,Le\e(B) | |
325 | ("j" ?\e,Lx\e(B) | |
326 | ("k" ?\e,LZ\e(B) | |
327 | ("l" ?\e,L[\e(B) | |
328 | (";" ?\e,Lg\e(B) | |
329 | ("'" ?\e,L|\e(B) | |
330 | ("\\" ?\e,LV\e(B) | |
331 | ("z" ?\e,Lu\e(B) | |
332 | ("x" ?\e,L\7f\e(B) | |
333 | ("c" ?\e,Lf\e(B) | |
334 | ("v" ?\e,LR\e(B) | |
335 | ("b" ?\e,LQ\e(B) | |
336 | ("n" ?\e,L]\e(B) | |
337 | ("m" ?\e,L\\e(B) | |
24b31c88 KH |
338 | ("," ?,) |
339 | ("." ?.) | |
340 | ("/" ?-) | |
177c0ea7 | 341 | |
24b31c88 KH |
342 | ("!" ?!) |
343 | ("@" ?\") | |
344 | ("#" ?#) | |
345 | ("$" ?$) | |
346 | ("%" ?%) | |
347 | ("^" ?&) | |
348 | ("&" ?') | |
349 | ("*" ?\() | |
350 | ("(" ?\)) | |
351 | (")" ?=) | |
352 | ("_" ??) | |
353 | ("+" ?*) | |
354 | ("~" ?>) | |
e62b3a78 KH |
355 | ("Q" ?\e,L)\e(B) |
356 | ("W" ?\e,L*\e(B) | |
357 | ("E" ?\e,L5\e(B) | |
358 | ("R" ?\e,L@\e(B) | |
359 | ("T" ?\e,LB\e(B) | |
360 | ("Y" ?\e,L7\e(B) | |
361 | ("U" ?\e,LC\e(B) | |
362 | ("I" ?\e,L8\e(B) | |
363 | ("O" ?\e,L>\e(B) | |
364 | ("P" ?\e,L?\e(B) | |
365 | ("{" ?\e,LH\e(B) | |
366 | ("}" ?\e,L#\e(B) | |
367 | ("A" ?\e,L0\e(B) | |
368 | ("S" ?\e,LA\e(B) | |
369 | ("D" ?\e,L4\e(B) | |
370 | ("F" ?\e,LD\e(B) | |
371 | ("G" ?\e,L3\e(B) | |
372 | ("H" ?\e,LE\e(B) | |
373 | ("J" ?\e,L(\e(B) | |
374 | ("K" ?\e,L:\e(B) | |
375 | ("L" ?\e,L;\e(B) | |
376 | (":" ?\e,LG\e(B) | |
377 | ("\"" ?\e,L,\e(B) | |
378 | ("|" ?\e,L6\e(B) | |
379 | ("Z" ?\e,L%\e(B) | |
380 | ("X" ?\e,L/\e(B) | |
381 | ("C" ?\e,LF\e(B) | |
382 | ("V" ?\e,L2\e(B) | |
383 | ("B" ?\e,L1\e(B) | |
384 | ("N" ?\e,L=\e(B) | |
385 | ("M" ?\e,L<\e(B) | |
24b31c88 KH |
386 | ("<" ?\;) |
387 | (">" ?:) | |
388 | ("?" ?_)) | |
389 | ||
390 | ;; | |
391 | ||
392 | (quail-define-package | |
e62b3a78 | 393 | "cyrillic-serbian" "Cyrillic" "\e,L6\e(BS" nil |
13bf42a2 | 394 | "\e,L)*5@B7\e(B-\e,L"+\e(B keyboard layout based on JUS.I.K1.005" |
f10f03e8 | 395 | nil t t t t nil nil nil nil nil t) |
24b31c88 KH |
396 | |
397 | ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> | |
e62b3a78 KH |
398 | ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L"\e(B |
399 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L+\e(B \e,L6\e(B | |
400 | ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ | |
24b31c88 KH |
401 | |
402 | (quail-define-rules | |
403 | ("1" ?1) | |
404 | ("2" ?2) | |
405 | ("3" ?3) | |
406 | ("4" ?4) | |
407 | ("5" ?5) | |
408 | ("6" ?6) | |
409 | ("7" ?7) | |
410 | ("8" ?8) | |
411 | ("9" ?9) | |
412 | ("0" ?0) | |
413 | ("-" ?/) | |
414 | ("=" ?+) | |
415 | ("`" ?<) | |
e62b3a78 KH |
416 | ("q" ?\e,Ly\e(B) |
417 | ("w" ?\e,Lz\e(B) | |
418 | ("e" ?\e,LU\e(B) | |
419 | ("r" ?\e,L`\e(B) | |
420 | ("t" ?\e,Lb\e(B) | |
421 | ("y" ?\e,LW\e(B) | |
422 | ("u" ?\e,Lc\e(B) | |
423 | ("i" ?\e,LX\e(B) | |
424 | ("o" ?\e,L^\e(B) | |
425 | ("p" ?\e,L_\e(B) | |
426 | ("[" ?\e,Lh\e(B) | |
427 | ("]" ?\e,Lr\e(B) | |
428 | ("a" ?\e,LP\e(B) | |
429 | ("s" ?\e,La\e(B) | |
430 | ("d" ?\e,LT\e(B) | |
431 | ("f" ?\e,Ld\e(B) | |
432 | ("g" ?\e,LS\e(B) | |
433 | ("h" ?\e,Le\e(B) | |
434 | ("j" ?\e,Lx\e(B) | |
435 | ("k" ?\e,LZ\e(B) | |
436 | ("l" ?\e,L[\e(B) | |
437 | (";" ?\e,Lg\e(B) | |
438 | ("'" ?\e,L{\e(B) | |
439 | ("\\" ?\e,LV\e(B) | |
440 | ("z" ?\e,Lu\e(B) | |
441 | ("x" ?\e,L\7f\e(B) | |
442 | ("c" ?\e,Lf\e(B) | |
443 | ("v" ?\e,LR\e(B) | |
444 | ("b" ?\e,LQ\e(B) | |
445 | ("n" ?\e,L]\e(B) | |
446 | ("m" ?\e,L\\e(B) | |
24b31c88 KH |
447 | ("," ?,) |
448 | ("." ?.) | |
449 | ("/" ?-) | |
177c0ea7 | 450 | |
24b31c88 KH |
451 | ("!" ?!) |
452 | ("@" ?\") | |
453 | ("#" ?#) | |
454 | ("$" ?$) | |
455 | ("%" ?%) | |
456 | ("^" ?&) | |
457 | ("&" ?') | |
458 | ("*" ?\() | |
459 | ("(" ?\)) | |
460 | (")" ?=) | |
461 | ("_" ??) | |
462 | ("+" ?*) | |
463 | ("~" ?>) | |
e62b3a78 KH |
464 | ("Q" ?\e,L)\e(B) |
465 | ("W" ?\e,L*\e(B) | |
466 | ("E" ?\e,L5\e(B) | |
467 | ("R" ?\e,L@\e(B) | |
468 | ("T" ?\e,LB\e(B) | |
469 | ("Y" ?\e,L7\e(B) | |
470 | ("U" ?\e,LC\e(B) | |
471 | ("I" ?\e,L8\e(B) | |
472 | ("O" ?\e,L>\e(B) | |
473 | ("P" ?\e,L?\e(B) | |
474 | ("{" ?\e,LH\e(B) | |
475 | ("}" ?\e,L"\e(B) | |
476 | ("A" ?\e,L0\e(B) | |
477 | ("S" ?\e,LA\e(B) | |
478 | ("D" ?\e,L4\e(B) | |
479 | ("F" ?\e,LD\e(B) | |
480 | ("G" ?\e,L3\e(B) | |
481 | ("H" ?\e,LE\e(B) | |
482 | ("J" ?\e,L(\e(B) | |
483 | ("K" ?\e,L:\e(B) | |
484 | ("L" ?\e,L;\e(B) | |
485 | (":" ?\e,LG\e(B) | |
486 | ("\"" ?\e,L+\e(B) | |
487 | ("|" ?\e,L6\e(B) | |
488 | ("Z" ?\e,L%\e(B) | |
489 | ("X" ?\e,L/\e(B) | |
490 | ("C" ?\e,LF\e(B) | |
491 | ("V" ?\e,L2\e(B) | |
492 | ("B" ?\e,L1\e(B) | |
493 | ("N" ?\e,L=\e(B) | |
494 | ("M" ?\e,L<\e(B) | |
24b31c88 KH |
495 | ("<" ?\;) |
496 | (">" ?:) | |
497 | ("?" ?_)) | |
498 | ||
499 | ;; | |
500 | ||
99edde43 DL |
501 | ;; Alexander Mikhailian comments: |
502 | ;; Having worked for several years as a Belarusian linguist, I still | |
503 | ;; can not find the origin of this layout which BTW does include | |
504 | ;; several characters that are not present in Belarusian and does not | |
505 | ;; include a few ones that do exist in Belarusian. Besides, the typo | |
506 | ;; in the name of this layout speaks for itself since Belarusian has | |
507 | ;; an outdated version of spelling which is "Byelorussian" and not | |
508 | ;; "beylorussian". I suggest that you just remove this layout. | |
509 | ||
510 | ;; [`derived from JUS.I.K1' according to an old Mule note -- fx] | |
511 | ||
512 | ;; (quail-define-package | |
513 | ;; "cyrillic-beylorussian" "Belarussian" "\e,L6\e(BB" nil | |
514 | ;; "\e,L)*5@B7\e(B-\e,L&.\e(B BEYLORUSSIAN (ISO 8859-5 encoding)" | |
515 | ;; nil t t t t nil nil nil nil nil t) | |
516 | ||
517 | ;; ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> | |
518 | ;; ;; \e,L)\e(B \e,L*\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L&\e(B | |
519 | ;; ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L.\e(B \e,L6\e(B | |
520 | ;; ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ | |
521 | ||
522 | ;; (quail-define-rules | |
523 | ;; ("-" ?/) | |
524 | ;; ("=" ?+) | |
525 | ;; ("`" ?<) | |
526 | ;; ("q" ?\e,Ly\e(B) | |
527 | ;; ("w" ?\e,Lz\e(B) | |
528 | ;; ("e" ?\e,LU\e(B) | |
529 | ;; ("r" ?\e,L`\e(B) | |
530 | ;; ("t" ?\e,Lb\e(B) | |
531 | ;; ("y" ?\e,LW\e(B) | |
532 | ;; ("u" ?\e,Lc\e(B) | |
533 | ;; ("i" ?\e,LX\e(B) | |
534 | ;; ("o" ?\e,L^\e(B) | |
535 | ;; ("p" ?\e,L_\e(B) | |
536 | ;; ("[" ?\e,Lh\e(B) | |
537 | ;; ("]" ?\e,Lv\e(B) | |
538 | ;; ("a" ?\e,LP\e(B) | |
539 | ;; ("s" ?\e,La\e(B) | |
540 | ;; ("d" ?\e,LT\e(B) | |
541 | ;; ("f" ?\e,Ld\e(B) | |
542 | ;; ("g" ?\e,LS\e(B) | |
543 | ;; ("h" ?\e,Le\e(B) | |
544 | ;; ("j" ?\e,Lx\e(B) | |
545 | ;; ("k" ?\e,LZ\e(B) | |
546 | ;; ("l" ?\e,L[\e(B) | |
547 | ;; (";" ?\e,Lg\e(B) | |
548 | ;; ("'" ?\e,L~\e(B) | |
549 | ;; ("\\" ?\e,LV\e(B) | |
550 | ;; ("z" ?\e,Lu\e(B) | |
551 | ;; ("x" ?\e,L\7f\e(B) | |
552 | ;; ("c" ?\e,Lf\e(B) | |
553 | ;; ("v" ?\e,LR\e(B) | |
554 | ;; ("b" ?\e,LQ\e(B) | |
555 | ;; ("n" ?\e,L]\e(B) | |
556 | ;; ("m" ?\e,L\\e(B) | |
557 | ;; ("/" ?-) | |
177c0ea7 | 558 | |
99edde43 DL |
559 | ;; ("@" ?\") |
560 | ;; ("^" ?&) | |
561 | ;; ("&" ?') | |
562 | ;; ("*" ?\() | |
563 | ;; ("(" ?\)) | |
564 | ;; (")" ?=) | |
565 | ;; ("_" ??) | |
566 | ;; ("+" ?*) | |
567 | ;; ("~" ?>) | |
568 | ;; ("Q" ?\e,L)\e(B) | |
569 | ;; ("W" ?\e,L*\e(B) | |
570 | ;; ("E" ?\e,L5\e(B) | |
571 | ;; ("R" ?\e,L@\e(B) | |
572 | ;; ("T" ?\e,LB\e(B) | |
573 | ;; ("Y" ?\e,L7\e(B) | |
574 | ;; ("U" ?\e,LC\e(B) | |
575 | ;; ("I" ?\e,L8\e(B) | |
576 | ;; ("O" ?\e,L>\e(B) | |
577 | ;; ("P" ?\e,L?\e(B) | |
578 | ;; ("{" ?\e,LH\e(B) | |
579 | ;; ("}" ?\e,L&\e(B) | |
580 | ;; ("A" ?\e,L0\e(B) | |
581 | ;; ("S" ?\e,LA\e(B) | |
582 | ;; ("D" ?\e,L4\e(B) | |
583 | ;; ("F" ?\e,LD\e(B) | |
584 | ;; ("G" ?\e,L3\e(B) | |
585 | ;; ("H" ?\e,LE\e(B) | |
586 | ;; ("J" ?\e,L(\e(B) | |
587 | ;; ("K" ?\e,L:\e(B) | |
588 | ;; ("L" ?\e,L;\e(B) | |
589 | ;; (":" ?\e,LG\e(B) | |
590 | ;; ("\"" ?\e,L.\e(B) | |
591 | ;; ("|" ?\e,L6\e(B) | |
592 | ;; ("Z" ?\e,L%\e(B) | |
593 | ;; ("X" ?\e,L/\e(B) | |
594 | ;; ("C" ?\e,LF\e(B) | |
595 | ;; ("V" ?\e,L2\e(B) | |
596 | ;; ("B" ?\e,L1\e(B) | |
597 | ;; ("N" ?\e,L=\e(B) | |
598 | ;; ("M" ?\e,L<\e(B) | |
599 | ;; ("<" ?\;) | |
600 | ;; (">" ?:) | |
601 | ;; ("?" ?_)) | |
602 | ||
603 | ;; | |
604 | ||
605 | ;; Alexander Mikhailian reports the opinion of fellow Ukrainian | |
606 | ;; linguist Bogdan Babych <babych@altern.org>: | |
607 | ;; He had seen this layout on some oldish systems but that the vast | |
608 | ;; majority of the population uses a modified version of the M$ Windows | |
609 | ;; layout. In fact, Microsoft shipped for a while a layout that was lacking | |
610 | ;; two characters, precisely the "GHE_WITH_UPTURN" and the apostrophe. The | |
611 | ;; latest versions of Windows software do have the "GHE_WITH_UPTURN" in the | |
612 | ;; ukrainian keyborad layout but the apostrophe is still not there, whereas | |
613 | ;; there is one letter, "Cyrillic_YO", not used in ukrainian. Ukrainians | |
614 | ;; normally replace the "Cyrillic_YO" by the apostrophe sign and live | |
615 | ;; happily with this little change. [See "ukrainian-computer" below.] | |
616 | ||
617 | ;; Fixme: add GHE_WITH_UPTURN. | |
177c0ea7 | 618 | (quail-define-package |
99edde43 | 619 | "cyrillic-ukrainian" "Ukrainian" "\e,L6\e(BU" nil |
8f924df7 | 620 | "\e,L$'5@B7\e(B-\e,L&.\e(B UKRAINIAN |
99edde43 DL |
621 | |
622 | Sorry, but 'ghe with upturn' is not included in ISO 8859-5." | |
f10f03e8 | 623 | nil t t t t nil nil nil nil nil t) |
24b31c88 KH |
624 | |
625 | ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> | |
99edde43 | 626 | ;; \e,L$\e(B \e,L'\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,L7\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,L&\e(B |
e62b3a78 KH |
627 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L(\e(B \e,L:\e(B \e,L;\e(B \e,LG\e(B \e,L.\e(B \e,L6\e(B |
628 | ;; \e,L%\e(B \e,L/\e(B \e,LF\e(B \e,L2\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,; .: -_ | |
24b31c88 KH |
629 | |
630 | (quail-define-rules | |
631 | ("1" ?1) | |
632 | ("2" ?2) | |
633 | ("3" ?3) | |
634 | ("4" ?4) | |
635 | ("5" ?5) | |
636 | ("6" ?6) | |
637 | ("7" ?7) | |
638 | ("8" ?8) | |
639 | ("9" ?9) | |
640 | ("0" ?0) | |
641 | ("-" ?/) | |
642 | ("=" ?+) | |
643 | ("`" ?<) | |
99edde43 DL |
644 | ("q" ?\e,Lt\e(B) |
645 | ("w" ?\e,Lw\e(B) | |
e62b3a78 KH |
646 | ("e" ?\e,LU\e(B) |
647 | ("r" ?\e,L`\e(B) | |
648 | ("t" ?\e,Lb\e(B) | |
649 | ("y" ?\e,LW\e(B) | |
650 | ("u" ?\e,Lc\e(B) | |
651 | ("i" ?\e,LX\e(B) | |
652 | ("o" ?\e,L^\e(B) | |
653 | ("p" ?\e,L_\e(B) | |
654 | ("[" ?\e,Lh\e(B) | |
655 | ("]" ?\e,Lv\e(B) | |
656 | ("a" ?\e,LP\e(B) | |
657 | ("s" ?\e,La\e(B) | |
658 | ("d" ?\e,LT\e(B) | |
659 | ("f" ?\e,Ld\e(B) | |
660 | ("g" ?\e,LS\e(B) | |
661 | ("h" ?\e,Le\e(B) | |
662 | ("j" ?\e,Lx\e(B) | |
663 | ("k" ?\e,LZ\e(B) | |
664 | ("l" ?\e,L[\e(B) | |
665 | (";" ?\e,Lg\e(B) | |
666 | ("'" ?\e,L~\e(B) | |
667 | ("\\" ?\e,LV\e(B) | |
668 | ("z" ?\e,Lu\e(B) | |
669 | ("x" ?\e,L\7f\e(B) | |
670 | ("c" ?\e,Lf\e(B) | |
671 | ("v" ?\e,LR\e(B) | |
672 | ("b" ?\e,LQ\e(B) | |
673 | ("n" ?\e,L]\e(B) | |
674 | ("m" ?\e,L\\e(B) | |
24b31c88 KH |
675 | ("," ?,) |
676 | ("." ?.) | |
677 | ("/" ?-) | |
177c0ea7 | 678 | |
24b31c88 KH |
679 | ("!" ?!) |
680 | ("@" ?\") | |
681 | ("#" ?#) | |
682 | ("$" ?$) | |
683 | ("%" ?%) | |
684 | ("^" ?&) | |
685 | ("&" ?') | |
686 | ("*" ?\() | |
687 | ("(" ?\)) | |
688 | (")" ?=) | |
689 | ("_" ??) | |
690 | ("+" ?*) | |
691 | ("~" ?>) | |
99edde43 DL |
692 | ("Q" ?\e,L$\e(B) |
693 | ("W" ?\e,L'\e(B) | |
e62b3a78 KH |
694 | ("E" ?\e,L5\e(B) |
695 | ("R" ?\e,L@\e(B) | |
696 | ("T" ?\e,LB\e(B) | |
697 | ("Y" ?\e,L7\e(B) | |
698 | ("U" ?\e,LC\e(B) | |
699 | ("I" ?\e,L8\e(B) | |
700 | ("O" ?\e,L>\e(B) | |
701 | ("P" ?\e,L?\e(B) | |
702 | ("{" ?\e,LH\e(B) | |
703 | ("}" ?\e,L&\e(B) | |
704 | ("A" ?\e,L0\e(B) | |
705 | ("S" ?\e,LA\e(B) | |
706 | ("D" ?\e,L4\e(B) | |
707 | ("F" ?\e,LD\e(B) | |
708 | ("G" ?\e,L3\e(B) | |
709 | ("H" ?\e,LE\e(B) | |
710 | ("J" ?\e,L(\e(B) | |
711 | ("K" ?\e,L:\e(B) | |
712 | ("L" ?\e,L;\e(B) | |
713 | (":" ?\e,LG\e(B) | |
714 | ("\"" ?\e,L.\e(B) | |
715 | ("|" ?\e,L6\e(B) | |
716 | ("Z" ?\e,L%\e(B) | |
717 | ("X" ?\e,L/\e(B) | |
718 | ("C" ?\e,LF\e(B) | |
719 | ("V" ?\e,L2\e(B) | |
720 | ("B" ?\e,L1\e(B) | |
721 | ("N" ?\e,L=\e(B) | |
722 | ("M" ?\e,L<\e(B) | |
24b31c88 KH |
723 | ("<" ?\;) |
724 | (">" ?:) | |
725 | ("?" ?_)) | |
726 | ||
24b31c88 | 727 | |
99edde43 DL |
728 | (quail-define-package |
729 | "ukrainian-computer" "Ukrainian" "UK" nil | |
730 | "\e$,1(9(F(C(:(5(=\e(B Ukrainian (Unicode-based for use with KOI8-U encoding)." | |
f10f03e8 | 731 | nil t t t t nil nil nil nil nil t) |
24b31c88 | 732 | |
99edde43 DL |
733 | ;; ' 1! 2" 3\e$,1uV\e(B 4; 5% 6: 7? 8* 9( 0) -_ =+ |
734 | ;; \e$,1(9\e(B \e$,1(F\e(B \e$,1(C\e(B \e$,1(:\e(B \e$,1(5\e(B \e$,1(=\e(B \e$,1(3\e(B \e$,1(H\e(B \e$,1(I\e(B \e$,1(7\e(B \e$,1(E\e(B \e$,1('\e(B | |
735 | ;; \e$,1(D\e(B \e$,1(&\e(B \e$,1(2\e(B \e$,1(0\e(B \e$,1(?\e(B \e$,1(@\e(B \e$,1(>\e(B \e$,1(;\e(B \e$,1(4\e(B \e$,1(6\e(B \e$,1($\e(B \e$,1)P\e(B | |
736 | ;; \e$,1(O\e(B \e$,1(G\e(B \e$,1(A\e(B \e$,1(<\e(B \e$,1(8\e(B \e$,1(B\e(B \e$,1(L\e(B \e$,1(1\e(B \e$,1(N\e(B ., | |
24b31c88 KH |
737 | |
738 | (quail-define-rules | |
739 | ("1" ?1) | |
740 | ("2" ?2) | |
741 | ("3" ?3) | |
742 | ("4" ?4) | |
743 | ("5" ?5) | |
744 | ("6" ?6) | |
745 | ("7" ?7) | |
746 | ("8" ?8) | |
747 | ("9" ?9) | |
748 | ("0" ?0) | |
99edde43 DL |
749 | ("-" ?-) |
750 | ("=" ?=) | |
751 | ("`" ?') | |
752 | ("q" ?\e$,1(Y\e(B) | |
753 | ("w" ?\e$,1(f\e(B) | |
754 | ("e" ?\e$,1(c\e(B) | |
755 | ("r" ?\e$,1(Z\e(B) | |
756 | ("t" ?\e$,1(U\e(B) | |
757 | ("y" ?\e$,1(]\e(B) | |
758 | ("u" ?\e$,1(S\e(B) | |
759 | ("i" ?\e$,1(h\e(B) | |
760 | ("o" ?\e$,1(i\e(B) | |
761 | ("p" ?\e$,1(W\e(B) | |
762 | ("[" ?\e$,1(e\e(B) | |
763 | ("]" ?\e$,1(w\e(B) | |
764 | ("a" ?\e$,1(d\e(B) | |
765 | ("s" ?\e$,1(v\e(B) | |
766 | ("d" ?\e$,1(R\e(B) | |
767 | ("f" ?\e$,1(P\e(B) | |
768 | ("g" ?\e$,1(_\e(B) | |
769 | ("h" ?\e$,1(`\e(B) | |
770 | ("j" ?\e$,1(^\e(B) | |
771 | ("k" ?\e$,1([\e(B) | |
772 | ("l" ?\e$,1(T\e(B) | |
773 | (";" ?\e$,1(V\e(B) | |
774 | ("'" ?\e$,1(t\e(B) | |
99edde43 DL |
775 | ("z" ?\e$,1(o\e(B) |
776 | ("x" ?\e$,1(g\e(B) | |
777 | ("c" ?\e$,1(a\e(B) | |
778 | ("v" ?\e$,1(\\e(B) | |
779 | ("b" ?\e$,1(X\e(B) | |
780 | ("n" ?\e$,1(b\e(B) | |
781 | ("m" ?\e$,1(l\e(B) | |
782 | ("," ?\e$,1(Q\e(B) | |
783 | ("." ?\e$,1(n\e(B) | |
784 | ("/" ?.) | |
24b31c88 KH |
785 | ("!" ?!) |
786 | ("@" ?\") | |
99edde43 DL |
787 | ("#" ?\e$,1uV\e(B) |
788 | ("$" ?\;) | |
24b31c88 | 789 | ("%" ?%) |
99edde43 DL |
790 | ("^" ?:) |
791 | ("&" ??) | |
792 | ("*" ?*) | |
793 | ("(" ?() | |
794 | (")" ?)) | |
795 | ("_" ?_) | |
796 | ("+" ?+) | |
797 | ("~" ?') | |
798 | ("Q" ?\e$,1(9\e(B) | |
799 | ("W" ?\e$,1(F\e(B) | |
800 | ("E" ?\e$,1(C\e(B) | |
801 | ("R" ?\e$,1(:\e(B) | |
802 | ("T" ?\e$,1(5\e(B) | |
803 | ("Y" ?\e$,1(=\e(B) | |
804 | ("U" ?\e$,1(3\e(B) | |
805 | ("I" ?\e$,1(H\e(B) | |
806 | ("O" ?\e$,1(I\e(B) | |
807 | ("P" ?\e$,1(7\e(B) | |
808 | ("{" ?\e$,1(E\e(B) | |
809 | ("}" ?\e$,1('\e(B) | |
810 | ("A" ?\e$,1(D\e(B) | |
811 | ("S" ?\e$,1(&\e(B) | |
812 | ("D" ?\e$,1(2\e(B) | |
813 | ("F" ?\e$,1(0\e(B) | |
814 | ("G" ?\e$,1(?\e(B) | |
815 | ("H" ?\e$,1(@\e(B) | |
816 | ("J" ?\e$,1(>\e(B) | |
817 | ("K" ?\e$,1(;\e(B) | |
818 | ("L" ?\e$,1(4\e(B) | |
819 | (":" ?\e$,1(6\e(B) | |
820 | ("\"" ?\e$,1($\e(B) | |
821 | ("Z" ?\e$,1(O\e(B) | |
822 | ("X" ?\e$,1(G\e(B) | |
823 | ("C" ?\e$,1(A\e(B) | |
824 | ("V" ?\e$,1(<\e(B) | |
825 | ("B" ?\e$,1(8\e(B) | |
826 | ("N" ?\e$,1(B\e(B) | |
827 | ("M" ?\e$,1(L\e(B) | |
828 | ("<" ?\e$,1(1\e(B) | |
829 | (">" ?\e$,1(N\e(B) | |
830 | ("?" ?,) | |
831 | ("\\" ?\e$,1)Q\e(B) | |
832 | ("|" ?\e$,1)P\e(B)) | |
24b31c88 KH |
833 | ;; |
834 | ||
99edde43 DL |
835 | ;; Alexander Mikhailian says this is of limited use. It has been |
836 | ;; popular among emigrants or foreigners who have to type in Cyrillic | |
837 | ;; (mostly Russian) from time to time. | |
177c0ea7 | 838 | (quail-define-package |
e62b3a78 | 839 | "cyrillic-yawerty" "Cyrillic" "\e,L6O\e(B" nil |
8f924df7 | 840 | "\e,LO25@BK\e(B Roman transcription |
24b31c88 | 841 | |
99edde43 | 842 | This layout is based on Roman transcription by phonemic resemblance. |
24b31c88 KH |
843 | When preceded by a '/', the second and the third rows (number key row) change |
844 | as follows. | |
845 | ||
846 | keytop | Q W E R T Y U I O P A S D | |
847 | --------+--------------------------------------- | |
e62b3a78 | 848 | input | \e,L"\e(B \e,L#\e(B \e,L$\e(B \e,L%\e(B \e,L&\e(B \e,L'\e(B \e,L(\e(B \e,L)\e(B \e,L*\e(B \e,L+\e(B \e,L,\e(B \e,L.\e(B \e,L/\e(B" |
f10f03e8 | 849 | nil t t t t nil nil nil nil nil t) |
24b31c88 | 850 | |
e62b3a78 KH |
851 | ;; 1! 2\e,Lq\e(B 3\e,Lj\e(B 4\e,L!\e(B 5% 6^ 7& 8* 9( 0) -_ \e,LG\e(B \e,LN\e(B |
852 | ;; \e,LO\e(B \e,L2\e(B \e,L5\e(B \e,L@\e(B \e,LB\e(B \e,LK\e(B \e,LC\e(B \e,L8\e(B \e,L>\e(B \e,L?\e(B \e,LH\e(B \e,LI\e(B | |
853 | ;; \e,L0\e(B \e,LA\e(B \e,L4\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B ;: '" \e,LM\e(B | |
854 | ;; \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,< .> /? | |
24b31c88 | 855 | |
e62b3a78 KH |
856 | ;; 1! 2\e,Lq\e(B 3\e,Lj\e(B 4\e,L!\e(B 5% 6^ 7& 8* 9( 0) -_ \e,LG\e(B \e,LN\e(B |
857 | ;; \e,L"\e(B \e,L#\e(B \e,L$\e(B \e,L%\e(B \e,L&\e(B \e,L'\e(B \e,L(\e(B \e,L)\e(B \e,L*\e(B \e,L+\e(B \e,LH\e(B \e,LI\e(B | |
858 | ;; \e,L,\e(B \e,L.\e(B \e,L/\e(B \e,LD\e(B \e,L3\e(B \e,LE\e(B \e,L9\e(B \e,L:\e(B \e,L;\e(B ;: '" \e,LM\e(B | |
859 | ;; \e,L7\e(B \e,LL\e(B \e,LF\e(B \e,L6\e(B \e,L1\e(B \e,L=\e(B \e,L<\e(B ,< .> /? | |
24b31c88 KH |
860 | |
861 | (quail-define-rules | |
862 | ("1" ?1) | |
863 | ("2" ?2) | |
864 | ("3" ?3) | |
865 | ("4" ?4) | |
866 | ("5" ?5) | |
867 | ("6" ?6) | |
868 | ("7" ?7) | |
869 | ("8" ?8) | |
870 | ("9" ?9) | |
871 | ("0" ?0) | |
872 | ("-" ?-) | |
e62b3a78 KH |
873 | ("=" ?\e,Lg\e(B) |
874 | ("`" ?\e,Ln\e(B) | |
875 | ("q" ?\e,Lo\e(B) | |
876 | ("w" ?\e,LR\e(B) | |
877 | ("e" ?\e,LU\e(B) | |
878 | ("r" ?\e,L`\e(B) | |
879 | ("t" ?\e,Lb\e(B) | |
880 | ("y" ?\e,Lk\e(B) | |
881 | ("u" ?\e,Lc\e(B) | |
882 | ("i" ?\e,LX\e(B) | |
883 | ("o" ?\e,L^\e(B) | |
884 | ("p" ?\e,L_\e(B) | |
885 | ("[" ?\e,Lh\e(B) | |
886 | ("]" ?\e,Li\e(B) | |
887 | ("a" ?\e,LP\e(B) | |
888 | ("s" ?\e,La\e(B) | |
889 | ("d" ?\e,LT\e(B) | |
890 | ("f" ?\e,Ld\e(B) | |
891 | ("g" ?\e,LS\e(B) | |
892 | ("h" ?\e,Le\e(B) | |
893 | ("j" ?\e,LY\e(B) | |
894 | ("k" ?\e,LZ\e(B) | |
895 | ("l" ?\e,L[\e(B) | |
24b31c88 KH |
896 | (";" ?\;) |
897 | ("'" ?') | |
e62b3a78 KH |
898 | ("\\" ?\e,Lm\e(B) |
899 | ("z" ?\e,LW\e(B) | |
900 | ("x" ?\e,Ll\e(B) | |
901 | ("c" ?\e,Lf\e(B) | |
902 | ("v" ?\e,LV\e(B) | |
903 | ("b" ?\e,LQ\e(B) | |
904 | ("n" ?\e,L]\e(B) | |
905 | ("m" ?\e,L\\e(B) | |
24b31c88 KH |
906 | ("," ?,) |
907 | ("." ?.) | |
908 | ("/" ?/) | |
177c0ea7 | 909 | |
24b31c88 | 910 | ("!" ?!) |
e62b3a78 KH |
911 | ("@" ?\e,Lq\e(B) |
912 | ("#" ?\e,Lj\e(B) | |
913 | ("$" ?\e,L!\e(B) | |
24b31c88 KH |
914 | ("%" ?%) |
915 | ("^" ?^) | |
916 | ("&" ?&) | |
917 | ("*" ?*) | |
918 | ("(" ?\() | |
919 | (")" ?\)) | |
920 | ("_" ?_) | |
e62b3a78 KH |
921 | ("+" ?\e,LG\e(B) |
922 | ("~" ?\e,LN\e(B) | |
923 | ("Q" ?\e,LO\e(B) | |
924 | ("W" ?\e,L2\e(B) | |
925 | ("E" ?\e,L5\e(B) | |
926 | ("R" ?\e,L@\e(B) | |
927 | ("T" ?\e,LB\e(B) | |
928 | ("Y" ?\e,LK\e(B) | |
929 | ("U" ?\e,LC\e(B) | |
930 | ("I" ?\e,L8\e(B) | |
931 | ("O" ?\e,L>\e(B) | |
932 | ("P" ?\e,L?\e(B) | |
933 | ("{" ?\e,LH\e(B) | |
934 | ("}" ?\e,LI\e(B) | |
935 | ("A" ?\e,L0\e(B) | |
936 | ("S" ?\e,LA\e(B) | |
937 | ("D" ?\e,L4\e(B) | |
938 | ("F" ?\e,LD\e(B) | |
939 | ("G" ?\e,L3\e(B) | |
940 | ("H" ?\e,LE\e(B) | |
941 | ("J" ?\e,L9\e(B) | |
942 | ("K" ?\e,L:\e(B) | |
943 | ("L" ?\e,L;\e(B) | |
24b31c88 KH |
944 | (":" ?:) |
945 | ("\"" ?\") | |
e62b3a78 KH |
946 | ("|" ?\e,LM\e(B) |
947 | ("Z" ?\e,L7\e(B) | |
948 | ("X" ?\e,LL\e(B) | |
949 | ("C" ?\e,LF\e(B) | |
950 | ("V" ?\e,L6\e(B) | |
951 | ("B" ?\e,L1\e(B) | |
952 | ("N" ?\e,L=\e(B) | |
953 | ("M" ?\e,L<\e(B) | |
24b31c88 KH |
954 | ("<" ?<) |
955 | (">" ?>) | |
956 | ("?" ??) | |
177c0ea7 | 957 | |
e62b3a78 KH |
958 | ("/q" ?\e,Lr\e(B) |
959 | ("/w" ?\e,Ls\e(B) | |
960 | ("/e" ?\e,Lt\e(B) | |
961 | ("/r" ?\e,Lu\e(B) | |
962 | ("/t" ?\e,Lv\e(B) | |
963 | ("/y" ?\e,Lw\e(B) | |
964 | ("/u" ?\e,Lx\e(B) | |
965 | ("/i" ?\e,Ly\e(B) | |
966 | ("/o" ?\e,Lz\e(B) | |
967 | ("/p" ?\e,L{\e(B) | |
968 | ("/a" ?\e,L|\e(B) | |
969 | ("/s" ?\e,L~\e(B) | |
970 | ("/d" ?\e,L\7f\e(B) | |
177c0ea7 | 971 | |
e62b3a78 KH |
972 | ("/Q" ?\e,L"\e(B) |
973 | ("/W" ?\e,L#\e(B) | |
974 | ("/E" ?\e,L$\e(B) | |
975 | ("/R" ?\e,L%\e(B) | |
976 | ("/T" ?\e,L&\e(B) | |
977 | ("/Y" ?\e,L'\e(B) | |
978 | ("/U" ?\e,L(\e(B) | |
979 | ("/I" ?\e,L)\e(B) | |
980 | ("/O" ?\e,L*\e(B) | |
981 | ("/P" ?\e,L+\e(B) | |
982 | ("/A" ?\e,L,\e(B) | |
983 | ("/S" ?\e,L.\e(B) | |
984 | ("/D" ?\e,L/\e(B)) | |
d2bf3910 RS |
985 | |
986 | ;; This was provided by Valery Alexeev <valery@domovoy.math.uga.edu>. | |
987 | ||
99edde43 DL |
988 | ;; Ognyan Kulev <ogi@fmi.uni-sofia.bg> wrote: |
989 | ||
990 | ;; I would suggest future `cyrillic-translit' to be with the | |
991 | ;; modification of `cyrillic-translit-bulgarian' applied and the | |
992 | ;; latter to disappear. It could be used by people who write | |
993 | ;; bulgarian e-mails with latin letters for kick start (phonetic input | |
994 | ;; method is not so obvious as translit input method but each letter | |
995 | ;; is one keypress and a *lot* of people know it). | |
996 | ||
997 | ;; Anton Zinoviev <anton@lml.bas.bg> wrote: | |
998 | ;; I would say that the main idea for cyrillic-translit is to be | |
999 | ;; language-independent and universal. It should be able to generate all | |
1000 | ;; Cyrillic symbols. | |
d2bf3910 | 1001 | (quail-define-package |
02df56e3 | 1002 | "cyrillic-translit" "Cyrillic" "\e,L6\e(Bt" t |
2bf2e47c | 1003 | "Intuitively transliterated keyboard layout. |
6b61353c KH |
1004 | Most convenient for entering Russian, but all Cyrillic characters |
1005 | are included. Should handle most cases. However: | |
e62b3a78 | 1006 | for \e,Lf\e(B (TSE) use \"c\", never \"ts\" |
2bf2e47c | 1007 | \e,Li\e(B (SHCHA = Bulgarian SHT) = \"shch\", \"sj\", \"/sht\" or \"/t\", |
86ec8cc5 | 1008 | \e,Lm\e(B (REVERSE ROUNDED E) = \"e\\\" |
e62b3a78 KH |
1009 | \e,Le\e(B (KHA) when after \e,La\e(B (S) = \"x\" or \"kh\" |
1010 | \e,Lj\e(B (HARD SIGN) = \"~\", \e,LJ\e(B (CAPITAL HARD SIGN) = \"~~\", | |
10ce5ba3 KH |
1011 | \e,Ll\e(B (SOFT SIGN) = \"'\", \e,LL\e(B (CAPITAL SOFT SIGN) = \"''\", |
1012 | \e,Lo\e(B (YA) = \"ya\", \"ja\" or \"q\". | |
1013 | ||
1014 | Russian alphabet: a b v=w g d e yo=jo zh z i j=j' k l m n o p r s t | |
86ec8cc5 | 1015 | u f h=kh=x c ch sh shch=sj=/s=/sht ~ y ' e\\ yu=ju ya=ja=q |
e62b3a78 | 1016 | |
b13f8bd5 MH |
1017 | Also included are Ukrainian \e,Lt\e(B (YE) = \"/e\", \e,Lw\e(B (YI) = \"yi\", |
1018 | \e$,1)Q\e(B (GHE WITH UPTURN) = \"g'\", | |
86ec8cc5 | 1019 | Belarusian \e,L~\e(B (SHORT U) = \"u~\", |
177c0ea7 | 1020 | Serbo-Croatian \e,Lr\e(B (DJE) = \"/d\", \e,L{\e(B (CHJE)= \"/ch\", |
2bf2e47c | 1021 | Macedonian \e,Ls\e(B (GJE) = \"/g\", \e,Lu\e(B (DZE) = \"/s\", \e,L|\e(B (KJE) = \"/k\", |
177c0ea7 | 1022 | cyrillic \e,Lv\e(B (I DECIMAL) = \"/i\", \e,Lx\e(B (JE) = \"/j\", |
2bf2e47c | 1023 | \e,Ly\e(B (LJE) = \"/l\", \e,Lz\e(B (NJE) = \"/n\" and \e,L\7f\e(B (DZE) =\"/z\"." |
f10f03e8 | 1024 | nil t t t t nil nil nil nil nil t) |
d2bf3910 RS |
1025 | |
1026 | (quail-define-rules | |
688085ea | 1027 | ("a" ?\e,LP\e(B) ("b" ?\e,LQ\e(B) ("v" ?\e,LR\e(B) ("w" ?\e,LR\e(B) ("g" ?\e,LS\e(B) ("d" ?\e,LT\e(B) |
177c0ea7 | 1028 | ("e" ?\e,LU\e(B) ("je" ?\e,LU\e(B) |
e423f944 | 1029 | ("yo" ?\e,Lq\e(B) ("jo" ?\e,Lq\e(B) |
177c0ea7 | 1030 | ("zh" ?\e,LV\e(B) ("z" ?\e,LW\e(B) ("i" ?\e,LX\e(B) |
5704dad1 | 1031 | ("j" ?\e,LY\e(B) ("j'" ?\e,LY\e(B) ("j`" ?\e,LY\e(B) ("k" ?\e,LZ\e(B) ("l" ?\e,L[\e(B) |
688085ea | 1032 | ("m" ?\e,L\\e(B) ("n" ?\e,L]\e(B) ("o" ?\e,L^\e(B) ("p" ?\e,L_\e(B) ("r" ?\e,L`\e(B) ("s" ?\e,La\e(B) ("t" ?\e,Lb\e(B) ("u" ?\e,Lc\e(B) |
86ec8cc5 | 1033 | ("f" ?\e,Ld\e(B) ("x" ?\e,Le\e(B) ("h" ?\e,Le\e(B) ("kh" ?\e,Le\e(B) |
e62b3a78 | 1034 | ("c" ?\e,Lf\e(B) ("ch" ?\e,Lg\e(B) |
177c0ea7 JB |
1035 | ("sh" ?\e,Lh\e(B) |
1036 | ("shch" ?\e,Li\e(B) ("sj" ?\e,Li\e(B) | |
1037 | ("/sht" ?\e,Li\e(B) ("/t" ?\e,Li\e(B) | |
86ec8cc5 | 1038 | ("~" ?\e,Lj\e(B) ("y" ?\e,Lk\e(B) ("'" ?\e,Ll\e(B) ("`" ?\e,Ll\e(B) |
f4949090 | 1039 | ("e\\" ?\e,Lm\e(B) ("e'" ?\e,Lm\e(B) ("e`" ?\e,Lm\e(B) ("@" ?\e,Lm\e(B) |
177c0ea7 | 1040 | ("yu" ?\e,Ln\e(B) ("ju" ?\e,Ln\e(B) |
10ce5ba3 | 1041 | ("ya" ?\e,Lo\e(B) ("ja" ?\e,Lo\e(B) ("q" ?\e,Lo\e(B) |
e62b3a78 | 1042 | |
688085ea | 1043 | ("A" ?\e,L0\e(B) ("B" ?\e,L1\e(B) ("V" ?\e,L2\e(B) ("W" ?\e,L2\e(B) ("G" ?\e,L3\e(B) ("D" ?\e,L4\e(B) |
5704dad1 | 1044 | ("E" ?\e,L5\e(B) ("Je" ?\e,L5\e(B) ("JE" ?\e,L5\e(B) |
e423f944 | 1045 | ("Yo" ?\e,L!\e(B) ("YO" ?\e,L!\e(B) ("Jo" ?\e,L!\e(B) ("JO" ?\e,L!\e(B) |
177c0ea7 | 1046 | ("Zh" ?\e,L6\e(B) ("ZH" ?\e,L6\e(B) ("Z" ?\e,L7\e(B) ("I" ?\e,L8\e(B) |
5704dad1 | 1047 | ("J" ?\e,L9\e(B) ("J'" ?\e,L9\e(B) ("J`" ?\e,L9\e(B) ("K" ?\e,L:\e(B) ("L" ?\e,L;\e(B) |
688085ea | 1048 | ("M" ?\e,L<\e(B) ("N" ?\e,L=\e(B) ("O" ?\e,L>\e(B) ("P" ?\e,L?\e(B) ("R" ?\e,L@\e(B) ("S" ?\e,LA\e(B) ("T" ?\e,LB\e(B) ("U" ?\e,LC\e(B) |
86ec8cc5 | 1049 | ("F" ?\e,LD\e(B) ("X" ?\e,LE\e(B) ("H" ?\e,LE\e(B) ("Kh" ?\e,LE\e(B) ("KH" ?\e,LE\e(B) |
177c0ea7 JB |
1050 | ("C" ?\e,LF\e(B) ("Ch" ?\e,LG\e(B) ("CH" ?\e,LG\e(B) |
1051 | ("Sh" ?\e,LH\e(B) ("SH" ?\e,LH\e(B) | |
1052 | ("Shch" ?\e,LI\e(B) ("SHCH" ?\e,LI\e(B) ("Sj" ?\e,LI\e(B) ("SJ" ?\e,LI\e(B) | |
1053 | ("/Sht" ?\e,LI\e(B) ("/SHT" ?\e,LI\e(B) ("/T" ?\e,LI\e(B) | |
86ec8cc5 | 1054 | ("~~" ?\e,LJ\e(B) ("Y" ?\e,LK\e(B) ("''" ?\e,LL\e(B) |
f4949090 | 1055 | ("E\\" ?\e,LM\e(B) ("E'" ?\e,LM\e(B) ("E`" ?\e,LM\e(B) ("@@" ?\e,LM\e(B) |
177c0ea7 | 1056 | ("Yu" ?\e,LN\e(B) ("YU" ?\e,LN\e(B) ("Ju" ?\e,LN\e(B) ("JU" ?\e,LN\e(B) |
10ce5ba3 | 1057 | ("Ya" ?\e,LO\e(B) ("YA" ?\e,LO\e(B) ("Ja" ?\e,LO\e(B) ("JA" ?\e,LO\e(B) ("Q" ?\e,LO\e(B) |
e62b3a78 | 1058 | |
f4949090 | 1059 | ("/e" ?\e,Lt\e(B) ("yi" ?\e,Lw\e(B) ("u'" ?\e,L~\e(B) ("u~" ?\e,L~\e(B) |
b13f8bd5 | 1060 | ("g'" ?\e$,1)Q\e(B) |
2bf2e47c RS |
1061 | ("/d" ?\e,Lr\e(B) ("/ch" ?\e,L{\e(B) |
1062 | ("/g" ?\e,Ls\e(B) ("/s" ?\e,Lu\e(B) ("/k" ?\e,L|\e(B) | |
1063 | ("/i" ?\e,Lv\e(B) ("/j" ?\e,Lx\e(B) ("/l" ?\e,Ly\e(B) ("/n" ?\e,Lz\e(B) ("/z" ?\e,L\7f\e(B) | |
f4949090 | 1064 | ("/E" ?\e,L$\e(B) ("YE" ?\e,L$\e(B) ("Yi" ?\e,L'\e(B) ("YI" ?\e,L'\e(B) ("U'" ?\e,L.\e(B) ("U~" ?\e,L.\e(B) |
b13f8bd5 | 1065 | ("G'" ?\e$,1)P\e(B) |
2bf2e47c | 1066 | ("/D" ?\e,L"\e(B) ("/Ch" ?\e,L+\e(B) ("/CH" ?\e,L+\e(B) |
177c0ea7 | 1067 | ("/G" ?\e,L#\e(B) ("/S" ?\e,L%\e(B) ("/K" ?\e,L,\e(B) |
2bf2e47c | 1068 | ("/I" ?\e,L&\e(B) ("/J" ?\e,L(\e(B) ("/L" ?\e,L)\e(B) ("/N" ?\e,L*\e(B) ("/Z" ?\e,L/\e(B) |
ee128870 | 1069 | |
f4949090 JL |
1070 | ;; Combining accents as a separate character |
1071 | ("//'" ?\e$(O+Z\e(B) ("//`" ?\e$(O+\\e(B) | |
1072 | ||
1073 | ;; In the following two rules the accent is not a separate character | |
1074 | ("i`" ?\e$,1(}\e(B) ("I`" ?\e$,1(-\e(B) | |
1075 | ||
688085ea JL |
1076 | ("/-" ?\e$(G!9\e(B) ;; EN DASH |
1077 | ("/--" ?\e$(G!7\e(B) ;; EM DASH | |
1078 | ("/*" ?\e$(O#@\e(B) ;; BULLET | |
1079 | ("/." ?\e$,1s$\e(B) ;; ONE DOT LEADER | |
1080 | ("/.." ?\e$(G!-\e(B) ;; TWO DOT LEADER | |
1081 | ("/..." ?\e$A!-\e(B) ;; HORIZONTAL ELLIPSIS | |
1082 | ("/,," ?\e,Y%\e(B) ;; DOUBLE LOW-9 QUOTATION MARK | |
1083 | ("/," ?\e$,1rz\e(B) ;; SINGLE LOW-9 QUOTATION MARK | |
1084 | ("/''" ?\e,Y!\e(B) ;; RIGHT DOUBLE QUOTATION MARK | |
1085 | ("/'" ?\e,F"\e(B) ;; RIGHT SINGLE QUOTATION MARK | |
1086 | ("/``" ?\e,Y4\e(B) ;; LEFT DOUBLE QUOTATION MARK | |
1087 | ("/`" ?\e,F!\e(B) ;; LEFT SINGLE QUOTATION MARK | |
1088 | ("/<<" ?\e,A+\e(B) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1089 | ("/>>" ?\e,A;\e(B) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK | |
1090 | ||
1091 | ("/&" ?\e,A'\e(B) | |
1092 | ("/ab" ?\e,A'\e(B) ; _\e,LPQ\e(B_\e,LWPf\e(B | |
1093 | ("/pa" ?\e,A'\e(B) ; _pa_ragraph | |
1094 | ("/#" ?\e,Lp\e(B) | |
1095 | ("/no" ?\e,Lp\e(B) ; _\e,L]^\e(B_\e,L\U`\e(B | |
1096 | ||
e423f944 TZ |
1097 | ("/c" ?\e,A)\e(B) |
1098 | ("/tm" ?\e$(D"o\e(B) | |
1099 | ("/reg" ?\e,A.\e(B) | |
f4949090 | 1100 | ("/eu" ?\e,b$\e(B) |
e423f944 TZ |
1101 | ("/ce" ?\e,A"\e(B) |
1102 | ||
1103 | ;; fractions | |
1104 | ("/78" ?\e$(C(~\e(B) | |
1105 | ("/58" ?\e$(C(}\e(B) | |
1106 | ("/38" ?\e$(C(|\e(B) | |
1107 | ("/18" ?\e$(C({\e(B) | |
1108 | ("/56" ?\e$,1v:\e(B) | |
1109 | ("/16" ?\e$,1v9\e(B) | |
1110 | ("/45" ?\e$,1v8\e(B) | |
1111 | ("/35" ?\e$,1v7\e(B) | |
1112 | ("/25" ?\e$,1v6\e(B) | |
1113 | ("/15" ?\e$(O'z\e(B) | |
1114 | ("/23" ?\e$(O'y\e(B) | |
1115 | ("/13" ?\e$(O'x\e(B) | |
1116 | ("/34" ?\e,A>\e(B) | |
1117 | ("/12" ?\e,A=\e(B) | |
1118 | ("/14" ?\e,A<\e(B) | |
1119 | ||
1120 | ;; Roman numerals, commonly used for months and section/subsection numbers | |
1121 | ("/RI" ?\e$A"q\e(B) | |
1122 | ("/RII" ?\e$A"r\e(B) | |
1123 | ("/RIII" ?\e$A"s\e(B) | |
1124 | ("/RIV" ?\e$A"t\e(B) | |
1125 | ("/RV" ?\e$A"u\e(B) | |
1126 | ("/RVI" ?\e$A"v\e(B) | |
1127 | ("/RVII" ?\e$A"w\e(B) | |
1128 | ("/RVIII" ?\e$A"x\e(B) | |
1129 | ("/RIX" ?\e$A"y\e(B) | |
1130 | ("/RX" ?\e$A"z\e(B) | |
1131 | ("/RXI" ?\e$A"{\e(B) | |
1132 | ("/RXII" ?\e$A"|\e(B) | |
1133 | ||
1134 | ("/ri" ?\e$(G&5\e(B) | |
1135 | ("/rii" ?\e$(G&6\e(B) | |
1136 | ("/riii" ?\e$(G&7\e(B) | |
1137 | ("/riv" ?\e$(G&8\e(B) | |
1138 | ("/rv" ?\e$(G&9\e(B) | |
1139 | ("/rvi" ?\e$(G&:\e(B) | |
1140 | ("/rvii" ?\e$(G&;\e(B) | |
1141 | ("/rviii" ?\e$(G&<\e(B) | |
1142 | ("/rix" ?\e$(G&=\e(B) | |
1143 | ("/rx" ?\e$(G&>\e(B) | |
1144 | ("/rxi" ?\e$(O,?\e(B) | |
1145 | ("/rxii" ?\e$(O,@\e(B) | |
d2bf3910 | 1146 | ) |
01a31469 | 1147 | |
99edde43 DL |
1148 | ;; Originally from Yudit's `Belarusian input table according to |
1149 | ;; STB955-94 belarusian standard' (not all) by Alexander Mikhailian | |
1150 | ;; <mikhailian@altern.org>, subsequently amended by AM. | |
734c9829 | 1151 | (quail-define-package |
99edde43 DL |
1152 | "belarusian" "Belarusian" "BE" nil |
1153 | "\e$,1(9(F(C(:(5(=\e(B keyboard layout registered as STB955-94 Belarusian standard. | |
1154 | Unicode based." | |
f10f03e8 | 1155 | nil t t t t nil nil nil nil nil t) |
734c9829 | 1156 | |
99edde43 | 1157 | ;; \e$,1(q(!\e(B 1! 2" 3N 4; 5% 6: 7? 8* 9( 0) -_ =+ |
6b61353c KH |
1158 | ;; \e$,1(9\e(B \e$,1(F\e(B \e$,1(C\e(B \e$,1(:\e(B \e$,1(5\e(B \e$,1(=\e(B \e$,1(3\e(B \e$,1(H\e(B \e$,1(.\e(B \e$,1(7\e(B \e$,1(E\e(B ' |
1159 | ;; \e$,1(D\e(B \e$,1(K\e(B \e$,1(2\e(B \e$,1(0\e(B \e$,1(?\e(B \e$,1(@\e(B \e$,1(>\e(B \e$,1(;\e(B \e$,1(4\e(B \e$,1(6\e(B \e$,1(M\e(B | |
99edde43 | 1160 | ;; \e$,1(O\e(B \e$,1(G\e(B \e$,1(A\e(B \e$,1(<\e(B \e$,1(&\e(B \e$,1(B\e(B \e$,1(L\e(B \e$,1(1\e(B \e$,1(N\e(B ., |
1d98bdd9 DL |
1161 | |
1162 | (quail-define-rules | |
1d98bdd9 | 1163 | ("~" ?\e$,1(!\e(B) |
1d98bdd9 DL |
1164 | ("@" ?\") |
1165 | ("#" ?\e$,1uV\e(B) | |
1166 | ("$" ?\;) | |
1167 | ("%" ?%) | |
1168 | ("^" ?:) | |
1169 | ("&" ??) | |
1d98bdd9 DL |
1170 | ("Q" ?\e$,1(9\e(B) |
1171 | ("W" ?\e$,1(F\e(B) | |
1172 | ("E" ?\e$,1(C\e(B) | |
1173 | ("R" ?\e$,1(:\e(B) | |
1174 | ("T" ?\e$,1(5\e(B) | |
1175 | ("Y" ?\e$,1(=\e(B) | |
1176 | ("U" ?\e$,1(3\e(B) | |
1177 | ("I" ?\e$,1(H\e(B) | |
1178 | ("O" ?\e$,1(.\e(B) | |
1179 | ("P" ?\e$,1(7\e(B) | |
1180 | ("{" ?\e$,1(E\e(B) | |
1181 | ("}" ?') | |
1182 | ("A" ?\e$,1(D\e(B) | |
1183 | ("S" ?\e$,1(K\e(B) | |
1184 | ("D" ?\e$,1(2\e(B) | |
1185 | ("F" ?\e$,1(0\e(B) | |
1186 | ("G" ?\e$,1(?\e(B) | |
1187 | ("H" ?\e$,1(@\e(B) | |
1188 | ("J" ?\e$,1(>\e(B) | |
1189 | ("K" ?\e$,1(;\e(B) | |
1190 | ("L" ?\e$,1(4\e(B) | |
1191 | (":" ?\e$,1(6\e(B) | |
1192 | ("\"" ?\e$,1(M\e(B) | |
99edde43 | 1193 | ("|" ?|) |
1d98bdd9 DL |
1194 | ("Z" ?\e$,1(O\e(B) |
1195 | ("X" ?\e$,1(G\e(B) | |
1196 | ("C" ?\e$,1(A\e(B) | |
1197 | ("V" ?\e$,1(<\e(B) | |
1198 | ("B" ?\e$,1(&\e(B) | |
1199 | ("N" ?\e$,1(B\e(B) | |
1200 | ("M" ?\e$,1(L\e(B) | |
1201 | ("<" ?\e$,1(1\e(B) | |
1202 | (">" ?\e$,1(N\e(B) | |
1203 | ("?" ?,) | |
1204 | ||
1205 | ("`" ?\e$,1(q\e(B) | |
1d98bdd9 DL |
1206 | ("q" ?\e$,1(Y\e(B) |
1207 | ("w" ?\e$,1(f\e(B) | |
1208 | ("e" ?\e$,1(c\e(B) | |
1209 | ("r" ?\e$,1(Z\e(B) | |
1210 | ("t" ?\e$,1(U\e(B) | |
1211 | ("y" ?\e$,1(]\e(B) | |
1212 | ("u" ?\e$,1(S\e(B) | |
1213 | ("i" ?\e$,1(h\e(B) | |
1214 | ("o" ?\e$,1(~\e(B) | |
1215 | ("p" ?\e$,1(W\e(B) | |
1216 | ("[" ?\e$,1(e\e(B) | |
1217 | ("]" ?') | |
1218 | ("a" ?\e$,1(d\e(B) | |
1219 | ("s" ?\e$,1(k\e(B) | |
1220 | ("d" ?\e$,1(R\e(B) | |
1221 | ("f" ?\e$,1(P\e(B) | |
1222 | ("g" ?\e$,1(_\e(B) | |
1223 | ("h" ?\e$,1(`\e(B) | |
1224 | ("j" ?\e$,1(^\e(B) | |
1225 | ("k" ?\e$,1([\e(B) | |
1226 | ("l" ?\e$,1(T\e(B) | |
1227 | (";" ?\e$,1(V\e(B) | |
1228 | ("'" ?\e$,1(m\e(B) | |
1d98bdd9 DL |
1229 | ("z" ?\e$,1(o\e(B) |
1230 | ("x" ?\e$,1(g\e(B) | |
1231 | ("c" ?\e$,1(a\e(B) | |
1232 | ("v" ?\e$,1(\\e(B) | |
1233 | ("b" ?\e$,1(v\e(B) | |
1234 | ("n" ?\e$,1(b\e(B) | |
1235 | ("m" ?\e$,1(l\e(B) | |
1236 | ("," ?\e$,1(Q\e(B) | |
1237 | ("." ?\e$,1(n\e(B) | |
99edde43 | 1238 | ("/" ?.)) |
1d98bdd9 | 1239 | |
4e0ba44e DL |
1240 | ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov |
1241 | ;; <al_shopov@web.bg>. | |
1242 | ||
1243 | ;; Extra commentary and the indicator from an independent | |
1244 | ;; (cyrillic-iso8859-5) implementation by Ognyan Kulev | |
99edde43 DL |
1245 | ;; <ogi@fmi.uni-sofia.bg> and name changes from Anton Zinoviev |
1246 | ;; <anton@lml.bas.bg>. | |
1d98bdd9 | 1247 | (quail-define-package |
99edde43 | 1248 | "bulgarian-phonetic" "Bulgarian" "\e$,1(6(1(D\e(B" |
1d98bdd9 | 1249 | nil |
99edde43 | 1250 | "Bulgarian Phonetic keyboard layout, producing Unicode. |
4e0ba44e DL |
1251 | |
1252 | The layout is similar to `cyrillic-translit', but all Bulgarian | |
99edde43 DL |
1253 | characters are typed with a single key. |
1254 | ||
6b61353c KH |
1255 | Use /& for \e,A'\e(B (Cyrillic paragraph) and /# for \e$,1uV\e(B. |
1256 | ||
1257 | The letters \e$,1(G\e(B, \e$,1(H\e(B, \e$,1(I\e(B and \e$,1(N\e(B are not affected by Caps Lock." | |
1d98bdd9 DL |
1258 | nil t t t t nil nil nil nil nil t) |
1259 | ||
6b61353c KH |
1260 | ;; \e$,1(G\e(B |
1261 | ;; \e$,1(O\e(B \e$,1(2\e(B \e$,1(5\e(B \e$,1(@\e(B \e$,1(B\e(B \e$,1(J\e(B \e$,1(C\e(B \e$,1(8\e(B \e$,1(>\e(B \e$,1(?\e(B \e$,1(H\e(B \e$,1(I\e(B | |
1262 | ;; \e$,1(0\e(B \e$,1(A\e(B \e$,1(4\e(B \e$,1(D\e(B \e$,1(3\e(B \e$,1(E\e(B \e$,1(9\e(B \e$,1(:\e(B \e$,1(;\e(B \e$,1(N\e(B | |
1263 | ;; \e$,1(7\e(B \e$,1(L\e(B \e$,1(F\e(B \e$,1(6\e(B \e$,1(1\e(B \e$,1(=\e(B \e$,1(<\e(B | |
4e0ba44e | 1264 | |
1d98bdd9 | 1265 | (quail-define-rules |
99edde43 DL |
1266 | ("/&" ?\e,A'\e(B) |
1267 | ("/#" ?\e$,1uV\e(B) | |
1d98bdd9 DL |
1268 | ("A" ?\e$,1(0\e(B) |
1269 | ("B" ?\e$,1(1\e(B) | |
1270 | ("W" ?\e$,1(2\e(B) | |
1271 | ("G" ?\e$,1(3\e(B) | |
1272 | ("D" ?\e$,1(4\e(B) | |
1273 | ("E" ?\e$,1(5\e(B) | |
1274 | ("V" ?\e$,1(6\e(B) | |
1275 | ("Z" ?\e$,1(7\e(B) | |
1276 | ("I" ?\e$,1(8\e(B) | |
1277 | ("J" ?\e$,1(9\e(B) | |
1278 | ("K" ?\e$,1(:\e(B) | |
1279 | ("L" ?\e$,1(;\e(B) | |
1280 | ("M" ?\e$,1(<\e(B) | |
1281 | ("N" ?\e$,1(=\e(B) | |
1282 | ("O" ?\e$,1(>\e(B) | |
1283 | ("P" ?\e$,1(?\e(B) | |
1284 | ("R" ?\e$,1(@\e(B) | |
1285 | ("S" ?\e$,1(A\e(B) | |
1286 | ("T" ?\e$,1(B\e(B) | |
1287 | ("U" ?\e$,1(C\e(B) | |
1288 | ("F" ?\e$,1(D\e(B) | |
1289 | ("H" ?\e$,1(E\e(B) | |
1290 | ("C" ?\e$,1(F\e(B) | |
1291 | ("~" ?\e$,1(G\e(B) | |
1292 | ("{" ?\e$,1(H\e(B) | |
1293 | ("}" ?\e$,1(I\e(B) | |
1294 | ("Y" ?\e$,1(J\e(B) | |
1295 | ("X" ?\e$,1(L\e(B) | |
1296 | ("|" ?\e$,1(N\e(B) | |
1297 | ("Q" ?\e$,1(O\e(B) | |
1298 | ("a" ?\e$,1(P\e(B) | |
1299 | ("b" ?\e$,1(Q\e(B) | |
1300 | ("w" ?\e$,1(R\e(B) | |
1301 | ("g" ?\e$,1(S\e(B) | |
1302 | ("d" ?\e$,1(T\e(B) | |
1303 | ("e" ?\e$,1(U\e(B) | |
1304 | ("v" ?\e$,1(V\e(B) | |
1305 | ("z" ?\e$,1(W\e(B) | |
1306 | ("i" ?\e$,1(X\e(B) | |
1307 | ("j" ?\e$,1(Y\e(B) | |
1308 | ("k" ?\e$,1(Z\e(B) | |
1309 | ("l" ?\e$,1([\e(B) | |
1310 | ("m" ?\e$,1(\\e(B) | |
1311 | ("n" ?\e$,1(]\e(B) | |
1312 | ("o" ?\e$,1(^\e(B) | |
1313 | ("p" ?\e$,1(_\e(B) | |
1314 | ("r" ?\e$,1(`\e(B) | |
1315 | ("s" ?\e$,1(a\e(B) | |
1316 | ("t" ?\e$,1(b\e(B) | |
1317 | ("u" ?\e$,1(c\e(B) | |
1318 | ("f" ?\e$,1(d\e(B) | |
1319 | ("h" ?\e$,1(e\e(B) | |
1320 | ("c" ?\e$,1(f\e(B) | |
1321 | ("`" ?\e$,1(g\e(B) | |
1322 | ("[" ?\e$,1(h\e(B) | |
1323 | ("]" ?\e$,1(i\e(B) | |
1324 | ("y" ?\e$,1(j\e(B) | |
1325 | ("x" ?\e$,1(l\e(B) | |
1326 | ("\\" ?\e$,1(n\e(B) | |
1327 | ("q" ?\e$,1(o\e(B)) | |
1328 | ||
99edde43 DL |
1329 | ;; Based on an implementation by Ognyan Kulev <ogi@fmi.uni-sofia.bg>. |
1330 | ;; This follows XKB bg. | |
1331 | ||
1332 | (quail-define-package | |
1333 | "bulgarian-bds" "Bulgarian" "\e$,1(1(4(A\e(B" nil | |
1334 | "Bulgarian standard keyboard layout (BDS) | |
1335 | ||
6b61353c KH |
1336 | This keyboard layout is standard for Bulgarian typewriters. |
1337 | ||
1338 | The letters \e$,1(F\e(B, \e$,1(<\e(B, \e$,1(G\e(B, \e$,1(@\e(B, \e$,1(;\e(B, \e$,1(1\e(B and \e$,1(K\e(B are not affected by Caps Lock. | |
1339 | ||
1340 | In addition to original Bulgarian typewriter layout, keys \\ and | | |
1341 | are transformed into ' and \e$,1(K\e(B respectively. Some keyboards mark these | |
1342 | keys as being transformed into ( and ) respectively. For ( and ), use | |
1343 | ` and ~ respectively. This input method follows XKB." | |
99edde43 DL |
1344 | nil t t t t nil nil nil nil nil t) |
1345 | ||
6b61353c KH |
1346 | ;; () 1! 2? 3+ 4" 5% 6= 7: 8/ 9_ 0\e$,1uV\e(B -I .V |
1347 | ;; ,\e$,1(k\e(B \e$,1(C\e(B \e$,1(5\e(B \e$,1(8\e(B \e$,1(H\e(B \e$,1(I\e(B \e$,1(:\e(B \e$,1(A\e(B \e$,1(4\e(B \e$,1(7\e(B \e$,1(F\e(B ;\e,A'\e(B | |
1348 | ;; \e$,1(L\e(B \e$,1(O\e(B \e$,1(0\e(B \e$,1(>\e(B \e$,1(6\e(B \e$,1(3\e(B \e$,1(B\e(B \e$,1(=\e(B \e$,1(2\e(B \e$,1(<\e(B \e$,1(G\e(B '\e$,1(K\e(B | |
1349 | ;; \e$,1(N\e(B \e$,1(9\e(B \e$,1(J\e(B \e$,1(M\e(B \e$,1(D\e(B \e$,1(E\e(B \e$,1(?\e(B \e$,1(@\e(B \e$,1(;\e(B \e$,1(1\e(B | |
99edde43 DL |
1350 | |
1351 | (quail-define-rules | |
1352 | ||
1353 | ("1" ?1) ("!" ?!) | |
6b61353c KH |
1354 | ("2" ?2) ("@" ??) |
1355 | ("3" ?3) ("#" ?+) | |
1356 | ("4" ?4) ("$" ?\") | |
99edde43 | 1357 | ("5" ?5) ("%" ?%) |
6b61353c KH |
1358 | ("6" ?6) ("^" ?=) |
1359 | ("7" ?7) ("&" ?:) | |
1360 | ("8" ?8) ("*" ?/) | |
1361 | ("9" ?9) ("(" ?_) | |
1362 | ("0" ?0) (")" ?\e$,1uV\e(B) | |
1363 | ("-" ?-) ("_" ?I) | |
99edde43 DL |
1364 | ("=" ?.) ("+" ?V) |
1365 | ||
1366 | ("q" ?,) ("Q" ?\e$,1(k\e(B) | |
1367 | ("w" ?\e$,1(c\e(B) ("W" ?\e$,1(C\e(B) | |
1368 | ("e" ?\e$,1(U\e(B) ("E" ?\e$,1(5\e(B) | |
1369 | ("r" ?\e$,1(X\e(B) ("R" ?\e$,1(8\e(B) | |
1370 | ("t" ?\e$,1(h\e(B) ("T" ?\e$,1(H\e(B) | |
1371 | ("y" ?\e$,1(i\e(B) ("Y" ?\e$,1(I\e(B) | |
1372 | ("u" ?\e$,1(Z\e(B) ("U" ?\e$,1(:\e(B) | |
1373 | ("i" ?\e$,1(a\e(B) ("I" ?\e$,1(A\e(B) | |
1374 | ("o" ?\e$,1(T\e(B) ("O" ?\e$,1(4\e(B) | |
1375 | ("p" ?\e$,1(W\e(B) ("P" ?\e$,1(7\e(B) | |
1376 | ("[" ?\e$,1(f\e(B) ("{" ?\e$,1(F\e(B) | |
6b61353c | 1377 | ("]" ?\;) ("}" ?\e,A'\e(B) |
99edde43 DL |
1378 | |
1379 | ("a" ?\e$,1(l\e(B) ("A" ?\e$,1(L\e(B) | |
1380 | ("s" ?\e$,1(o\e(B) ("S" ?\e$,1(O\e(B) | |
1381 | ("d" ?\e$,1(P\e(B) ("D" ?\e$,1(0\e(B) | |
1382 | ("f" ?\e$,1(^\e(B) ("F" ?\e$,1(>\e(B) | |
1383 | ("g" ?\e$,1(V\e(B) ("G" ?\e$,1(6\e(B) | |
1384 | ("h" ?\e$,1(S\e(B) ("H" ?\e$,1(3\e(B) | |
1385 | ("j" ?\e$,1(b\e(B) ("J" ?\e$,1(B\e(B) | |
1386 | ("k" ?\e$,1(]\e(B) ("K" ?\e$,1(=\e(B) | |
1387 | ("l" ?\e$,1(R\e(B) ("L" ?\e$,1(2\e(B) | |
1388 | (";" ?\e$,1(\\e(B) (":" ?\e$,1(<\e(B) | |
1389 | ("'" ?\e$,1(g\e(B) ("\"" ?\e$,1(G\e(B) | |
1390 | ("`" ?\() ("~" ?\)) | |
1391 | ||
1392 | ("z" ?\e$,1(n\e(B) ("Z" ?\e$,1(N\e(B) | |
1393 | ("x" ?\e$,1(Y\e(B) ("X" ?\e$,1(9\e(B) | |
1394 | ("c" ?\e$,1(j\e(B) ("C" ?\e$,1(J\e(B) | |
1395 | ("v" ?\e$,1(m\e(B) ("V" ?\e$,1(M\e(B) | |
1396 | ("b" ?\e$,1(d\e(B) ("B" ?\e$,1(D\e(B) | |
1397 | ("n" ?\e$,1(e\e(B) ("N" ?\e$,1(E\e(B) | |
1398 | ("m" ?\e$,1(_\e(B) ("M" ?\e$,1(?\e(B) | |
1399 | ("," ?\e$,1(`\e(B) ("<" ?\e$,1(@\e(B) | |
1400 | ("." ?\e$,1([\e(B) (">" ?\e$,1(;\e(B) | |
1401 | ("/" ?\e$,1(Q\e(B) ("?" ?\e$,1(1\e(B) | |
1402 | ("\\" ?') ("|" ?\e$,1(K\e(B)) | |
1403 | ||
01a31469 | 1404 | ;; Local Variables: |
1d98bdd9 | 1405 | ;; coding: iso-2022-7bit |
01a31469 | 1406 | ;; End: |
be567141 | 1407 | |
3d544458 | 1408 | ;; arch-tag: e6d34b16-8710-4181-a17e-819a1df0334f |
be567141 | 1409 | ;;; cyrillic.el ends here |