Commit | Line | Data |
---|---|---|
25d90e68 RS |
1 | ;;; quail/slovak.el -- Quail package for inputting Slovak |
2 | ||
3 | ;; Copyright (C) 1998 Free Software Foundation. | |
4 | ||
5 | ;; Authors: Tibor \e,B)\e(Bimko <tibor.simko@fmph.uniba.sk>, | |
6 | ;; Milan Zamazal <pdm@fi.muni.cz> | |
7 | ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz> | |
8 | ;; Keywords: multilingual, input method, Slovak | |
9 | ||
0593f446 KH |
10 | ;; This file is part of GNU Emacs. |
11 | ||
12 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 | ;; it under the terms of the GNU General Public License as published by | |
14 | ;; the Free Software Foundation; either version 2, or (at your option) | |
15 | ;; any later version. | |
16 | ||
17 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 | ;; GNU General Public License for more details. | |
21 | ||
22 | ;; You should have received a copy of the GNU General Public License | |
23 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 | ;; Boston, MA 02111-1307, USA. | |
25d90e68 RS |
26 | |
27 | ;;; Commentary: | |
28 | ||
29 | ;; This setups some Slovak keyboards: | |
30 | ;; - standard Slovak keyboard | |
31 | ;; - three Slovak keyboards for programmers | |
32 | ||
25d90e68 RS |
33 | ;;; Code: |
34 | ||
35 | (require 'quail) | |
36 | ||
37 | ||
38 | (quail-define-package | |
39 | "slovak" "Slovak" "SK" nil | |
40 | "Standard Slovak keyboard." | |
41 | nil t nil nil nil nil nil nil nil nil t) | |
42 | ||
43 | (quail-define-rules | |
44 | ("1" ?+) | |
45 | ("2" ?\e,B5\e(B) | |
46 | ("3" ?\e,B9\e(B) | |
47 | ("4" ?\e,Bh\e(B) | |
48 | ("5" ?\e,B;\e(B) | |
49 | ("6" ?\e,B>\e(B) | |
50 | ("7" ?\e,B}\e(B) | |
51 | ("8" ?\e,Ba\e(B) | |
52 | ("9" ?\e,Bm\e(B) | |
53 | ("0" ?\e,Bi\e(B) | |
54 | ("!" ?1) | |
55 | ("@" ?2) | |
56 | ("#" ?3) | |
57 | ("$" ?4) | |
58 | ("%" ?5) | |
59 | ("^" ?6) | |
60 | ("&" ?7) | |
61 | ("*" ?8) | |
62 | ("(" ?9) | |
63 | (")" ?0) | |
64 | ("q" ?`) | |
65 | ("Q" ?`) | |
66 | ("-" ?=) | |
67 | ("_" ?%) | |
68 | ("=" ?') | |
69 | ("[" ?\e,Bz\e(B) | |
70 | ("{" ?/) | |
71 | ("]" ?\e,Bd\e(B) | |
72 | ("}" ?\() | |
73 | ("\\" ?\e,Br\e(B) | |
74 | ("|" ?\)) | |
75 | (";" ?\e,Bt\e(B) | |
76 | (":" ?\") | |
77 | ("'" ?\e,B'\e(B) | |
78 | ("\"" ?!) | |
79 | ("<" ??) | |
80 | (">" ?:) | |
81 | ("/" ?-) | |
82 | ("?" ?_) | |
83 | ("`" ?\;) | |
84 | ("~" ?^) | |
85 | ("y" ?z) | |
86 | ("z" ?y) | |
87 | ("Y" ?Z) | |
88 | ("Z" ?Y) | |
89 | ("=a" ?\e,Ba\e(B) | |
90 | ("+a" ?\e,Bd\e(B) | |
91 | ("+=a" ?\e,Bd\e(B) | |
92 | ("+c" ?\e,Bh\e(B) | |
93 | ("+d" ?\e,Bo\e(B) | |
94 | ("=e" ?\e,Bi\e(B) | |
95 | ("+e" ?\e,Bl\e(B) | |
96 | ("=i" ?\e,Bm\e(B) | |
97 | ("=l" ?\e,Be\e(B) | |
98 | ("+l" ?\e,B5\e(B) | |
99 | ("+n" ?\e,Br\e(B) | |
100 | ("=o" ?\e,Bs\e(B) | |
101 | ("+o" ?\e,Bt\e(B) | |
102 | ("~o" ?\e,Bt\e(B) | |
103 | ("+=o" ?\e,Bv\e(B) | |
104 | ("=r" ?\e,B`\e(B) | |
105 | ("+r" ?\e,Bx\e(B) | |
106 | ("=s" ?\e,B_\e(B) | |
107 | ("+s" ?\e,B9\e(B) | |
108 | ("+t" ?\e,B;\e(B) | |
109 | ("=u" ?\e,Bz\e(B) | |
110 | ("+u" ?\e,By\e(B) | |
111 | ("+=u" ?\e,B|\e(B) | |
112 | ("=z" ?\e,B}\e(B) | |
113 | ("+y" ?\e,B>\e(B) | |
114 | ("=A" ?\e,BA\e(B) | |
115 | ("+A" ?\e,BD\e(B) | |
116 | ("+=A" ?\e,BD\e(B) | |
117 | ("+C" ?\e,BH\e(B) | |
118 | ("+D" ?\e,BO\e(B) | |
119 | ("=E" ?\e,BI\e(B) | |
120 | ("+E" ?\e,BL\e(B) | |
121 | ("=I" ?\e,BM\e(B) | |
122 | ("=L" ?\e,BE\e(B) | |
123 | ("+L" ?\e,B%\e(B) | |
124 | ("+N" ?\e,BR\e(B) | |
125 | ("=O" ?\e,BS\e(B) | |
126 | ("+O" ?\e,BT\e(B) | |
127 | ("~O" ?\e,BT\e(B) | |
128 | ("+=O" ?\e,BV\e(B) | |
129 | ("=R" ?\e,B@\e(B) | |
130 | ("+R" ?\e,BX\e(B) | |
131 | ("=S" ?\e,B_\e(B) | |
132 | ("+S" ?\e,B)\e(B) | |
133 | ("+T" ?\e,B+\e(B) | |
134 | ("=U" ?\e,BZ\e(B) | |
135 | ("+U" ?\e,BY\e(B) | |
136 | ("+=U" ?\e,B\\e(B) | |
137 | ("=Z" ?\e,B]\e(B) | |
138 | ("+Y" ?\e,B.\e(B) | |
139 | ("=q" ?q) | |
140 | ("+q" ?q) | |
141 | ("=Q" ?Q) | |
142 | ("+Q" ?Q) | |
143 | ("=2" ?@) | |
144 | ("=3" ?#) | |
145 | ("=4" ?$) | |
146 | ("=5" ?%) | |
147 | ("=6" ?^) | |
148 | ("=7" ?&) | |
149 | ("=8" ?*) | |
150 | ("=9" ?\() | |
151 | ("=0" ?\)) | |
152 | ("+1" ?!) | |
153 | ("+2" ?@) | |
154 | ("+3" ?#) | |
155 | ("+4" ?$) | |
156 | ("+5" ?%) | |
157 | ("+6" ?^) | |
158 | ("+7" ?&) | |
159 | ("+8" ?*) | |
160 | ("+9" ?\() | |
161 | ("+0" ?\)) | |
162 | ([kp-1] ?1) | |
163 | ([kp-2] ?2) | |
164 | ([kp-3] ?3) | |
165 | ([kp-4] ?4) | |
166 | ([kp-5] ?5) | |
167 | ([kp-6] ?6) | |
168 | ([kp-7] ?7) | |
169 | ([kp-8] ?8) | |
170 | ([kp-9] ?9) | |
171 | ([kp-0] ?0) | |
172 | ([kp-add] ?+)) | |
173 | ||
174 | ||
175 | (quail-define-package | |
176 | "slovak-prog-1" "Slovak" "SK" nil | |
177 | "Slovak (non-standard) keyboard for programmers #1. | |
178 | ||
179 | All digits except of `1' are replaced by Slovak characters as on the standard | |
180 | Slovak keyboard. | |
181 | Dead keys are on `[', `[[', and `[[['. | |
182 | All other keys are the same as on standard US keyboard." | |
183 | nil t nil nil nil nil nil nil nil nil t) | |
184 | ||
185 | (quail-define-rules | |
186 | ("[[[[" ?\[) | |
187 | ("2" ?\e,B5\e(B) | |
188 | ("3" ?\e,B9\e(B) | |
189 | ("4" ?\e,Bh\e(B) | |
190 | ("5" ?\e,B;\e(B) | |
191 | ("6" ?\e,B>\e(B) | |
192 | ("7" ?\e,B}\e(B) | |
193 | ("8" ?\e,Ba\e(B) | |
194 | ("9" ?\e,Bm\e(B) | |
195 | ("0" ?\e,Bi\e(B) | |
196 | ("[a" ?\e,Ba\e(B) | |
197 | ("[[a" ?\e,Bd\e(B) | |
198 | ("[[[a" ?\e,Bd\e(B) | |
199 | ("[c" ?\e,Bh\e(B) | |
200 | ("[[c" ?\e,Bh\e(B) | |
201 | ("[d" ?\e,Bo\e(B) | |
202 | ("[[d" ?\e,Bo\e(B) | |
203 | ("[e" ?\e,Bi\e(B) | |
204 | ("[[e" ?\e,Bl\e(B) | |
205 | ("[i" ?\e,Bm\e(B) | |
206 | ("[l" ?\e,Be\e(B) | |
207 | ("[[l" ?\e,B5\e(B) | |
208 | ("[n" ?\e,Br\e(B) | |
209 | ("[[n" ?\e,Br\e(B) | |
210 | ("[o" ?\e,Bs\e(B) | |
211 | ("[[o" ?\e,Bt\e(B) | |
212 | ("[[[o" ?\e,Bv\e(B) | |
213 | ("[r" ?\e,B`\e(B) | |
214 | ("[[r" ?\e,Bx\e(B) | |
215 | ("[s" ?\e,B9\e(B) | |
216 | ("[[s" ?\e,B9\e(B) | |
217 | ("[[[s" ?\e,B_\e(B) | |
218 | ("[t" ?\e,B;\e(B) | |
219 | ("[[t" ?\e,B;\e(B) | |
220 | ("[u" ?\e,Bz\e(B) | |
221 | ("[[u" ?\e,By\e(B) | |
222 | ("[[[u" ?\e,B|\e(B) | |
223 | ("[y" ?\e,B}\e(B) | |
224 | ("[z" ?\e,B>\e(B) | |
225 | ("[[z" ?\e,B>\e(B) | |
226 | ("[A" ?\e,BA\e(B) | |
227 | ("[[A" ?\e,BD\e(B) | |
228 | ("[[[A" ?\e,BD\e(B) | |
229 | ("[C" ?\e,BH\e(B) | |
230 | ("[[C" ?\e,BH\e(B) | |
231 | ("[D" ?\e,BO\e(B) | |
232 | ("[[D" ?\e,BO\e(B) | |
233 | ("[E" ?\e,BI\e(B) | |
234 | ("[[E" ?\e,BL\e(B) | |
235 | ("[I" ?\e,BM\e(B) | |
236 | ("[L" ?\e,BE\e(B) | |
237 | ("[[L" ?\e,B%\e(B) | |
238 | ("[N" ?\e,BR\e(B) | |
239 | ("[[N" ?\e,BR\e(B) | |
240 | ("[O" ?\e,BS\e(B) | |
241 | ("[[O" ?\e,BT\e(B) | |
242 | ("[[[O" ?\e,BV\e(B) | |
243 | ("[R" ?\e,B@\e(B) | |
244 | ("[[R" ?\e,BX\e(B) | |
245 | ("[S" ?\e,B)\e(B) | |
246 | ("[[S" ?\e,B)\e(B) | |
247 | ("[[[S" ?\e,B_\e(B) | |
248 | ("[T" ?\e,B+\e(B) | |
249 | ("[[T" ?\e,B+\e(B) | |
250 | ("[U" ?\e,BZ\e(B) | |
251 | ("[[U" ?\e,BY\e(B) | |
252 | ("[[[U" ?\e,B\\e(B) | |
253 | ("[Y" ?\e,B]\e(B) | |
254 | ("[Z" ?\e,B.\e(B) | |
255 | ("[[Z" ?\e,B.\e(B) | |
256 | ([kp-1] ?1) | |
257 | ([kp-2] ?2) | |
258 | ([kp-3] ?3) | |
259 | ([kp-4] ?4) | |
260 | ([kp-5] ?5) | |
261 | ([kp-6] ?6) | |
262 | ([kp-7] ?7) | |
263 | ([kp-8] ?8) | |
264 | ([kp-9] ?9) | |
265 | ([kp-0] ?0) | |
266 | ([kp-add] ?+)) | |
267 | ||
268 | ||
269 | (quail-define-package | |
270 | "slovak-prog-2" "Slovak" "SK" nil | |
271 | "Slovak (non-standard) keyboard for programmers #2. | |
272 | ||
273 | All digits except of `1' are replaced by Slovak characters as on the standard | |
274 | Slovak keyboard. | |
275 | Dead keys are on `=' and `+'. | |
276 | All other keys are the same as on standard US keyboard." | |
277 | nil t nil nil nil nil nil nil nil nil t) | |
278 | ||
279 | (quail-define-rules | |
280 | ("2" ?\e,B5\e(B) | |
281 | ("3" ?\e,B9\e(B) | |
282 | ("4" ?\e,Bh\e(B) | |
283 | ("5" ?\e,B;\e(B) | |
284 | ("6" ?\e,B>\e(B) | |
285 | ("7" ?\e,B}\e(B) | |
286 | ("8" ?\e,Ba\e(B) | |
287 | ("9" ?\e,Bm\e(B) | |
288 | ("0" ?\e,Bi\e(B) | |
289 | ("==" ?=) | |
290 | ("++" ?+) | |
291 | ("=+" ?+) | |
292 | ("=2" ?2) | |
293 | ("=3" ?3) | |
294 | ("=4" ?4) | |
295 | ("=5" ?5) | |
296 | ("=6" ?6) | |
297 | ("=7" ?7) | |
298 | ("=8" ?8) | |
299 | ("=9" ?9) | |
300 | ("=0" ?0) | |
301 | ("+2" ?2) | |
302 | ("+3" ?3) | |
303 | ("+4" ?4) | |
304 | ("+5" ?5) | |
305 | ("+6" ?6) | |
306 | ("+7" ?7) | |
307 | ("+8" ?8) | |
308 | ("+9" ?9) | |
309 | ("+0" ?0) | |
310 | ("=a" ?\e,Ba\e(B) | |
311 | ("+a" ?\e,Bd\e(B) | |
312 | ("+=a" ?\e,Bd\e(B) | |
313 | ("+c" ?\e,Bh\e(B) | |
314 | ("+d" ?\e,Bo\e(B) | |
315 | ("=e" ?\e,Bi\e(B) | |
316 | ("+e" ?\e,Bl\e(B) | |
317 | ("=i" ?\e,Bm\e(B) | |
318 | ("=l" ?\e,Be\e(B) | |
319 | ("+l" ?\e,B5\e(B) | |
320 | ("+n" ?\e,Br\e(B) | |
321 | ("=o" ?\e,Bs\e(B) | |
322 | ("+o" ?\e,Bt\e(B) | |
323 | ("+=o" ?\e,Bv\e(B) | |
324 | ("=r" ?\e,B`\e(B) | |
325 | ("+r" ?\e,Bx\e(B) | |
326 | ("=s" ?\e,B_\e(B) | |
327 | ("+s" ?\e,B9\e(B) | |
328 | ("+t" ?\e,B;\e(B) | |
329 | ("=u" ?\e,Bz\e(B) | |
330 | ("+u" ?\e,By\e(B) | |
331 | ("+=u" ?\e,B|\e(B) | |
332 | ("=y" ?\e,B}\e(B) | |
333 | ("+z" ?\e,B>\e(B) | |
334 | ("=A" ?\e,BA\e(B) | |
335 | ("+A" ?\e,BD\e(B) | |
336 | ("+=A" ?\e,BD\e(B) | |
337 | ("+C" ?\e,BH\e(B) | |
338 | ("+D" ?\e,BO\e(B) | |
339 | ("=E" ?\e,BI\e(B) | |
340 | ("+E" ?\e,BL\e(B) | |
341 | ("=I" ?\e,BM\e(B) | |
342 | ("=L" ?\e,BE\e(B) | |
343 | ("+L" ?\e,B%\e(B) | |
344 | ("+N" ?\e,BR\e(B) | |
345 | ("=O" ?\e,BS\e(B) | |
346 | ("+O" ?\e,BT\e(B) | |
347 | ("+=O" ?\e,BV\e(B) | |
348 | ("=R" ?\e,B@\e(B) | |
349 | ("+R" ?\e,BX\e(B) | |
350 | ("=S" ?\e,B_\e(B) | |
351 | ("+S" ?\e,B)\e(B) | |
352 | ("+T" ?\e,B+\e(B) | |
353 | ("=U" ?\e,BZ\e(B) | |
354 | ("+U" ?\e,BY\e(B) | |
355 | ("+=U" ?\e,B\\e(B) | |
356 | ("=Y" ?\e,B]\e(B) | |
357 | ("+Z" ?\e,B.\e(B) | |
358 | ([kp-1] ?1) | |
359 | ([kp-2] ?2) | |
360 | ([kp-3] ?3) | |
361 | ([kp-4] ?4) | |
362 | ([kp-5] ?5) | |
363 | ([kp-6] ?6) | |
364 | ([kp-7] ?7) | |
365 | ([kp-8] ?8) | |
366 | ([kp-9] ?9) | |
367 | ([kp-0] ?0) | |
368 | ([kp-add] ?+)) | |
369 | ||
370 | ||
371 | (quail-define-package | |
372 | "slovak-prog-3" "Slovak" "SK" nil | |
373 | "Slovak (non-standard) keyboard for programmers #3. | |
374 | ||
375 | Dead keys are on `[', `[[', `[[[', and `]'. | |
376 | All other keys are the same as on standard US keyboard." | |
377 | nil t nil nil nil nil nil nil nil nil t) | |
378 | ||
379 | (quail-define-rules | |
380 | ("[[[[" ?\[) | |
381 | ("[]" ?\]) | |
382 | ("][" ?\[) | |
383 | ("]]" ?\]) | |
384 | ("[a" ?\e,Ba\e(B) | |
385 | ("[[a" ?\e,Bd\e(B) | |
386 | ("[[[a" ?\e,Bd\e(B) | |
387 | ("]a" ?\e,Bd\e(B) | |
388 | ("][a" ?\e,Bd\e(B) | |
389 | ("[c" ?\e,Bh\e(B) | |
390 | ("[[c" ?\e,Bh\e(B) | |
391 | ("]c" ?\e,Bh\e(B) | |
392 | ("[d" ?\e,Bo\e(B) | |
393 | ("[[d" ?\e,Bo\e(B) | |
394 | ("]d" ?\e,Bo\e(B) | |
395 | ("[e" ?\e,Bi\e(B) | |
396 | ("[[e" ?\e,Bl\e(B) | |
397 | ("]e" ?\e,Bl\e(B) | |
398 | ("[i" ?\e,Bm\e(B) | |
399 | ("[l" ?\e,Be\e(B) | |
400 | ("[[l" ?\e,B5\e(B) | |
401 | ("]l" ?\e,B5\e(B) | |
402 | ("[n" ?\e,Br\e(B) | |
403 | ("[[n" ?\e,Br\e(B) | |
404 | ("]n" ?\e,Br\e(B) | |
405 | ("[[o" ?\e,Bt\e(B) | |
406 | ("[[[o" ?\e,Bv\e(B) | |
407 | ("[o" ?\e,Bs\e(B) | |
408 | ("]o" ?\e,Bt\e(B) | |
409 | ("][o" ?\e,Bv\e(B) | |
410 | ("[r" ?\e,B`\e(B) | |
411 | ("[[r" ?\e,Bx\e(B) | |
412 | ("]r" ?\e,Bx\e(B) | |
413 | ("[s" ?\e,B9\e(B) | |
414 | ("[[s" ?\e,B9\e(B) | |
415 | ("[[[s" ?\e,B_\e(B) | |
416 | ("]s" ?\e,B9\e(B) | |
417 | ("[t" ?\e,B;\e(B) | |
418 | ("[[t" ?\e,B;\e(B) | |
419 | ("]t" ?\e,B;\e(B) | |
420 | ("[u" ?\e,Bz\e(B) | |
421 | ("[[u" ?\e,By\e(B) | |
422 | ("[[[u" ?\e,B|\e(B) | |
423 | ("]u" ?\e,By\e(B) | |
424 | ("][u" ?\e,B|\e(B) | |
425 | ("[y" ?\e,B}\e(B) | |
426 | ("[z" ?\e,B>\e(B) | |
427 | ("[[z" ?\e,B>\e(B) | |
428 | ("]z" ?\e,B>\e(B) | |
429 | ("[A" ?\e,BA\e(B) | |
430 | ("[[A" ?\e,BD\e(B) | |
431 | ("[[[A" ?\e,BD\e(B) | |
432 | ("]A" ?\e,BD\e(B) | |
433 | ("][A" ?\e,BD\e(B) | |
434 | ("[C" ?\e,BH\e(B) | |
435 | ("[[C" ?\e,BH\e(B) | |
436 | ("]C" ?\e,BH\e(B) | |
437 | ("[D" ?\e,BO\e(B) | |
438 | ("[[D" ?\e,BO\e(B) | |
439 | ("]D" ?\e,BO\e(B) | |
440 | ("[E" ?\e,BI\e(B) | |
441 | ("[[E" ?\e,BL\e(B) | |
442 | ("]E" ?\e,BL\e(B) | |
443 | ("[I" ?\e,BM\e(B) | |
444 | ("[L" ?\e,BE\e(B) | |
445 | ("[[L" ?\e,B%\e(B) | |
446 | ("]L" ?\e,B%\e(B) | |
447 | ("[N" ?\e,BR\e(B) | |
448 | ("[[N" ?\e,BR\e(B) | |
449 | ("]N" ?\e,BR\e(B) | |
450 | ("[O" ?\e,BS\e(B) | |
451 | ("[[O" ?\e,BT\e(B) | |
452 | ("[[[O" ?\e,BV\e(B) | |
453 | ("]O" ?\e,BT\e(B) | |
454 | ("][O" ?\e,BV\e(B) | |
455 | ("[R" ?\e,B@\e(B) | |
456 | ("[[R" ?\e,BX\e(B) | |
457 | ("]R" ?\e,BX\e(B) | |
458 | ("[S" ?\e,B)\e(B) | |
459 | ("[[S" ?\e,B)\e(B) | |
460 | ("[[[S" ?\e,B_\e(B) | |
461 | ("]S" ?\e,B)\e(B) | |
462 | ("[T" ?\e,B+\e(B) | |
463 | ("[[T" ?\e,B+\e(B) | |
464 | ("]T" ?\e,B+\e(B) | |
465 | ("[U" ?\e,BZ\e(B) | |
466 | ("[[U" ?\e,BY\e(B) | |
467 | ("[[[U" ?\e,B\\e(B) | |
468 | ("]U" ?\e,BY\e(B) | |
469 | ("][U" ?\e,B\\e(B) | |
470 | ("[Y" ?\e,B]\e(B) | |
471 | ("[Z" ?\e,B.\e(B) | |
472 | ("[[Z" ?\e,B.\e(B) | |
473 | ("]Z" ?\e,B.\e(B) | |
474 | ([kp-1] ?1) | |
475 | ([kp-2] ?2) | |
476 | ([kp-3] ?3) | |
477 | ([kp-4] ?4) | |
478 | ([kp-5] ?5) | |
479 | ([kp-6] ?6) | |
480 | ([kp-7] ?7) | |
481 | ([kp-8] ?8) | |
482 | ([kp-9] ?9) | |
483 | ([kp-0] ?0) | |
484 | ([kp-add] ?+)) |