code.delx.au - gnu-emacs/blob - lisp/leim/quail/czech.el

   1 ;;; czech.el --- Quail package for inputting Czech -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 1998, 2001-2015 Free Software Foundation, Inc.
   4
   5 ;; Author: Milan Zamazal <pdm@zamazal.org>
   6 ;; Maintainer: Pavel Janík <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 Windows 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" ?ě)
  44  ("3" ?š)
  45  ("4" ?č)
  46  ("5" ?ř)
  47  ("6" ?ž)
  48  ("7" ?ý)
  49  ("8" ?á)
  50  ("9" ?í)
  51  ("0" ?é)
  52  ("!" ?1)
  53  ("@" ?2)
  54  ("#" ?3)
  55  ("$" ?4)
  56  ("%" ?5)
  57  ("^" ?6)
  58  ("&" ?7)
  59  ("*" ?8)
  60  ("(" ?9)
  61  (")" ?0)
  62  ("-" ?=)
  63  ("_" ?%)
  64  ("[" ?ú)
  65  ("{" ?/)
  66  ("]" ?\))
  67  ("}" ?\()
  68  ("|" ?`)
  69  (";" ?ů)
  70  (":" ?\")
  71  ("'" ?§)
  72  ("\"" ?!)
  73  ("<" ??)
  74  (">" ?:)
  75  ("/" ?-)
  76  ("?" ?_)
  77  ("`" ?\;)
  78  ("y" ?z)
  79  ("z" ?y)
  80  ("Y" ?Z)
  81  ("Z" ?Y)
  82  ("\\a" ?ä)
  83  ("\\o" ?ö)
  84  ("\\s" ?ß)
  85  ("\\u" ?ü)
  86  ("\\A" ?Ä)
  87  ("\\O" ?Ö)
  88  ("\\S" ?ß)
  89  ("\\U" ?Ü)
  90  ("~u" ?ů)
  91  ("~U" ?Ů)
  92  ("=a" ?á)
  93  ("+c" ?č)
  94  ("+d" ?ď)
  95  ("=e" ?é)
  96  ("+e" ?ě)
  97  ("=i" ?í)
  98  ("+n" ?ň)
  99  ("=o" ?ó)
 100  ("+r" ?ř)
 101  ("+s" ?š)
 102  ("+t" ?ť)
 103  ("=u" ?ú)
 104  ("=z" ?ý)
 105  ("+y" ?ž)
 106  ("=A" ?Á)
 107  ("+C" ?Č)
 108  ("+D" ?Ď)
 109  ("=E" ?É)
 110  ("+E" ?Ě)
 111  ("=I" ?Í)
 112  ("+N" ?Ň)
 113  ("=O" ?Ó)
 114  ("+R" ?Ř)
 115  ("+S" ?Š)
 116  ("+T" ?Ť)
 117  ("=U" ?Ú)
 118  ("=Z" ?Ý)
 119  ("+Y" ?Ž)
 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 Windows 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" ?ě)
 166  ("3" ?š)
 167  ("4" ?č)
 168  ("5" ?ř)
 169  ("6" ?ž)
 170  ("7" ?ý)
 171  ("8" ?á)
 172  ("9" ?í)
 173  ("0" ?é)
 174  ("!" ?1)
 175  ("@" ?2)
 176  ("#" ?3)
 177  ("$" ?4)
 178  ("%" ?5)
 179  ("^" ?6)
 180  ("&" ?7)
 181  ("*" ?8)
 182  ("(" ?9)
 183  (")" ?0)
 184  ("-" ?=)
 185  ("_" ?%)
 186  ("[" ?ú)
 187  ("{" ?/)
 188  ("]" ?\))
 189  ("}" ?\()
 190  ("|" ?`)
 191  (";" ?ů)
 192  (":" ?\")
 193  ("'" ?§)
 194  ("\"" ?!)
 195  ("<" ??)
 196  (">" ?:)
 197  ("/" ?-)
 198  ("?" ?_)
 199  ("`" ?\;)
 200  ("\\a" ?ä)
 201  ("\\o" ?ö)
 202  ("\\s" ?ß)
 203  ("\\u" ?ü)
 204  ("\\A" ?Ä)
 205  ("\\O" ?Ö)
 206  ("\\S" ?ß)
 207  ("\\U" ?Ü)
 208  ("~u" ?ů)
 209  ("~U" ?Ů)
 210  ("=a" ?á)
 211  ("+c" ?č)
 212  ("+d" ?ď)
 213  ("=e" ?é)
 214  ("+e" ?ě)
 215  ("=i" ?í)
 216  ("+n" ?ň)
 217  ("=o" ?ó)
 218  ("+r" ?ř)
 219  ("+s" ?š)
 220  ("+t" ?ť)
 221  ("=u" ?ú)
 222  ("=y" ?ý)
 223  ("+z" ?ž)
 224  ("=A" ?Á)
 225  ("+C" ?Č)
 226  ("+D" ?Ď)
 227  ("=E" ?É)
 228  ("+E" ?Ě)
 229  ("=I" ?Í)
 230  ("+N" ?Ň)
 231  ("=O" ?Ó)
 232  ("+R" ?Ř)
 233  ("+S" ?Š)
 234  ("+T" ?Ť)
 235  ("=Y" ?Ý)
 236  ("+Z" ?Ž)
 237  ("=U" ?Ú)
 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" ?ě)
 290  ("3" ?š)
 291  ("4" ?č)
 292  ("5" ?ř)
 293  ("6" ?ž)
 294  ("7" ?ý)
 295  ("8" ?á)
 296  ("9" ?í)
 297  ("0" ?é)
 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" ?á)
 309  ("++a" ?ä)
 310  ("+c" ?č)
 311  ("+d" ?ď)
 312  ("+e" ?é)
 313  ("++e" ?ě)
 314  ("+i" ?í)
 315  ("+l" ?ĺ)
 316  ("++l" ?ľ)
 317  ("+n" ?ň)
 318  ("+o" ?ó)
 319  ("++o" ?ö)
 320  ("+++o" ?ô)
 321  ("+r" ?ř)
 322  ("++r" ?ŕ)
 323  ("+s" ?š)
 324  ("++s" ?ß)
 325  ("+t" ?ť)
 326  ("+u" ?ú)
 327  ("++u" ?ů)
 328  ("+++u" ?ü)
 329  ("+y" ?ý)
 330  ("+z" ?ž)
 331  ("+A" ?Á)
 332  ("++A" ?Ä)
 333  ("+C" ?Č)
 334  ("+D" ?Ď)
 335  ("+E" ?É)
 336  ("++E" ?Ě)
 337  ("+I" ?Í)
 338  ("+L" ?Ĺ)
 339  ("++L" ?Ľ)
 340  ("+N" ?Ň)
 341  ("+O" ?Ó)
 342  ("++O" ?Ö)
 343  ("+++O" ?Ô)
 344  ("+R" ?Ř)
 345  ("++R" ?Ŕ)
 346  ("+S" ?Š)
 347  ("++S" ?ß)
 348  ("+T" ?Ť)
 349  ("+U" ?Ú)
 350  ("++U" ?Ů)
 351  ("+++U" ?Ü)
 352  ("+Y" ?Ý)
 353  ("+Z" ?Ž)
 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 `ů'.
 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" ?ů)
 379  ("2" ?ě)
 380  ("3" ?š)
 381  ("4" ?č)
 382  ("5" ?ř)
 383  ("6" ?ž)
 384  ("7" ?ý)
 385  ("8" ?á)
 386  ("9" ?í)
 387  ("0" ?é)
 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" ?á)
 399  ("++a" ?ä)
 400  ("+c" ?č)
 401  ("+d" ?ď)
 402  ("+e" ?é)
 403  ("++e" ?ě)
 404  ("+i" ?í)
 405  ("+l" ?ĺ)
 406  ("++l" ?ľ)
 407  ("+n" ?ň)
 408  ("+o" ?ó)
 409  ("++o" ?ö)
 410  ("+++o" ?ô)
 411  ("+r" ?ř)
 412  ("++r" ?ŕ)
 413  ("+s" ?š)
 414  ("++s" ?ß)
 415  ("+t" ?ť)
 416  ("+u" ?ú)
 417  ("++u" ?ů)
 418  ("+++u" ?ü)
 419  ("+y" ?ý)
 420  ("+z" ?ž)
 421  ("+A" ?Á)
 422  ("++A" ?Ä)
 423  ("+C" ?Č)
 424  ("+D" ?Ď)
 425  ("+E" ?É)
 426  ("++E" ?Ě)
 427  ("+I" ?Í)
 428  ("+L" ?Ĺ)
 429  ("++L" ?Ľ)
 430  ("+N" ?Ň)
 431  ("+O" ?Ó)
 432  ("++O" ?Ö)
 433  ("+++O" ?Ô)
 434  ("+R" ?Ř)
 435  ("++R" ?Ŕ)
 436  ("+S" ?Š)
 437  ("++S" ?ß)
 438  ("+T" ?Ť)
 439  ("+U" ?Ú)
 440  ("++U" ?Ů)
 441  ("+++U" ?Ü)
 442  ("+Y" ?Ý)
 443  ("+Z" ?Ž)
 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 `ú' and `ů', respectively.
 464 There are two dead keys on `=' and `+'.  Characters with diaereses 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" ?ě)
 471  ("3" ?š)
 472  ("4" ?č)
 473  ("5" ?ř)
 474  ("6" ?ž)
 475  ("7" ?ý)
 476  ("8" ?á)
 477  ("9" ?í)
 478  ("0" ?é)
 479  ("[" ?ú)
 480  ("]" ?ů)
 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" ?Á)
 509  ("+A" ?Ä)
 510  ("+=A" ?Ä)
 511  ("+C" ?Č)
 512  ("+D" ?Ď)
 513  ("=E" ?É)
 514  ("+E" ?Ě)
 515  ("=I" ?Í)
 516  ("=L" ?Ľ)
 517  ("+L" ?Ĺ)
 518  ("+N" ?Ň)
 519  ("=O" ?Ó)
 520  ("+O" ?Ô)
 521  ("+=O" ?Ö)
 522  ("=R" ?Ŕ)
 523  ("+R" ?Ř)
 524  ("+S" ?Š)
 525  ("=S" ?ß)
 526  ("+T" ?Ť)
 527  ("=U" ?Ú)
 528  ("+U" ?Ů)
 529  ("+=U" ?Ü)
 530  ("=Y" ?Ý)
 531  ("+Z" ?Ž)
 532  ("=a" ?á)
 533  ("+a" ?ä)
 534  ("+=a" ?ä)
 535  ("+c" ?č)
 536  ("+d" ?ď)
 537  ("=e" ?é)
 538  ("+e" ?ě)
 539  ("=i" ?í)
 540  ("=l" ?ľ)
 541  ("+l" ?ĺ)
 542  ("+n" ?ň)
 543  ("=o" ?ó)
 544  ("+o" ?ô)
 545  ("+=o" ?ö)
 546  ("=r" ?ŕ)
 547  ("+r" ?ř)
 548  ("+s" ?š)
 549  ("=s" ?ß)
 550  ("+t" ?ť)
 551  ("=u" ?ú)
 552  ("+u" ?ů)
 553  ("+=u" ?ü)
 554  ("=y" ?ý)
 555  ("+z" ?ž)
 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