leim/quail/czech.el

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