root/trunk/leim/quail/slovak.el

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

Sync up with Emacs22.2.

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