Mercurial > emacs
annotate leim/quail/slovak.el @ 55392:480f9d542579
(diff-make-unified): Fix regexp.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 06 May 2004 18:41:32 +0000 |
parents | 695cf19ef79e |
children | 23a17af379b1 375f2633d815 |
rev | line source |
---|---|
48309 | 1 ;;; slovak.el --- Quail package for inputting Slovak -*-coding: iso-2022-7bit;-*- |
21196 | 2 |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
3 ;; Copyright (C) 1998, 2001 Free Software Foundation. |
21196 | 4 |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
5 ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk> |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
6 ;; Milan Zamazal <pdm@zamazal.org> |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
7 ;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz> |
48309 | 8 ;; Keywords: i18n, multilingual, input method, Slovak |
21196 | 9 |
21422 | 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. | |
21196 | 26 |
27 ;;; Commentary: | |
28 | |
44410
f1c0aa406cb0
Add i18n keyword to get listed in package finder.
Pavel Janík <Pavel@Janik.cz>
parents:
38453
diff
changeset
|
29 ;; This file defines the following Slovak keyboards: |
21196 | 30 ;; - standard Slovak keyboard |
31 ;; - three Slovak keyboards for programmers | |
32 | |
33 ;;; Code: | |
34 | |
35 (require 'quail) | |
36 | |
44410
f1c0aa406cb0
Add i18n keyword to get listed in package finder.
Pavel Janík <Pavel@Janik.cz>
parents:
38453
diff
changeset
|
37 |
21196 | 38 (quail-define-package |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
39 "slovak" "Slovak" "SK" t |
21196 | 40 "Standard Slovak keyboard." |
36794
794197ce5401
("slovak"): Give t to the arg SHOW-LAYOUT.
Kenichi Handa <handa@m17n.org>
parents:
23006
diff
changeset
|
41 nil t nil nil t nil nil nil nil nil t) |
21196 | 42 |
43 (quail-define-rules | |
44 ("1" ?+) | |
45 ("2" ?,B5(B) | |
46 ("3" ?,B9(B) | |
47 ("4" ?,Bh(B) | |
48 ("5" ?,B;(B) | |
49 ("6" ?,B>(B) | |
50 ("7" ?,B}(B) | |
51 ("8" ?,Ba(B) | |
52 ("9" ?,Bm(B) | |
53 ("0" ?,Bi(B) | |
54 ("!" ?1) | |
55 ("@" ?2) | |
56 ("#" ?3) | |
57 ("$" ?4) | |
58 ("%" ?5) | |
59 ("^" ?6) | |
60 ("&" ?7) | |
61 ("*" ?8) | |
62 ("(" ?9) | |
63 (")" ?0) | |
64 ("-" ?=) | |
65 ("_" ?%) | |
66 ("=" ?') | |
67 ("[" ?,Bz(B) | |
68 ("{" ?/) | |
69 ("]" ?,Bd(B) | |
70 ("}" ?\() | |
71 ("\\" ?,Br(B) | |
72 ("|" ?\)) | |
73 (";" ?,Bt(B) | |
74 (":" ?\") | |
75 ("'" ?,B'(B) | |
76 ("\"" ?!) | |
77 ("<" ??) | |
78 (">" ?:) | |
79 ("/" ?-) | |
80 ("?" ?_) | |
81 ("`" ?\;) | |
82 ("~" ?^) | |
83 ("y" ?z) | |
84 ("z" ?y) | |
85 ("Y" ?Z) | |
86 ("Z" ?Y) | |
87 ("=a" ?,Ba(B) | |
88 ("+a" ?,Bd(B) | |
89 ("+=a" ?,Bd(B) | |
90 ("+c" ?,Bh(B) | |
91 ("+d" ?,Bo(B) | |
92 ("=e" ?,Bi(B) | |
93 ("+e" ?,Bl(B) | |
94 ("=i" ?,Bm(B) | |
95 ("=l" ?,Be(B) | |
96 ("+l" ?,B5(B) | |
97 ("+n" ?,Br(B) | |
98 ("=o" ?,Bs(B) | |
99 ("+o" ?,Bt(B) | |
100 ("~o" ?,Bt(B) | |
101 ("+=o" ?,Bv(B) | |
102 ("=r" ?,B`(B) | |
103 ("+r" ?,Bx(B) | |
104 ("=s" ?,B_(B) | |
105 ("+s" ?,B9(B) | |
106 ("+t" ?,B;(B) | |
107 ("=u" ?,Bz(B) | |
108 ("+u" ?,By(B) | |
109 ("+=u" ?,B|(B) | |
110 ("=z" ?,B}(B) | |
111 ("+y" ?,B>(B) | |
112 ("=A" ?,BA(B) | |
113 ("+A" ?,BD(B) | |
114 ("+=A" ?,BD(B) | |
115 ("+C" ?,BH(B) | |
116 ("+D" ?,BO(B) | |
117 ("=E" ?,BI(B) | |
118 ("+E" ?,BL(B) | |
119 ("=I" ?,BM(B) | |
120 ("=L" ?,BE(B) | |
121 ("+L" ?,B%(B) | |
122 ("+N" ?,BR(B) | |
123 ("=O" ?,BS(B) | |
124 ("+O" ?,BT(B) | |
125 ("~O" ?,BT(B) | |
126 ("+=O" ?,BV(B) | |
127 ("=R" ?,B@(B) | |
128 ("+R" ?,BX(B) | |
129 ("=S" ?,B_(B) | |
130 ("+S" ?,B)(B) | |
131 ("+T" ?,B+(B) | |
132 ("=U" ?,BZ(B) | |
133 ("+U" ?,BY(B) | |
134 ("+=U" ?,B\(B) | |
135 ("=Z" ?,B](B) | |
136 ("+Y" ?,B.(B) | |
36915
fa4b8046aa0d
("slovak"): Translate "=q" to "`".
Kenichi Handa <handa@m17n.org>
parents:
36844
diff
changeset
|
137 ("=q" ?`) |
21196 | 138 ("=2" ?@) |
139 ("=3" ?#) | |
140 ("=4" ?$) | |
141 ("=5" ?%) | |
142 ("=6" ?^) | |
143 ("=7" ?&) | |
144 ("=8" ?*) | |
145 ("=9" ?\() | |
146 ("=0" ?\)) | |
147 ("+1" ?!) | |
148 ("+2" ?@) | |
149 ("+3" ?#) | |
150 ("+4" ?$) | |
151 ("+5" ?%) | |
152 ("+6" ?^) | |
153 ("+7" ?&) | |
154 ("+8" ?*) | |
155 ("+9" ?\() | |
156 ("+0" ?\)) | |
157 ([kp-1] ?1) | |
158 ([kp-2] ?2) | |
159 ([kp-3] ?3) | |
160 ([kp-4] ?4) | |
161 ([kp-5] ?5) | |
162 ([kp-6] ?6) | |
163 ([kp-7] ?7) | |
164 ([kp-8] ?8) | |
165 ([kp-9] ?9) | |
166 ([kp-0] ?0) | |
167 ([kp-add] ?+)) | |
168 | |
169 | |
170 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
171 "slovak-prog-1" "Slovak" "SK" t |
21196 | 172 "Slovak (non-standard) keyboard for programmers #1. |
173 | |
174 All digits except of `1' are replaced by Slovak characters as on the standard | |
175 Slovak keyboard. | |
176 Dead keys are on `[', `[[', and `[[['. | |
177 All other keys are the same as on standard US keyboard." | |
36844
669dfa81f7e4
("slovak"): Delete translations of "q", "Q", "=q", "+q", "=Q", and "+Q".
Kenichi Handa <handa@m17n.org>
parents:
36794
diff
changeset
|
178 nil t nil nil t nil nil nil nil nil t) |
21196 | 179 |
180 (quail-define-rules | |
181 ("[[[[" ?\[) | |
182 ("2" ?,B5(B) | |
183 ("3" ?,B9(B) | |
184 ("4" ?,Bh(B) | |
185 ("5" ?,B;(B) | |
186 ("6" ?,B>(B) | |
187 ("7" ?,B}(B) | |
188 ("8" ?,Ba(B) | |
189 ("9" ?,Bm(B) | |
190 ("0" ?,Bi(B) | |
191 ("[a" ?,Ba(B) | |
192 ("[[a" ?,Bd(B) | |
193 ("[[[a" ?,Bd(B) | |
194 ("[c" ?,Bh(B) | |
195 ("[[c" ?,Bh(B) | |
196 ("[d" ?,Bo(B) | |
197 ("[[d" ?,Bo(B) | |
198 ("[e" ?,Bi(B) | |
199 ("[[e" ?,Bl(B) | |
200 ("[i" ?,Bm(B) | |
201 ("[l" ?,Be(B) | |
202 ("[[l" ?,B5(B) | |
203 ("[n" ?,Br(B) | |
204 ("[[n" ?,Br(B) | |
205 ("[o" ?,Bs(B) | |
206 ("[[o" ?,Bt(B) | |
207 ("[[[o" ?,Bv(B) | |
208 ("[r" ?,B`(B) | |
209 ("[[r" ?,Bx(B) | |
210 ("[s" ?,B9(B) | |
211 ("[[s" ?,B9(B) | |
212 ("[[[s" ?,B_(B) | |
213 ("[t" ?,B;(B) | |
214 ("[[t" ?,B;(B) | |
215 ("[u" ?,Bz(B) | |
216 ("[[u" ?,By(B) | |
217 ("[[[u" ?,B|(B) | |
218 ("[y" ?,B}(B) | |
219 ("[z" ?,B>(B) | |
220 ("[[z" ?,B>(B) | |
221 ("[A" ?,BA(B) | |
222 ("[[A" ?,BD(B) | |
223 ("[[[A" ?,BD(B) | |
224 ("[C" ?,BH(B) | |
225 ("[[C" ?,BH(B) | |
226 ("[D" ?,BO(B) | |
227 ("[[D" ?,BO(B) | |
228 ("[E" ?,BI(B) | |
229 ("[[E" ?,BL(B) | |
230 ("[I" ?,BM(B) | |
231 ("[L" ?,BE(B) | |
232 ("[[L" ?,B%(B) | |
233 ("[N" ?,BR(B) | |
234 ("[[N" ?,BR(B) | |
235 ("[O" ?,BS(B) | |
236 ("[[O" ?,BT(B) | |
237 ("[[[O" ?,BV(B) | |
238 ("[R" ?,B@(B) | |
239 ("[[R" ?,BX(B) | |
240 ("[S" ?,B)(B) | |
241 ("[[S" ?,B)(B) | |
242 ("[[[S" ?,B_(B) | |
243 ("[T" ?,B+(B) | |
244 ("[[T" ?,B+(B) | |
245 ("[U" ?,BZ(B) | |
246 ("[[U" ?,BY(B) | |
247 ("[[[U" ?,B\(B) | |
248 ("[Y" ?,B](B) | |
249 ("[Z" ?,B.(B) | |
250 ("[[Z" ?,B.(B) | |
251 ([kp-1] ?1) | |
252 ([kp-2] ?2) | |
253 ([kp-3] ?3) | |
254 ([kp-4] ?4) | |
255 ([kp-5] ?5) | |
256 ([kp-6] ?6) | |
257 ([kp-7] ?7) | |
258 ([kp-8] ?8) | |
259 ([kp-9] ?9) | |
260 ([kp-0] ?0) | |
261 ([kp-add] ?+)) | |
262 | |
263 | |
264 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
265 "slovak-prog-2" "Slovak" "SK" t |
21196 | 266 "Slovak (non-standard) keyboard for programmers #2. |
267 | |
268 All digits except of `1' are replaced by Slovak characters as on the standard | |
269 Slovak keyboard. | |
270 Dead keys are on `=' and `+'. | |
271 All other keys are the same as on standard US keyboard." | |
36844
669dfa81f7e4
("slovak"): Delete translations of "q", "Q", "=q", "+q", "=Q", and "+Q".
Kenichi Handa <handa@m17n.org>
parents:
36794
diff
changeset
|
272 nil t nil nil t nil nil nil nil nil t) |
21196 | 273 |
274 (quail-define-rules | |
275 ("2" ?,B5(B) | |
276 ("3" ?,B9(B) | |
277 ("4" ?,Bh(B) | |
278 ("5" ?,B;(B) | |
279 ("6" ?,B>(B) | |
280 ("7" ?,B}(B) | |
281 ("8" ?,Ba(B) | |
282 ("9" ?,Bm(B) | |
283 ("0" ?,Bi(B) | |
284 ("==" ?=) | |
285 ("++" ?+) | |
286 ("=+" ?+) | |
287 ("=2" ?2) | |
288 ("=3" ?3) | |
289 ("=4" ?4) | |
290 ("=5" ?5) | |
291 ("=6" ?6) | |
292 ("=7" ?7) | |
293 ("=8" ?8) | |
294 ("=9" ?9) | |
295 ("=0" ?0) | |
296 ("+2" ?2) | |
297 ("+3" ?3) | |
298 ("+4" ?4) | |
299 ("+5" ?5) | |
300 ("+6" ?6) | |
301 ("+7" ?7) | |
302 ("+8" ?8) | |
303 ("+9" ?9) | |
304 ("+0" ?0) | |
305 ("=a" ?,Ba(B) | |
306 ("+a" ?,Bd(B) | |
307 ("+=a" ?,Bd(B) | |
308 ("+c" ?,Bh(B) | |
309 ("+d" ?,Bo(B) | |
310 ("=e" ?,Bi(B) | |
311 ("+e" ?,Bl(B) | |
312 ("=i" ?,Bm(B) | |
313 ("=l" ?,Be(B) | |
314 ("+l" ?,B5(B) | |
315 ("+n" ?,Br(B) | |
316 ("=o" ?,Bs(B) | |
317 ("+o" ?,Bt(B) | |
318 ("+=o" ?,Bv(B) | |
319 ("=r" ?,B`(B) | |
320 ("+r" ?,Bx(B) | |
321 ("=s" ?,B_(B) | |
322 ("+s" ?,B9(B) | |
323 ("+t" ?,B;(B) | |
324 ("=u" ?,Bz(B) | |
325 ("+u" ?,By(B) | |
326 ("+=u" ?,B|(B) | |
327 ("=y" ?,B}(B) | |
328 ("+z" ?,B>(B) | |
329 ("=A" ?,BA(B) | |
330 ("+A" ?,BD(B) | |
331 ("+=A" ?,BD(B) | |
332 ("+C" ?,BH(B) | |
333 ("+D" ?,BO(B) | |
334 ("=E" ?,BI(B) | |
335 ("+E" ?,BL(B) | |
336 ("=I" ?,BM(B) | |
337 ("=L" ?,BE(B) | |
338 ("+L" ?,B%(B) | |
339 ("+N" ?,BR(B) | |
340 ("=O" ?,BS(B) | |
341 ("+O" ?,BT(B) | |
342 ("+=O" ?,BV(B) | |
343 ("=R" ?,B@(B) | |
344 ("+R" ?,BX(B) | |
345 ("=S" ?,B_(B) | |
346 ("+S" ?,B)(B) | |
347 ("+T" ?,B+(B) | |
348 ("=U" ?,BZ(B) | |
349 ("+U" ?,BY(B) | |
350 ("+=U" ?,B\(B) | |
351 ("=Y" ?,B](B) | |
352 ("+Z" ?,B.(B) | |
353 ([kp-1] ?1) | |
354 ([kp-2] ?2) | |
355 ([kp-3] ?3) | |
356 ([kp-4] ?4) | |
357 ([kp-5] ?5) | |
358 ([kp-6] ?6) | |
359 ([kp-7] ?7) | |
360 ([kp-8] ?8) | |
361 ([kp-9] ?9) | |
362 ([kp-0] ?0) | |
363 ([kp-add] ?+)) | |
364 | |
365 | |
366 (quail-define-package | |
37767
9cea2faa6fb8
Set guidance to t for czech and
Gerd Moellmann <gerd@gnu.org>
parents:
36915
diff
changeset
|
367 "slovak-prog-3" "Slovak" "SK" t |
21196 | 368 "Slovak (non-standard) keyboard for programmers #3. |
369 | |
370 Dead keys are on `[', `[[', `[[[', and `]'. | |
371 All other keys are the same as on standard US keyboard." | |
36844
669dfa81f7e4
("slovak"): Delete translations of "q", "Q", "=q", "+q", "=Q", and "+Q".
Kenichi Handa <handa@m17n.org>
parents:
36794
diff
changeset
|
372 nil t nil nil t nil nil nil nil nil t) |
21196 | 373 |
374 (quail-define-rules | |
375 ("[[[[" ?\[) | |
376 ("[]" ?\]) | |
377 ("][" ?\[) | |
378 ("]]" ?\]) | |
379 ("[a" ?,Ba(B) | |
380 ("[[a" ?,Bd(B) | |
381 ("[[[a" ?,Bd(B) | |
382 ("]a" ?,Bd(B) | |
383 ("][a" ?,Bd(B) | |
384 ("[c" ?,Bh(B) | |
385 ("[[c" ?,Bh(B) | |
386 ("]c" ?,Bh(B) | |
387 ("[d" ?,Bo(B) | |
388 ("[[d" ?,Bo(B) | |
389 ("]d" ?,Bo(B) | |
390 ("[e" ?,Bi(B) | |
391 ("[[e" ?,Bl(B) | |
392 ("]e" ?,Bl(B) | |
393 ("[i" ?,Bm(B) | |
394 ("[l" ?,Be(B) | |
395 ("[[l" ?,B5(B) | |
396 ("]l" ?,B5(B) | |
397 ("[n" ?,Br(B) | |
398 ("[[n" ?,Br(B) | |
399 ("]n" ?,Br(B) | |
400 ("[[o" ?,Bt(B) | |
401 ("[[[o" ?,Bv(B) | |
402 ("[o" ?,Bs(B) | |
403 ("]o" ?,Bt(B) | |
404 ("][o" ?,Bv(B) | |
405 ("[r" ?,B`(B) | |
406 ("[[r" ?,Bx(B) | |
407 ("]r" ?,Bx(B) | |
408 ("[s" ?,B9(B) | |
409 ("[[s" ?,B9(B) | |
410 ("[[[s" ?,B_(B) | |
411 ("]s" ?,B9(B) | |
412 ("[t" ?,B;(B) | |
413 ("[[t" ?,B;(B) | |
414 ("]t" ?,B;(B) | |
415 ("[u" ?,Bz(B) | |
416 ("[[u" ?,By(B) | |
417 ("[[[u" ?,B|(B) | |
418 ("]u" ?,By(B) | |
419 ("][u" ?,B|(B) | |
420 ("[y" ?,B}(B) | |
421 ("[z" ?,B>(B) | |
422 ("[[z" ?,B>(B) | |
423 ("]z" ?,B>(B) | |
424 ("[A" ?,BA(B) | |
425 ("[[A" ?,BD(B) | |
426 ("[[[A" ?,BD(B) | |
427 ("]A" ?,BD(B) | |
428 ("][A" ?,BD(B) | |
429 ("[C" ?,BH(B) | |
430 ("[[C" ?,BH(B) | |
431 ("]C" ?,BH(B) | |
432 ("[D" ?,BO(B) | |
433 ("[[D" ?,BO(B) | |
434 ("]D" ?,BO(B) | |
435 ("[E" ?,BI(B) | |
436 ("[[E" ?,BL(B) | |
437 ("]E" ?,BL(B) | |
438 ("[I" ?,BM(B) | |
439 ("[L" ?,BE(B) | |
440 ("[[L" ?,B%(B) | |
441 ("]L" ?,B%(B) | |
442 ("[N" ?,BR(B) | |
443 ("[[N" ?,BR(B) | |
444 ("]N" ?,BR(B) | |
445 ("[O" ?,BS(B) | |
446 ("[[O" ?,BT(B) | |
447 ("[[[O" ?,BV(B) | |
448 ("]O" ?,BT(B) | |
449 ("][O" ?,BV(B) | |
450 ("[R" ?,B@(B) | |
451 ("[[R" ?,BX(B) | |
452 ("]R" ?,BX(B) | |
453 ("[S" ?,B)(B) | |
454 ("[[S" ?,B)(B) | |
455 ("[[[S" ?,B_(B) | |
456 ("]S" ?,B)(B) | |
457 ("[T" ?,B+(B) | |
458 ("[[T" ?,B+(B) | |
459 ("]T" ?,B+(B) | |
460 ("[U" ?,BZ(B) | |
461 ("[[U" ?,BY(B) | |
462 ("[[[U" ?,B\(B) | |
463 ("]U" ?,BY(B) | |
464 ("][U" ?,B\(B) | |
465 ("[Y" ?,B](B) | |
466 ("[Z" ?,B.(B) | |
467 ("[[Z" ?,B.(B) | |
468 ("]Z" ?,B.(B) | |
469 ([kp-1] ?1) | |
470 ([kp-2] ?2) | |
471 ([kp-3] ?3) | |
472 ([kp-4] ?4) | |
473 ([kp-5] ?5) | |
474 ([kp-6] ?6) | |
475 ([kp-7] ?7) | |
476 ([kp-8] ?8) | |
477 ([kp-9] ?9) | |
478 ([kp-0] ?0) | |
479 ([kp-add] ?+)) | |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
480 |
52401 | 481 ;;; arch-tag: 8aedb992-e191-4eec-ad0d-71a352e02a3d |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
37767
diff
changeset
|
482 ;;; slovak.el ends here |