root/trunk/leim/quail/czech.el

Revision 4220, 9.9 kB (checked in by miyoshi, 9 months ago)

Sync up with Emacs22.2.

  • Property svn:eol-style set to LF
Line 
1 ;;; czech.el --- Quail package for inputting Czech -*-coding: iso-2022-7bit;-*-
2
3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 ;;   Free Software Foundation, Inc.
5
6 ;; Author: Milan Zamazal <pdm@zamazal.org>
7 ;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz>
8 ;; Keywords: i18n, multilingual, input method, Czech
9
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 3, 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., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02110-1301, USA.
26
27 ;;; Commentary:
28
29 ;; This file defines the following Czech keyboards:
30 ;; - "standard" Czech keyboard in the Windoze NT 105 keys version (both
31 ;;   "QWERTZ" and "QWERTY" versions)
32 ;; - three non-standard Czech keyboards for programmers
33
34 ;;; Code:
35
36 (require 'quail)
37
38
39 (quail-define-package
40  "czech" "Czech" "CZ" t
41  "\"Standard\" Czech keyboard in the Windoze NT 105 keys version."
42  nil t t t t nil nil nil nil nil t)
43
44 (quail-define-rules
45  ("1" ?+)
46  ("2" ?,Bl(B)
47  ("3" ?,B9(B)
48  ("4" ?,Bh(B)
49  ("5" ?,Bx(B)
50  ("6" ?,B>(B)
51  ("7" ?,B}(B)
52  ("8" ?,Ba(B)
53  ("9" ?,Bm(B)
54  ("0" ?,Bi(B)
55  ("!" ?1)
56  ("@" ?2)
57  ("#" ?3)
58  ("$" ?4)
59  ("%" ?5)
60  ("^" ?6)
61  ("&" ?7)
62  ("*" ?8)
63  ("(" ?9)
64  (")" ?0)
65  ("-" ?=)
66  ("_" ?%)
67  ("[" ?,Bz(B)
68  ("{" ?/)
69  ("]" ?\))
70  ("}" ?\()
71  ("|" ?`)
72  (";" ?,By(B)
73  (":" ?\")
74  ("'" ?,B'(B)
75  ("\"" ?!)
76  ("<" ??)
77  (">" ?:)
78  ("/" ?-)
79  ("?" ?_)
80  ("`" ?\;)
81  ("y" ?z)
82  ("z" ?y)
83  ("Y" ?Z)
84  ("Z" ?Y)
85  ("\\a" ?,Bd(B)
86  ("\\o" ?,Bv(B)
87  ("\\s" ?,B_(B)
88  ("\\u" ?,B|(B)
89  ("\\A" ?,BD(B)
90  ("\\O" ?,BV(B)
91  ("\\S" ?,B_(B)
92  ("\\U" ?,B\(B)
93  ("~u" ?,By(B)
94  ("~U" ?,BY(B)
95  ("=a" ?,Ba(B)
96  ("+c" ?,Bh(B)
97  ("+d" ?,Bo(B)
98  ("=e" ?,Bi(B)
99  ("+e" ?,Bl(B)
100  ("=i" ?,Bm(B)
101  ("+n" ?,Br(B)
102  ("=o" ?,Bs(B)
103  ("+r" ?,Bx(B)
104  ("+s" ?,B9(B)
105  ("+t" ?,B;(B)
106  ("=u" ?,Bz(B)
107  ("=z" ?,B}(B)
108  ("+y" ?,B>(B)
109  ("=A" ?,BA(B)
110  ("+C" ?,BH(B)
111  ("+D" ?,BO(B)
112  ("=E" ?,BI(B)
113  ("+E" ?,BL(B)
114  ("=I" ?,BM(B)
115  ("+N" ?,BR(B)
116  ("=O" ?,BS(B)
117  ("+R" ?,BX(B)
118  ("+S" ?,B)(B)
119  ("+T" ?,B+(B)
120  ("=U" ?,BZ(B)
121  ("=Z" ?,B](B)
122  ("+Y" ?,B.(B)
123  ("=1" ?!)
124  ("=2" ?@)
125  ("=3" ?#)
126  ("=4" ?$)
127  ("=5" ?%)
128  ("=6" ?^)
129  ("=7" ?&)
130  ("=8" ?*)
131  ("=9" ?\()
132  ("=0" ?\))
133  ("+1" ?!)
134  ("+2" ?@)
135  ("+3" ?#)
136  ("+4" ?$)
137  ("+5" ?%)
138  ("+6" ?^)
139  ("+7" ?&)
140  ("+8" ?*)
141  ("+9" ?\()
142  ("+0" ?\))
143  ("=<" ?<)
144  ("=>" ?>)
145  ("=[" ?\[)
146  ("=]" ?\])
147  ("={" ?{)
148  ("=}" ?})
149  ([kp-1] ?1)
150  ([kp-2] ?2)
151  ([kp-3] ?3)
152  ([kp-4] ?4)
153  ([kp-5] ?5)
154  ([kp-6] ?6)
155  ([kp-7] ?7)
156  ([kp-8] ?8)
157  ([kp-9] ?9)
158  ([kp-0] ?0)
159  ([kp-add] ?+))
160
161 (quail-define-package
162  "czech-qwerty" "Czech" "CZ" t
163  "\"Standard\" Czech keyboard in the Windoze NT 105 keys version, QWERTY layout."
164  nil t nil nil t nil nil nil nil nil t)
165
166 (quail-define-rules
167  ("1" ?+)
168  ("2" ?,Bl(B)
169  ("3" ?,B9(B)
170  ("4" ?,Bh(B)
171  ("5" ?,Bx(B)
172  ("6" ?,B>(B)
173  ("7" ?,B}(B)
174  ("8" ?,Ba(B)
175  ("9" ?,Bm(B)
176  ("0" ?,Bi(B)
177  ("!" ?1)
178  ("@" ?2)
179  ("#" ?3)
180  ("$" ?4)
181  ("%" ?5)
182  ("^" ?6)
183  ("&" ?7)
184  ("*" ?8)
185  ("(" ?9)
186  (")" ?0)
187  ("-" ?=)
188  ("_" ?%)
189  ("[" ?,Bz(B)
190  ("{" ?/)
191  ("]" ?\))
192  ("}" ?\()
193  ("|" ?`)
194  (";" ?,By(B)
195  (":" ?\")
196  ("'" ?,B'(B)
197  ("\"" ?!)
198  ("<" ??)
199  (">" ?:)
200  ("/" ?-)
201  ("?" ?_)
202  ("`" ?\;)
203  ("\\a" ?,Bd(B)
204  ("\\o" ?,Bv(B)
205  ("\\s" ?,B_(B)
206  ("\\u" ?,B|(B)
207  ("\\A" ?,BD(B)
208  ("\\O" ?,BV(B)
209  ("\\S" ?,B_(B)
210  ("\\U" ?,B\(B)
211  ("~u" ?,By(B)
212  ("~U" ?,BY(B)
213  ("=a" ?,Ba(B)
214  ("+c" ?,Bh(B)
215  ("+d" ?,Bo(B)
216  ("=e" ?,Bi(B)
217  ("+e" ?,Bl(B)
218  ("=i" ?,Bm(B)
219  ("+n" ?,Br(B)
220  ("=o" ?,Bs(B)
221  ("+r" ?,Bx(B)
222  ("+s" ?,B9(B)
223  ("+t" ?,B;(B)
224  ("=u" ?,Bz(B)
225  ("=y" ?,B}(B)
226  ("+z" ?,B>(B)
227  ("=A" ?,BA(B)
228  ("+C" ?,BH(B)
229  ("+D" ?,BO(B)
230  ("=E" ?,BI(B)
231  ("+E" ?,BL(B)
232  ("=I" ?,BM(B)
233  ("+N" ?,BR(B)
234  ("=O" ?,BS(B)
235  ("+R" ?,BX(B)
236  ("+S" ?,B)(B)
237  ("+T" ?,B+(B)
238  ("=Y" ?,B](B)
239  ("+Z" ?,B.(B)
240  ("=U" ?,BZ(B)
241  ("=1" ?!)
242  ("=2" ?@)
243  ("=3" ?#)
244  ("=4" ?$)
245  ("=5" ?%)
246  ("=6" ?^)
247  ("=7" ?&)
248  ("=8" ?*)
249  ("=9" ?\()
250  ("=0" ?\))
251  ("+1" ?!)
252  ("+2" ?@)
253  ("+3" ?#)
254  ("+4" ?$)
255  ("+5" ?%)
256  ("+6" ?^)
257  ("+7" ?&)
258  ("+8" ?*)
259  ("+9" ?\()
260  ("+0" ?\))
261  ("=<" ?<)
262  ("=>" ?>)
263  ("=[" ?\[)
264  ("=]" ?\])
265  ("={" ?{)
266  ("=}" ?})
267  ([kp-1] ?1)
268  ([kp-2] ?2)
269  ([kp-3] ?3)
270  ([kp-4] ?4)
271  ([kp-5] ?5)
272  ([kp-6] ?6)
273  ([kp-7] ?7)
274  ([kp-8] ?8)
275  ([kp-9] ?9)
276  ([kp-0] ?0)
277  ([kp-add] ?+))
278
279 (quail-define-package
280  "czech-prog-1" "Czech" "CZ" t
281  "Czech (non-standard) keyboard for programmers #1.
282
283 All digits except of `1' are replaced by Czech characters as on the standard
284 Czech keyboard.
285 `1' is replaced by `+'.
286 `+' is a dead key.  Multiple presses of the dead key generate various accents.
287 All other keys are the same as on standard US keyboard."
288  nil t nil nil t nil nil nil nil nil t)
289
290 (quail-define-rules
291  ("1" ?+)
292  ("2" ?,Bl(B)
293  ("3" ?,B9(B)
294  ("4" ?,Bh(B)
295  ("5" ?,Bx(B)
296  ("6" ?,B>(B)
297  ("7" ?,B}(B)
298  ("8" ?,Ba(B)
299  ("9" ?,Bm(B)
300  ("0" ?,Bi(B)
301  ("+1" ?1)
302  ("+2" ?2)
303  ("+3" ?3)
304  ("+4" ?4)
305  ("+5" ?5)
306  ("+6" ?6)
307  ("+7" ?7)
308  ("+8" ?8)
309  ("+9" ?9)
310  ("+0" ?0)
311  ("+a" ?,Ba(B)
312  ("++a" ?,Bd(B)
313  ("+c" ?,Bh(B)
314  ("+d" ?,Bo(B)
315  ("+e" ?,Bi(B)
316  ("++e" ?,Bl(B)
317  ("+i" ?,Bm(B)
318  ("+l" ?,Be(B)
319  ("++l" ?,B5(B)
320  ("+n" ?,Br(B)
321  ("+o" ?,Bs(B)
322  ("++o" ?,Bv(B)
323  ("+++o" ?,Bt(B)
324  ("+r" ?,Bx(B)
325  ("++r" ?,B`(B)
326  ("+s" ?,B9(B)
327  ("++s" ?,B_(B)
328  ("+t" ?,B;(B)
329  ("+u" ?,Bz(B)
330  ("++u" ?,By(B)
331  ("+++u" ?,B|(B)
332  ("+y" ?,B}(B)
333  ("+z" ?,B>(B)
334  ("+A" ?,BA(B)
335  ("++A" ?,BD(B)
336  ("+C" ?,BH(B)
337  ("+D" ?,BO(B)
338  ("+E" ?,BI(B)
339  ("++E" ?,BL(B)
340  ("+I" ?,BM(B)
341  ("+L" ?,BE(B)
342  ("++L" ?,B%(B)
343  ("+N" ?,BR(B)
344  ("+O" ?,BS(B)
345  ("++O" ?,BV(B)
346  ("+++O" ?,BT(B)
347  ("+R" ?,BX(B)
348  ("++R" ?,B@(B)
349  ("+S" ?,B)(B)
350  ("++S" ?,B_(B)
351  ("+T" ?,B+(B)
352  ("+U" ?,BZ(B)
353  ("++U" ?,BY(B)
354  ("+++U" ?,B\(B)
355  ("+Y" ?,B](B)
356  ("+Z" ?,B.(B)
357  ([kp-1] ?1)
358  ([kp-2] ?2)
359  ([kp-3] ?3)
360  ([kp-4] ?4)
361  ([kp-5] ?5)
362  ([kp-6] ?6)
363  ([kp-7] ?7)
364  ([kp-8] ?8)
365  ([kp-9] ?9)
366  ([kp-0] ?0)
367  ([kp-add] ?+))
368
369 (quail-define-package
370  "czech-prog-2" "Czech" "CZ" t
371  "Czech (non-standard) keyboard for programmers #2.
372
373 All digits except of `1' are replaced by Czech characters as on the standard
374 Czech keyboard.
375 `1' is replaced by `,By(B'.
376 `+' is a dead key.  Multiple presses of the dead key generate various accents.
377 All other keys are the same as on standard US keyboard."
378  nil t nil nil t nil nil nil nil nil t)
379
380 (quail-define-rules
381  ("1" ?,By(B)
382  ("2" ?,Bl(B)
383  ("3" ?,B9(B)
384  ("4" ?,Bh(B)
385  ("5" ?,Bx(B)
386  ("6" ?,B>(B)
387  ("7" ?,B}(B)
388  ("8" ?,Ba(B)
389  ("9" ?,Bm(B)
390  ("0" ?,Bi(B)
391  ("+1" ?1)
392  ("+2" ?2)
393  ("+3" ?3)
394  ("+4" ?4)
395  ("+5" ?5)
396  ("+6" ?6)
397  ("+7" ?7)
398  ("+8" ?8)
399  ("+9" ?9)
400  ("+0" ?0)
401  ("+a" ?,Ba(B)
402  ("++a" ?,Bd(B)
403  ("+c" ?,Bh(B)
404  ("+d" ?,Bo(B)
405  ("+e" ?,Bi(B)
406  ("++e" ?,Bl(B)
407  ("+i" ?,Bm(B)
408  ("+l" ?,Be(B)
409  ("++l" ?,B5(B)
410  ("+n" ?,Br(B)
411  ("+o" ?,Bs(B)
412  ("++o" ?,Bv(B)
413  ("+++o" ?,Bt(B)
414  ("+r" ?,Bx(B)
415  ("++r" ?,B`(B)
416  ("+s" ?,B9(B)
417  ("++s" ?,B_(B)
418  ("+t" ?,B;(B)
419  ("+u" ?,Bz(B)
420  ("++u" ?,By(B)
421  ("+++u" ?,B|(B)
422  ("+y" ?,B}(B)
423  ("+z" ?,B>(B)
424  ("+A" ?,BA(B)
425  ("++A" ?,BD(B)
426  ("+C" ?,BH(B)
427  ("+D" ?,BO(B)
428  ("+E" ?,BI(B)
429  ("++E" ?,BL(B)
430  ("+I" ?,BM(B)
431  ("+L" ?,BE(B)
432  ("++L" ?,B%(B)
433  ("+N" ?,BR(B)
434  ("+O" ?,BS(B)
435  ("++O" ?,BV(B)
436  ("+++O" ?,BT(B)
437  ("+R" ?,BX(B)
438  ("++R" ?,B@(B)
439  ("+S" ?,B)(B)
440  ("++S" ?,B_(B)
441  ("+T" ?,B+(B)
442  ("+U" ?,BZ(B)
443  ("++U" ?,BY(B)
444  ("+++U" ?,B\(B)
445  ("+Y" ?,B](B)
446  ("+Z" ?,B.(B)
447  ([kp-1] ?1)
448  ([kp-2] ?2)
449  ([kp-3] ?3)
450  ([kp-4] ?4)
451  ([kp-5] ?5)
452  ([kp-6] ?6)
453  ([kp-7] ?7)
454  ([kp-8] ?8)
455  ([kp-9] ?9)
456  ([kp-0] ?0)
457  ([kp-add] ?+))
458
459 (quail-define-package
460  "czech-prog-3" "Czech" "CZ" t
461  "Czech (non-standard) keyboard for programmers compatible with the default
462 keyboard from the obsolete `emacs-czech' package.
463
464 All digits except of `1' are replaced by Czech characters as on the standard
465 Czech keyboard.
466 `[' and `]' are replaced with `,Bz(B' and `,By(B', respectively.
467 There are two dead keys on `=' and `+'.  Characters with diaresis are
468 accessible through `+='.
469 All other keys are the same as on standard US keyboard."
470  nil t nil nil t nil nil nil nil nil t)
471
472 (quail-define-rules
473  ("2" ?,Bl(B)
474  ("3" ?,B9(B)
475  ("4" ?,Bh(B)
476  ("5" ?,Bx(B)
477  ("6" ?,B>(B)
478  ("7" ?,B}(B)
479  ("8" ?,Ba(B)
480  ("9" ?,Bm(B)
481  ("0" ?,Bi(B)
482  ("[" ?,Bz(B)
483  ("]" ?,By(B)
484  ("==" ?=)
485  ("++" ?+)
486  ("=+" ?+)
487  ("=[" ?\[)
488  ("=]" ?\])
489  ("+[" ?\[)
490  ("+]" ?\])
491  ("=1" ?1)
492  ("=2" ?2)
493  ("=3" ?3)
494  ("=4" ?4)
495  ("=5" ?5)
496  ("=6" ?6)
497  ("=7" ?7)
498  ("=8" ?8)
499  ("=9" ?9)
500  ("=0" ?0)
501  ("+1" ?1)
502  ("+2" ?2)
503  ("+3" ?3)
504  ("+4" ?4)
505  ("+5" ?5)
506  ("+6" ?6)
507  ("+7" ?7)
508  ("+8" ?8)
509  ("+9" ?9)
510  ("+0" ?0)
511  ("=A" ?,BA(B)
512  ("+A" ?,BD(B)
513  ("+=A" ?,BD(B)
514  ("+C" ?,BH(B)
515  ("+D" ?,BO(B)
516  ("=E" ?,BI(B)
517  ("+E" ?,BL(B)
518  ("=I" ?,BM(B)
519  ("=L" ?,B%(B)
520  ("+L" ?,BE(B)
521  ("+N" ?,BR(B)
522  ("=O" ?,BS(B)
523  ("+O" ?,BT(B)
524  ("+=O" ?,BV(B)
525  ("=R" ?,B@(B)
526  ("+R" ?,BX(B)
527  ("+S" ?,B)(B)
528  ("=S" ?,B_(B)
529  ("+T" ?,B+(B)
530  ("=U" ?,BZ(B)
531  ("+U" ?,BY(B)
532  ("+=U" ?,B\(B)
533  ("=Y" ?,B](B)
534  ("+Z" ?,B.(B)
535  ("=a" ?,Ba(B)
536  ("+a" ?,Bd(B)
537  ("+=a" ?,Bd(B)
538  ("+c" ?,Bh(B)
539  ("+d" ?,Bo(B)
540  ("=e" ?,Bi(B)
541  ("+e" ?,Bl(B)
542  ("=i" ?,Bm(B)
543  ("=l" ?,B5(B)
544  ("+l" ?,Be(B)
545  ("+n" ?,Br(B)
546  ("=o" ?,Bs(B)
547  ("+o" ?,Bt(B)
548  ("+=o" ?,Bv(B)
549  ("=r" ?,B`(B)
550  ("+r" ?,Bx(B)
551  ("+s" ?,B9(B)
552  ("=s" ?,B_(B)
553  ("+t" ?,B;(B)
554  ("=u" ?,Bz(B)
555  ("+u" ?,By(B)
556  ("+=u" ?,B|(B)
557  ("=y" ?,B}(B)
558  ("+z" ?,B>(B)
559  ([kp-1] ?1)
560  ([kp-2] ?2)
561  ([kp-3] ?3)
562  ([kp-4] ?4)
563  ([kp-5] ?5)
564  ([kp-6] ?6)
565  ([kp-7] ?7)
566  ([kp-8] ?8)
567  ([kp-9] ?9)
568  ([kp-0] ?0)
569  ([kp-add] ?+))
570
571 ;;; arch-tag: 0a27dffc-a5e1-479f-9da2-a9eb91b34d8a
572 ;;; czech.el ends here
573
Note: See TracBrowser for help on using the browser.