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