Mercurial > emacs
view leim/quail/slovak.el @ 24422:1f671d01563a
(ispell-dictionary-alist-override): New variable.
(ispell-dictionary-alist): Don't setq it,
if ispell-dictionary-alist-override is set.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 01 Mar 1999 03:48:22 +0000 |
| parents | 78826b8a6b21 |
| children | 794197ce5401 |
line wrap: on
line source
;;; quail/slovak.el -- Quail package for inputting Slovak ;; Copyright (C) 1998 Free Software Foundation. ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>, ;; Milan Zamazal <pdm@fi.muni.cz> ;; Maintainer: Milan Zamazal <pdm@fi.muni.cz> ;; Keywords: multilingual, input method, Slovak ;; 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 2, 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; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This setups some Slovak keyboards: ;; - standard Slovak keyboard ;; - three Slovak keyboards for programmers ;;; Code: (require 'quail) (quail-define-package "slovak" "Slovak" "SK" nil "Standard Slovak keyboard." nil t nil nil nil nil nil nil nil nil t) (quail-define-rules ("1" ?+) ("2" ?,B5(B) ("3" ?,B9(B) ("4" ?,Bh(B) ("5" ?,B;(B) ("6" ?,B>(B) ("7" ?,B}(B) ("8" ?,Ba(B) ("9" ?,Bm(B) ("0" ?,Bi(B) ("!" ?1) ("@" ?2) ("#" ?3) ("$" ?4) ("%" ?5) ("^" ?6) ("&" ?7) ("*" ?8) ("(" ?9) (")" ?0) ("q" ?`) ("Q" ?`) ("-" ?=) ("_" ?%) ("=" ?') ("[" ?,Bz(B) ("{" ?/) ("]" ?,Bd(B) ("}" ?\() ("\\" ?,Br(B) ("|" ?\)) (";" ?,Bt(B) (":" ?\") ("'" ?,B'(B) ("\"" ?!) ("<" ??) (">" ?:) ("/" ?-) ("?" ?_) ("`" ?\;) ("~" ?^) ("y" ?z) ("z" ?y) ("Y" ?Z) ("Z" ?Y) ("=a" ?,Ba(B) ("+a" ?,Bd(B) ("+=a" ?,Bd(B) ("+c" ?,Bh(B) ("+d" ?,Bo(B) ("=e" ?,Bi(B) ("+e" ?,Bl(B) ("=i" ?,Bm(B) ("=l" ?,Be(B) ("+l" ?,B5(B) ("+n" ?,Br(B) ("=o" ?,Bs(B) ("+o" ?,Bt(B) ("~o" ?,Bt(B) ("+=o" ?,Bv(B) ("=r" ?,B`(B) ("+r" ?,Bx(B) ("=s" ?,B_(B) ("+s" ?,B9(B) ("+t" ?,B;(B) ("=u" ?,Bz(B) ("+u" ?,By(B) ("+=u" ?,B|(B) ("=z" ?,B}(B) ("+y" ?,B>(B) ("=A" ?,BA(B) ("+A" ?,BD(B) ("+=A" ?,BD(B) ("+C" ?,BH(B) ("+D" ?,BO(B) ("=E" ?,BI(B) ("+E" ?,BL(B) ("=I" ?,BM(B) ("=L" ?,BE(B) ("+L" ?,B%(B) ("+N" ?,BR(B) ("=O" ?,BS(B) ("+O" ?,BT(B) ("~O" ?,BT(B) ("+=O" ?,BV(B) ("=R" ?,B@(B) ("+R" ?,BX(B) ("=S" ?,B_(B) ("+S" ?,B)(B) ("+T" ?,B+(B) ("=U" ?,BZ(B) ("+U" ?,BY(B) ("+=U" ?,B\(B) ("=Z" ?,B](B) ("+Y" ?,B.(B) ("=q" ?q) ("+q" ?q) ("=Q" ?Q) ("+Q" ?Q) ("=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 "slovak-prog-1" "Slovak" "SK" nil "Slovak (non-standard) keyboard for programmers #1. All digits except of `1' are replaced by Slovak characters as on the standard Slovak keyboard. Dead keys are on `[', `[[', and `[[['. All other keys are the same as on standard US keyboard." nil t nil nil nil nil nil nil nil nil t) (quail-define-rules ("[[[[" ?\[) ("2" ?,B5(B) ("3" ?,B9(B) ("4" ?,Bh(B) ("5" ?,B;(B) ("6" ?,B>(B) ("7" ?,B}(B) ("8" ?,Ba(B) ("9" ?,Bm(B) ("0" ?,Bi(B) ("[a" ?,Ba(B) ("[[a" ?,Bd(B) ("[[[a" ?,Bd(B) ("[c" ?,Bh(B) ("[[c" ?,Bh(B) ("[d" ?,Bo(B) ("[[d" ?,Bo(B) ("[e" ?,Bi(B) ("[[e" ?,Bl(B) ("[i" ?,Bm(B) ("[l" ?,Be(B) ("[[l" ?,B5(B) ("[n" ?,Br(B) ("[[n" ?,Br(B) ("[o" ?,Bs(B) ("[[o" ?,Bt(B) ("[[[o" ?,Bv(B) ("[r" ?,B`(B) ("[[r" ?,Bx(B) ("[s" ?,B9(B) ("[[s" ?,B9(B) ("[[[s" ?,B_(B) ("[t" ?,B;(B) ("[[t" ?,B;(B) ("[u" ?,Bz(B) ("[[u" ?,By(B) ("[[[u" ?,B|(B) ("[y" ?,B}(B) ("[z" ?,B>(B) ("[[z" ?,B>(B) ("[A" ?,BA(B) ("[[A" ?,BD(B) ("[[[A" ?,BD(B) ("[C" ?,BH(B) ("[[C" ?,BH(B) ("[D" ?,BO(B) ("[[D" ?,BO(B) ("[E" ?,BI(B) ("[[E" ?,BL(B) ("[I" ?,BM(B) ("[L" ?,BE(B) ("[[L" ?,B%(B) ("[N" ?,BR(B) ("[[N" ?,BR(B) ("[O" ?,BS(B) ("[[O" ?,BT(B) ("[[[O" ?,BV(B) ("[R" ?,B@(B) ("[[R" ?,BX(B) ("[S" ?,B)(B) ("[[S" ?,B)(B) ("[[[S" ?,B_(B) ("[T" ?,B+(B) ("[[T" ?,B+(B) ("[U" ?,BZ(B) ("[[U" ?,BY(B) ("[[[U" ?,B\(B) ("[Y" ?,B](B) ("[Z" ?,B.(B) ("[[Z" ?,B.(B) ([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 "slovak-prog-2" "Slovak" "SK" nil "Slovak (non-standard) keyboard for programmers #2. All digits except of `1' are replaced by Slovak characters as on the standard Slovak keyboard. Dead keys are on `=' and `+'. All other keys are the same as on standard US keyboard." nil t nil nil nil nil nil nil nil nil t) (quail-define-rules ("2" ?,B5(B) ("3" ?,B9(B) ("4" ?,Bh(B) ("5" ?,B;(B) ("6" ?,B>(B) ("7" ?,B}(B) ("8" ?,Ba(B) ("9" ?,Bm(B) ("0" ?,Bi(B) ("==" ?=) ("++" ?+) ("=+" ?+) ("=2" ?2) ("=3" ?3) ("=4" ?4) ("=5" ?5) ("=6" ?6) ("=7" ?7) ("=8" ?8) ("=9" ?9) ("=0" ?0) ("+2" ?2) ("+3" ?3) ("+4" ?4) ("+5" ?5) ("+6" ?6) ("+7" ?7) ("+8" ?8) ("+9" ?9) ("+0" ?0) ("=a" ?,Ba(B) ("+a" ?,Bd(B) ("+=a" ?,Bd(B) ("+c" ?,Bh(B) ("+d" ?,Bo(B) ("=e" ?,Bi(B) ("+e" ?,Bl(B) ("=i" ?,Bm(B) ("=l" ?,Be(B) ("+l" ?,B5(B) ("+n" ?,Br(B) ("=o" ?,Bs(B) ("+o" ?,Bt(B) ("+=o" ?,Bv(B) ("=r" ?,B`(B) ("+r" ?,Bx(B) ("=s" ?,B_(B) ("+s" ?,B9(B) ("+t" ?,B;(B) ("=u" ?,Bz(B) ("+u" ?,By(B) ("+=u" ?,B|(B) ("=y" ?,B}(B) ("+z" ?,B>(B) ("=A" ?,BA(B) ("+A" ?,BD(B) ("+=A" ?,BD(B) ("+C" ?,BH(B) ("+D" ?,BO(B) ("=E" ?,BI(B) ("+E" ?,BL(B) ("=I" ?,BM(B) ("=L" ?,BE(B) ("+L" ?,B%(B) ("+N" ?,BR(B) ("=O" ?,BS(B) ("+O" ?,BT(B) ("+=O" ?,BV(B) ("=R" ?,B@(B) ("+R" ?,BX(B) ("=S" ?,B_(B) ("+S" ?,B)(B) ("+T" ?,B+(B) ("=U" ?,BZ(B) ("+U" ?,BY(B) ("+=U" ?,B\(B) ("=Y" ?,B](B) ("+Z" ?,B.(B) ([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 "slovak-prog-3" "Slovak" "SK" nil "Slovak (non-standard) keyboard for programmers #3. Dead keys are on `[', `[[', `[[[', and `]'. All other keys are the same as on standard US keyboard." nil t nil nil nil nil nil nil nil nil t) (quail-define-rules ("[[[[" ?\[) ("[]" ?\]) ("][" ?\[) ("]]" ?\]) ("[a" ?,Ba(B) ("[[a" ?,Bd(B) ("[[[a" ?,Bd(B) ("]a" ?,Bd(B) ("][a" ?,Bd(B) ("[c" ?,Bh(B) ("[[c" ?,Bh(B) ("]c" ?,Bh(B) ("[d" ?,Bo(B) ("[[d" ?,Bo(B) ("]d" ?,Bo(B) ("[e" ?,Bi(B) ("[[e" ?,Bl(B) ("]e" ?,Bl(B) ("[i" ?,Bm(B) ("[l" ?,Be(B) ("[[l" ?,B5(B) ("]l" ?,B5(B) ("[n" ?,Br(B) ("[[n" ?,Br(B) ("]n" ?,Br(B) ("[[o" ?,Bt(B) ("[[[o" ?,Bv(B) ("[o" ?,Bs(B) ("]o" ?,Bt(B) ("][o" ?,Bv(B) ("[r" ?,B`(B) ("[[r" ?,Bx(B) ("]r" ?,Bx(B) ("[s" ?,B9(B) ("[[s" ?,B9(B) ("[[[s" ?,B_(B) ("]s" ?,B9(B) ("[t" ?,B;(B) ("[[t" ?,B;(B) ("]t" ?,B;(B) ("[u" ?,Bz(B) ("[[u" ?,By(B) ("[[[u" ?,B|(B) ("]u" ?,By(B) ("][u" ?,B|(B) ("[y" ?,B}(B) ("[z" ?,B>(B) ("[[z" ?,B>(B) ("]z" ?,B>(B) ("[A" ?,BA(B) ("[[A" ?,BD(B) ("[[[A" ?,BD(B) ("]A" ?,BD(B) ("][A" ?,BD(B) ("[C" ?,BH(B) ("[[C" ?,BH(B) ("]C" ?,BH(B) ("[D" ?,BO(B) ("[[D" ?,BO(B) ("]D" ?,BO(B) ("[E" ?,BI(B) ("[[E" ?,BL(B) ("]E" ?,BL(B) ("[I" ?,BM(B) ("[L" ?,BE(B) ("[[L" ?,B%(B) ("]L" ?,B%(B) ("[N" ?,BR(B) ("[[N" ?,BR(B) ("]N" ?,BR(B) ("[O" ?,BS(B) ("[[O" ?,BT(B) ("[[[O" ?,BV(B) ("]O" ?,BT(B) ("][O" ?,BV(B) ("[R" ?,B@(B) ("[[R" ?,BX(B) ("]R" ?,BX(B) ("[S" ?,B)(B) ("[[S" ?,B)(B) ("[[[S" ?,B_(B) ("]S" ?,B)(B) ("[T" ?,B+(B) ("[[T" ?,B+(B) ("]T" ?,B+(B) ("[U" ?,BZ(B) ("[[U" ?,BY(B) ("[[[U" ?,B\(B) ("]U" ?,BY(B) ("][U" ?,B\(B) ("[Y" ?,B](B) ("[Z" ?,B.(B) ("[[Z" ?,B.(B) ("]Z" ?,B.(B) ([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] ?+))