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