summaryrefslogtreecommitdiff
path: root/lisp/leim/quail/czech.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-11-26 22:15:06 -0800
committerGlenn Morris <rgm@gnu.org>2013-11-26 22:15:06 -0800
commitcb6c95a394d9a9d2f068bf8ee240f2d2297867d1 (patch)
tree6da24e3ad26db4ab42d800dd78feea2eee3d79d9 /lisp/leim/quail/czech.el
parent4cbac8e94b68297189524f2db456c776bda4ed69 (diff)
downloademacs-cb6c95a394d9a9d2f068bf8ee240f2d2297867d1.tar.gz
Move runtime leim lisp files to lisp/leim directory
This allows us to reuse much of the lisp build and installation machinery, rather than duplicating it. * Makefile.in (abs_builddir, leimdir): Remove. (buildlisppath, SUBDIR, COPYDIR, COPYDESTS): No more leim directory. (epaths-force-w32): No longer set BLD. (leim): Remove. (install-arch-indep): No longer run or install leim. (mostlyclean, clean): No longer run leim rule. (bootstrap-clean): Change leim target. (maintainer-clean): Add leim. (check-declare): Remove leim. * README: Update for leim changes. * configure.ac (leimdir): Remove. (standardlisppath): No more leimdir. * make-dist: Update for files from leim/ now being in lisp/leim/. * doc/lispref/loading.texi (Library Search): * doc/lispref/os.texi (Startup Summary): No more leim directory. * leim/Makefile.in (leimdir): New variable. (TIT_GB, TIT_BIG5, MISC, changed.tit, changed.misc) (${leimdir}/leim-list.el, ${leimdir}/ja-dic/ja-dic.el): Generate in $leimdir. (all): Remove compilation, add ja-dic. (leim-list.el): Now PHONY. (setwins, compile-targets, compile-main, clean, mostlyclean) (extraclean): Remove. (bootstrap-clean): Delete all generated files. * leim/README: Update for moved leim/ directory. * leim/leim-ext.el (ucs-input-activate, hangul-input-method-activate): Remove manual autoloads; now in loaddefs.el. Disable byte-compile, version-control, autoloads in the output. * lisp/Makefile.in (setwins_for_subdirs): Skip leim/ directory. (compile-main): Depend on lisp/leim rule. (leim): New rule. * lisp/loadup.el: Move leim-list.el to leim/ subdirectory. * lisp/startup.el (normal-top-level): No more leim directory. * lisp/international/ja-dic-cnv.el (skkdic-convert): Disable version-control and autoloads in output files. * lisp/international/titdic-cnv.el (titdic-convert, miscdic-convert): Disable version-control and autoloads in output files. * lisp/leim/quail: Move here from ../leim. * lisp/leim/quail/hangul.el (hangul-input-method-activate): Add autoload cookie. (generated-autoload-load-name): Set file-local value. * lisp/leim/quail/uni-input.el (ucs-input-activate): Add autoload cookie. (generated-autoload-load-name): Set file-local value. * nt/README.W32: * nt/addpm.c (env_vars): * nt/epaths.nt (PATH_LOADSEARCH, PATH_DUMPLOADSEARCH): * nt/paths.h (PATH_LOADSEARCH): No more leim directory. * src/Makefile.in (leimdir): Now in lisp source directory. ($(leimdir)/leim-list.el): Just use ../leim . * src/epaths.in (PATH_DUMPLOADSEARCH): * src/lread.c (load_path_default): * src/nsterm.m (ns_load_path): No more leim directory. * .bzrignore: Update for relocated leim files.
Diffstat (limited to 'lisp/leim/quail/czech.el')
-rw-r--r--lisp/leim/quail/czech.el568
1 files changed, 568 insertions, 0 deletions
diff --git a/lisp/leim/quail/czech.el b/lisp/leim/quail/czech.el
new file mode 100644
index 00000000000..56778927083
--- /dev/null
+++ b/lisp/leim/quail/czech.el
@@ -0,0 +1,568 @@
+;;; czech.el --- Quail package for inputting Czech -*-coding: utf-8;-*-
+
+;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc.
+
+;; Author: Milan Zamazal <pdm@zamazal.org>
+;; Maintainer: Pavel Janík <Pavel@Janik.cz>
+;; Keywords: i18n, multilingual, input method, Czech
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This file defines the following Czech keyboards:
+;; - "standard" Czech keyboard in the Windoze NT 105 keys version (both
+;; "QWERTZ" and "QWERTY" versions)
+;; - three non-standard Czech keyboards for programmers
+
+;;; Code:
+
+(require 'quail)
+
+
+(quail-define-package
+ "czech" "Czech" "CZ" t
+ "\"Standard\" Czech keyboard in the Windows NT 105 keys version."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?ě)
+ ("3" ?š)
+ ("4" ?č)
+ ("5" ?ř)
+ ("6" ?ž)
+ ("7" ?ý)
+ ("8" ?á)
+ ("9" ?í)
+ ("0" ?é)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("[" ?ú)
+ ("{" ?/)
+ ("]" ?\))
+ ("}" ?\()
+ ("|" ?`)
+ (";" ?ů)
+ (":" ?\")
+ ("'" ?§)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("y" ?z)
+ ("z" ?y)
+ ("Y" ?Z)
+ ("Z" ?Y)
+ ("\\a" ?ä)
+ ("\\o" ?ö)
+ ("\\s" ?ß)
+ ("\\u" ?ü)
+ ("\\A" ?Ä)
+ ("\\O" ?Ö)
+ ("\\S" ?ß)
+ ("\\U" ?Ü)
+ ("~u" ?ů)
+ ("~U" ?Ů)
+ ("=a" ?á)
+ ("+c" ?č)
+ ("+d" ?ď)
+ ("=e" ?é)
+ ("+e" ?ě)
+ ("=i" ?í)
+ ("+n" ?ň)
+ ("=o" ?ó)
+ ("+r" ?ř)
+ ("+s" ?š)
+ ("+t" ?ť)
+ ("=u" ?ú)
+ ("=z" ?ý)
+ ("+y" ?ž)
+ ("=A" ?Á)
+ ("+C" ?Č)
+ ("+D" ?Ď)
+ ("=E" ?É)
+ ("+E" ?Ě)
+ ("=I" ?Í)
+ ("+N" ?Ň)
+ ("=O" ?Ó)
+ ("+R" ?Ř)
+ ("+S" ?Š)
+ ("+T" ?Ť)
+ ("=U" ?Ú)
+ ("=Z" ?Ý)
+ ("+Y" ?Ž)
+ ("=1" ?!)
+ ("=2" ?@)
+ ("=3" ?#)
+ ("=4" ?$)
+ ("=5" ?%)
+ ("=6" ?^)
+ ("=7" ?&)
+ ("=8" ?*)
+ ("=9" ?\()
+ ("=0" ?\))
+ ("+1" ?!)
+ ("+2" ?@)
+ ("+3" ?#)
+ ("+4" ?$)
+ ("+5" ?%)
+ ("+6" ?^)
+ ("+7" ?&)
+ ("+8" ?*)
+ ("+9" ?\()
+ ("+0" ?\))
+ ("=<" ?<)
+ ("=>" ?>)
+ ("=[" ?\[)
+ ("=]" ?\])
+ ("={" ?{)
+ ("=}" ?})
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-qwerty" "Czech" "CZ" t
+ "\"Standard\" Czech keyboard in the Windows NT 105 keys version, QWERTY layout."
+ nil t nil nil t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?ě)
+ ("3" ?š)
+ ("4" ?č)
+ ("5" ?ř)
+ ("6" ?ž)
+ ("7" ?ý)
+ ("8" ?á)
+ ("9" ?í)
+ ("0" ?é)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("[" ?ú)
+ ("{" ?/)
+ ("]" ?\))
+ ("}" ?\()
+ ("|" ?`)
+ (";" ?ů)
+ (":" ?\")
+ ("'" ?§)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("\\a" ?ä)
+ ("\\o" ?ö)
+ ("\\s" ?ß)
+ ("\\u" ?ü)
+ ("\\A" ?Ä)
+ ("\\O" ?Ö)
+ ("\\S" ?ß)
+ ("\\U" ?Ü)
+ ("~u" ?ů)
+ ("~U" ?Ů)
+ ("=a" ?á)
+ ("+c" ?č)
+ ("+d" ?ď)
+ ("=e" ?é)
+ ("+e" ?ě)
+ ("=i" ?í)
+ ("+n" ?ň)
+ ("=o" ?ó)
+ ("+r" ?ř)
+ ("+s" ?š)
+ ("+t" ?ť)
+ ("=u" ?ú)
+ ("=y" ?ý)
+ ("+z" ?ž)
+ ("=A" ?Á)
+ ("+C" ?Č)
+ ("+D" ?Ď)
+ ("=E" ?É)
+ ("+E" ?Ě)
+ ("=I" ?Í)
+ ("+N" ?Ň)
+ ("=O" ?Ó)
+ ("+R" ?Ř)
+ ("+S" ?Š)
+ ("+T" ?Ť)
+ ("=Y" ?Ý)
+ ("+Z" ?Ž)
+ ("=U" ?Ú)
+ ("=1" ?!)
+ ("=2" ?@)
+ ("=3" ?#)
+ ("=4" ?$)
+ ("=5" ?%)
+ ("=6" ?^)
+ ("=7" ?&)
+ ("=8" ?*)
+ ("=9" ?\()
+ ("=0" ?\))
+ ("+1" ?!)
+ ("+2" ?@)
+ ("+3" ?#)
+ ("+4" ?$)
+ ("+5" ?%)
+ ("+6" ?^)
+ ("+7" ?&)
+ ("+8" ?*)
+ ("+9" ?\()
+ ("+0" ?\))
+ ("=<" ?<)
+ ("=>" ?>)
+ ("=[" ?\[)
+ ("=]" ?\])
+ ("={" ?{)
+ ("=}" ?})
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-prog-1" "Czech" "CZ" t
+ "Czech (non-standard) keyboard for programmers #1.
+
+All digits except of `1' are replaced by Czech characters as on the standard
+Czech keyboard.
+`1' is replaced by `+'.
+`+' is a dead key. Multiple presses of the dead key generate various accents.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?ě)
+ ("3" ?š)
+ ("4" ?č)
+ ("5" ?ř)
+ ("6" ?ž)
+ ("7" ?ý)
+ ("8" ?á)
+ ("9" ?í)
+ ("0" ?é)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("+a" ?á)
+ ("++a" ?ä)
+ ("+c" ?č)
+ ("+d" ?ď)
+ ("+e" ?é)
+ ("++e" ?ě)
+ ("+i" ?í)
+ ("+l" ?ĺ)
+ ("++l" ?ľ)
+ ("+n" ?ň)
+ ("+o" ?ó)
+ ("++o" ?ö)
+ ("+++o" ?ô)
+ ("+r" ?ř)
+ ("++r" ?ŕ)
+ ("+s" ?š)
+ ("++s" ?ß)
+ ("+t" ?ť)
+ ("+u" ?ú)
+ ("++u" ?ů)
+ ("+++u" ?ü)
+ ("+y" ?ý)
+ ("+z" ?ž)
+ ("+A" ?Á)
+ ("++A" ?Ä)
+ ("+C" ?Č)
+ ("+D" ?Ď)
+ ("+E" ?É)
+ ("++E" ?Ě)
+ ("+I" ?Í)
+ ("+L" ?Ĺ)
+ ("++L" ?Ľ)
+ ("+N" ?Ň)
+ ("+O" ?Ó)
+ ("++O" ?Ö)
+ ("+++O" ?Ô)
+ ("+R" ?Ř)
+ ("++R" ?Ŕ)
+ ("+S" ?Š)
+ ("++S" ?ß)
+ ("+T" ?Ť)
+ ("+U" ?Ú)
+ ("++U" ?Ů)
+ ("+++U" ?Ü)
+ ("+Y" ?Ý)
+ ("+Z" ?Ž)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-prog-2" "Czech" "CZ" t
+ "Czech (non-standard) keyboard for programmers #2.
+
+All digits except of `1' are replaced by Czech characters as on the standard
+Czech keyboard.
+`1' is replaced by `ů'.
+`+' is a dead key. Multiple presses of the dead key generate various accents.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?ů)
+ ("2" ?ě)
+ ("3" ?š)
+ ("4" ?č)
+ ("5" ?ř)
+ ("6" ?ž)
+ ("7" ?ý)
+ ("8" ?á)
+ ("9" ?í)
+ ("0" ?é)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("+a" ?á)
+ ("++a" ?ä)
+ ("+c" ?č)
+ ("+d" ?ď)
+ ("+e" ?é)
+ ("++e" ?ě)
+ ("+i" ?í)
+ ("+l" ?ĺ)
+ ("++l" ?ľ)
+ ("+n" ?ň)
+ ("+o" ?ó)
+ ("++o" ?ö)
+ ("+++o" ?ô)
+ ("+r" ?ř)
+ ("++r" ?ŕ)
+ ("+s" ?š)
+ ("++s" ?ß)
+ ("+t" ?ť)
+ ("+u" ?ú)
+ ("++u" ?ů)
+ ("+++u" ?ü)
+ ("+y" ?ý)
+ ("+z" ?ž)
+ ("+A" ?Á)
+ ("++A" ?Ä)
+ ("+C" ?Č)
+ ("+D" ?Ď)
+ ("+E" ?É)
+ ("++E" ?Ě)
+ ("+I" ?Í)
+ ("+L" ?Ĺ)
+ ("++L" ?Ľ)
+ ("+N" ?Ň)
+ ("+O" ?Ó)
+ ("++O" ?Ö)
+ ("+++O" ?Ô)
+ ("+R" ?Ř)
+ ("++R" ?Ŕ)
+ ("+S" ?Š)
+ ("++S" ?ß)
+ ("+T" ?Ť)
+ ("+U" ?Ú)
+ ("++U" ?Ů)
+ ("+++U" ?Ü)
+ ("+Y" ?Ý)
+ ("+Z" ?Ž)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+(quail-define-package
+ "czech-prog-3" "Czech" "CZ" t
+ "Czech (non-standard) keyboard for programmers compatible with the default
+keyboard from the obsolete `emacs-czech' package.
+
+All digits except of `1' are replaced by Czech characters as on the standard
+Czech keyboard.
+`[' and `]' are replaced with `ú' and `ů', respectively.
+There are two dead keys on `=' and `+'. Characters with diaereses are
+accessible through `+='.
+All other keys are the same as on standard US keyboard."
+ nil t nil nil t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("2" ?ě)
+ ("3" ?š)
+ ("4" ?č)
+ ("5" ?ř)
+ ("6" ?ž)
+ ("7" ?ý)
+ ("8" ?á)
+ ("9" ?í)
+ ("0" ?é)
+ ("[" ?ú)
+ ("]" ?ů)
+ ("==" ?=)
+ ("++" ?+)
+ ("=+" ?+)
+ ("=[" ?\[)
+ ("=]" ?\])
+ ("+[" ?\[)
+ ("+]" ?\])
+ ("=1" ?1)
+ ("=2" ?2)
+ ("=3" ?3)
+ ("=4" ?4)
+ ("=5" ?5)
+ ("=6" ?6)
+ ("=7" ?7)
+ ("=8" ?8)
+ ("=9" ?9)
+ ("=0" ?0)
+ ("+1" ?1)
+ ("+2" ?2)
+ ("+3" ?3)
+ ("+4" ?4)
+ ("+5" ?5)
+ ("+6" ?6)
+ ("+7" ?7)
+ ("+8" ?8)
+ ("+9" ?9)
+ ("+0" ?0)
+ ("=A" ?Á)
+ ("+A" ?Ä)
+ ("+=A" ?Ä)
+ ("+C" ?Č)
+ ("+D" ?Ď)
+ ("=E" ?É)
+ ("+E" ?Ě)
+ ("=I" ?Í)
+ ("=L" ?Ľ)
+ ("+L" ?Ĺ)
+ ("+N" ?Ň)
+ ("=O" ?Ó)
+ ("+O" ?Ô)
+ ("+=O" ?Ö)
+ ("=R" ?Ŕ)
+ ("+R" ?Ř)
+ ("+S" ?Š)
+ ("=S" ?ß)
+ ("+T" ?Ť)
+ ("=U" ?Ú)
+ ("+U" ?Ů)
+ ("+=U" ?Ü)
+ ("=Y" ?Ý)
+ ("+Z" ?Ž)
+ ("=a" ?á)
+ ("+a" ?ä)
+ ("+=a" ?ä)
+ ("+c" ?č)
+ ("+d" ?ď)
+ ("=e" ?é)
+ ("+e" ?ě)
+ ("=i" ?í)
+ ("=l" ?ľ)
+ ("+l" ?ĺ)
+ ("+n" ?ň)
+ ("=o" ?ó)
+ ("+o" ?ô)
+ ("+=o" ?ö)
+ ("=r" ?ŕ)
+ ("+r" ?ř)
+ ("+s" ?š)
+ ("=s" ?ß)
+ ("+t" ?ť)
+ ("=u" ?ú)
+ ("+u" ?ů)
+ ("+=u" ?ü)
+ ("=y" ?ý)
+ ("+z" ?ž)
+ ([kp-1] ?1)
+ ([kp-2] ?2)
+ ([kp-3] ?3)
+ ([kp-4] ?4)
+ ([kp-5] ?5)
+ ([kp-6] ?6)
+ ([kp-7] ?7)
+ ([kp-8] ?8)
+ ([kp-9] ?9)
+ ([kp-0] ?0)
+ ([kp-add] ?+))
+
+;;; czech.el ends here