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-2016 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
 147 (quail-define-package
 148  "czech-qwerty" "Czech" "CZ" t
 149  "\"Standard\" Czech keyboard in the Windows NT 105 keys version, QWERTY layout."
 150  nil t nil nil t nil nil nil nil nil t)
 151
 152 (quail-define-rules
 153  ("1" ?+)
 154  ("2" ?ě)
 155  ("3" ?š)
 156  ("4" ?č)
 157  ("5" ?ř)
 158  ("6" ?ž)
 159  ("7" ?ý)
 160  ("8" ?á)
 161  ("9" ?í)
 162  ("0" ?é)
 163  ("!" ?1)
 164  ("@" ?2)
 165  ("#" ?3)
 166  ("$" ?4)
 167  ("%" ?5)
 168  ("^" ?6)
 169  ("&" ?7)
 170  ("*" ?8)
 171  ("(" ?9)
 172  (")" ?0)
 173  ("-" ?=)
 174  ("_" ?%)
 175  ("[" ?ú)
 176  ("{" ?/)
 177  ("]" ?\))
 178  ("}" ?\()
 179  ("|" ?`)
 180  (";" ?ů)
 181  (":" ?\")
 182  ("'" ?§)
 183  ("\"" ?!)
 184  ("<" ??)
 185  (">" ?:)
 186  ("/" ?-)
 187  ("?" ?_)
 188  ("`" ?\;)
 189  ("\\a" ?ä)
 190  ("\\o" ?ö)
 191  ("\\s" ?ß)
 192  ("\\u" ?ü)
 193  ("\\A" ?Ä)
 194  ("\\O" ?Ö)
 195  ("\\S" ?ß)
 196  ("\\U" ?Ü)
 197  ("~u" ?ů)
 198  ("~U" ?Ů)
 199  ("=a" ?á)
 200  ("+c" ?č)
 201  ("+d" ?ď)
 202  ("=e" ?é)
 203  ("+e" ?ě)
 204  ("=i" ?í)
 205  ("+n" ?ň)
 206  ("=o" ?ó)
 207  ("+r" ?ř)
 208  ("+s" ?š)
 209  ("+t" ?ť)
 210  ("=u" ?ú)
 211  ("=y" ?ý)
 212  ("+z" ?ž)
 213  ("=A" ?Á)
 214  ("+C" ?Č)
 215  ("+D" ?Ď)
 216  ("=E" ?É)
 217  ("+E" ?Ě)
 218  ("=I" ?Í)
 219  ("+N" ?Ň)
 220  ("=O" ?Ó)
 221  ("+R" ?Ř)
 222  ("+S" ?Š)
 223  ("+T" ?Ť)
 224  ("=Y" ?Ý)
 225  ("+Z" ?Ž)
 226  ("=U" ?Ú)
 227  ("=1" ?!)
 228  ("=2" ?@)
 229  ("=3" ?#)
 230  ("=4" ?$)
 231  ("=5" ?%)
 232  ("=6" ?^)
 233  ("=7" ?&)
 234  ("=8" ?*)
 235  ("=9" ?\()
 236  ("=0" ?\))
 237  ("+1" ?!)
 238  ("+2" ?@)
 239  ("+3" ?#)
 240  ("+4" ?$)
 241  ("+5" ?%)
 242  ("+6" ?^)
 243  ("+7" ?&)
 244  ("+8" ?*)
 245  ("+9" ?\()
 246  ("+0" ?\))
 247  ("=<" ?<)
 248  ("=>" ?>)
 249  ("=[" ?\[)
 250  ("=]" ?\])
 251  ("={" ?{)
 252  ("=}" ?}))
 253
 254 (quail-define-package
 255  "czech-prog-1" "Czech" "CZ" t
 256  "Czech (non-standard) keyboard for programmers #1.
 257
 258 All digits except of `1' are replaced by Czech characters as on the standard
 259 Czech keyboard.
 260 `1' is replaced by `+'.
 261 `+' is a dead key.  Multiple presses of the dead key generate various accents.
 262 All other keys are the same as on standard US keyboard."
 263  nil t nil nil t nil nil nil nil nil t)
 264
 265 (quail-define-rules
 266  ("1" ?+)
 267  ("2" ?ě)
 268  ("3" ?š)
 269  ("4" ?č)
 270  ("5" ?ř)
 271  ("6" ?ž)
 272  ("7" ?ý)
 273  ("8" ?á)
 274  ("9" ?í)
 275  ("0" ?é)
 276  ("+1" ?1)
 277  ("+2" ?2)
 278  ("+3" ?3)
 279  ("+4" ?4)
 280  ("+5" ?5)
 281  ("+6" ?6)
 282  ("+7" ?7)
 283  ("+8" ?8)
 284  ("+9" ?9)
 285  ("+0" ?0)
 286  ("+a" ?á)
 287  ("++a" ?ä)
 288  ("+c" ?č)
 289  ("+d" ?ď)
 290  ("+e" ?é)
 291  ("++e" ?ě)
 292  ("+i" ?í)
 293  ("+l" ?ĺ)
 294  ("++l" ?ľ)
 295  ("+n" ?ň)
 296  ("+o" ?ó)
 297  ("++o" ?ö)
 298  ("+++o" ?ô)
 299  ("+r" ?ř)
 300  ("++r" ?ŕ)
 301  ("+s" ?š)
 302  ("++s" ?ß)
 303  ("+t" ?ť)
 304  ("+u" ?ú)
 305  ("++u" ?ů)
 306  ("+++u" ?ü)
 307  ("+y" ?ý)
 308  ("+z" ?ž)
 309  ("+A" ?Á)
 310  ("++A" ?Ä)
 311  ("+C" ?Č)
 312  ("+D" ?Ď)
 313  ("+E" ?É)
 314  ("++E" ?Ě)
 315  ("+I" ?Í)
 316  ("+L" ?Ĺ)
 317  ("++L" ?Ľ)
 318  ("+N" ?Ň)
 319  ("+O" ?Ó)
 320  ("++O" ?Ö)
 321  ("+++O" ?Ô)
 322  ("+R" ?Ř)
 323  ("++R" ?Ŕ)
 324  ("+S" ?Š)
 325  ("++S" ?ß)
 326  ("+T" ?Ť)
 327  ("+U" ?Ú)
 328  ("++U" ?Ů)
 329  ("+++U" ?Ü)
 330  ("+Y" ?Ý)
 331  ("+Z" ?Ž))
 332
 333 (quail-define-package
 334  "czech-prog-2" "Czech" "CZ" t
 335  "Czech (non-standard) keyboard for programmers #2.
 336
 337 All digits except of `1' are replaced by Czech characters as on the standard
 338 Czech keyboard.
 339 `1' is replaced by `ů'.
 340 `+' is a dead key.  Multiple presses of the dead key generate various accents.
 341 All other keys are the same as on standard US keyboard."
 342  nil t nil nil t nil nil nil nil nil t)
 343
 344 (quail-define-rules
 345  ("1" ?ů)
 346  ("2" ?ě)
 347  ("3" ?š)
 348  ("4" ?č)
 349  ("5" ?ř)
 350  ("6" ?ž)
 351  ("7" ?ý)
 352  ("8" ?á)
 353  ("9" ?í)
 354  ("0" ?é)
 355  ("+1" ?1)
 356  ("+2" ?2)
 357  ("+3" ?3)
 358  ("+4" ?4)
 359  ("+5" ?5)
 360  ("+6" ?6)
 361  ("+7" ?7)
 362  ("+8" ?8)
 363  ("+9" ?9)
 364  ("+0" ?0)
 365  ("+a" ?á)
 366  ("++a" ?ä)
 367  ("+c" ?č)
 368  ("+d" ?ď)
 369  ("+e" ?é)
 370  ("++e" ?ě)
 371  ("+i" ?í)
 372  ("+l" ?ĺ)
 373  ("++l" ?ľ)
 374  ("+n" ?ň)
 375  ("+o" ?ó)
 376  ("++o" ?ö)
 377  ("+++o" ?ô)
 378  ("+r" ?ř)
 379  ("++r" ?ŕ)
 380  ("+s" ?š)
 381  ("++s" ?ß)
 382  ("+t" ?ť)
 383  ("+u" ?ú)
 384  ("++u" ?ů)
 385  ("+++u" ?ü)
 386  ("+y" ?ý)
 387  ("+z" ?ž)
 388  ("+A" ?Á)
 389  ("++A" ?Ä)
 390  ("+C" ?Č)
 391  ("+D" ?Ď)
 392  ("+E" ?É)
 393  ("++E" ?Ě)
 394  ("+I" ?Í)
 395  ("+L" ?Ĺ)
 396  ("++L" ?Ľ)
 397  ("+N" ?Ň)
 398  ("+O" ?Ó)
 399  ("++O" ?Ö)
 400  ("+++O" ?Ô)
 401  ("+R" ?Ř)
 402  ("++R" ?Ŕ)
 403  ("+S" ?Š)
 404  ("++S" ?ß)
 405  ("+T" ?Ť)
 406  ("+U" ?Ú)
 407  ("++U" ?Ů)
 408  ("+++U" ?Ü)
 409  ("+Y" ?Ý)
 410  ("+Z" ?Ž))
 411
 412 (quail-define-package
 413  "czech-prog-3" "Czech" "CZ" t
 414  "Czech (non-standard) keyboard for programmers compatible with the default
 415 keyboard from the obsolete `emacs-czech' package.
 416
 417 All digits except of `1' are replaced by Czech characters as on the standard
 418 Czech keyboard.
 419 `[' and `]' are replaced with `ú' and `ů', respectively.
 420 There are two dead keys on `=' and `+'.  Characters with diaereses are
 421 accessible through `+='.
 422 All other keys are the same as on standard US keyboard."
 423  nil t nil nil t nil nil nil nil nil t)
 424
 425 (quail-define-rules
 426  ("2" ?ě)
 427  ("3" ?š)
 428  ("4" ?č)
 429  ("5" ?ř)
 430  ("6" ?ž)
 431  ("7" ?ý)
 432  ("8" ?á)
 433  ("9" ?í)
 434  ("0" ?é)
 435  ("[" ?ú)
 436  ("]" ?ů)
 437  ("==" ?=)
 438  ("++" ?+)
 439  ("=+" ?+)
 440  ("=[" ?\[)
 441  ("=]" ?\])
 442  ("+[" ?\[)
 443  ("+]" ?\])
 444  ("=1" ?1)
 445  ("=2" ?2)
 446  ("=3" ?3)
 447  ("=4" ?4)
 448  ("=5" ?5)
 449  ("=6" ?6)
 450  ("=7" ?7)
 451  ("=8" ?8)
 452  ("=9" ?9)
 453  ("=0" ?0)
 454  ("+1" ?1)
 455  ("+2" ?2)
 456  ("+3" ?3)
 457  ("+4" ?4)
 458  ("+5" ?5)
 459  ("+6" ?6)
 460  ("+7" ?7)
 461  ("+8" ?8)
 462  ("+9" ?9)
 463  ("+0" ?0)
 464  ("=A" ?Á)
 465  ("+A" ?Ä)
 466  ("+=A" ?Ä)
 467  ("+C" ?Č)
 468  ("+D" ?Ď)
 469  ("=E" ?É)
 470  ("+E" ?Ě)
 471  ("=I" ?Í)
 472  ("=L" ?Ľ)
 473  ("+L" ?Ĺ)
 474  ("+N" ?Ň)
 475  ("=O" ?Ó)
 476  ("+O" ?Ô)
 477  ("+=O" ?Ö)
 478  ("=R" ?Ŕ)
 479  ("+R" ?Ř)
 480  ("+S" ?Š)
 481  ("=S" ?ß)
 482  ("+T" ?Ť)
 483  ("=U" ?Ú)
 484  ("+U" ?Ů)
 485  ("+=U" ?Ü)
 486  ("=Y" ?Ý)
 487  ("+Z" ?Ž)
 488  ("=a" ?á)
 489  ("+a" ?ä)
 490  ("+=a" ?ä)
 491  ("+c" ?č)
 492  ("+d" ?ď)
 493  ("=e" ?é)
 494  ("+e" ?ě)
 495  ("=i" ?í)
 496  ("=l" ?ľ)
 497  ("+l" ?ĺ)
 498  ("+n" ?ň)
 499  ("=o" ?ó)
 500  ("+o" ?ô)
 501  ("+=o" ?ö)
 502  ("=r" ?ŕ)
 503  ("+r" ?ř)
 504  ("+s" ?š)
 505  ("=s" ?ß)
 506  ("+t" ?ť)
 507  ("=u" ?ú)
 508  ("+u" ?ů)
 509  ("+=u" ?ü)
 510  ("=y" ?ý)
 511  ("+z" ?ž))
 512
 513 ;;; czech.el ends here