Mercurial > emacs
annotate leim/quail/slovak.el @ 37591:0858ec0fee79
(rmail-sort-by-labels): Renamed from
rmail-sort-by-keywords.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 07 May 2001 10:06:15 +0000 |
| parents | fa4b8046aa0d |
| children | 9cea2faa6fb8 |
| rev | line source |
|---|---|
| 21196 | 1 ;;; quail/slovak.el -- Quail package for inputting Slovak |
| 2 | |
| 3 ;; Copyright (C) 1998 Free Software Foundation. | |
| 4 | |
| 5 ;; Authors: Tibor ,B)(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 | |
| 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 | |
| 38 (quail-define-package | |
| 39 "slovak" "Slovak" "SK" nil | |
| 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 | |
| 171 "slovak-prog-1" "Slovak" "SK" nil | |
| 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 | |
| 265 "slovak-prog-2" "Slovak" "SK" nil | |
| 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 | |
| 367 "slovak-prog-3" "Slovak" "SK" nil | |
| 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] ?+)) |