leim/quail/czech.el

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