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

   1 ;;; slovak.el --- Quail package for inputting Slovak  -*-coding: iso-2022-7bit;-*-
   2
   3 ;; Copyright (C) 1998, 2001-2011
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Authors: Tibor \e,B)\e(Bimko <tibor.simko@fmph.uniba.sk>
   7 ;;      Milan Zamazal <pdm@zamazal.org>
   8 ;; Maintainer: Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>
   9 ;; Keywords: i18n, multilingual, input method, Slovak
  10
  11 ;; This file is part of GNU Emacs.
  12
  13 ;; GNU Emacs is free software: you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation, either version 3 of the License, or
  16 ;; (at your option) any later version.
  17
  18 ;; GNU Emacs is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  25
  26 ;;; Commentary:
  27
  28 ;; This file defines the following Slovak keyboards:
  29 ;; - standard Slovak keyboard
  30 ;; - three Slovak keyboards for programmers
  31
  32 ;;; Code:
  33
  34 (require 'quail)
  35
  36
  37 (quail-define-package
  38  "slovak" "Slovak" "SK" t
  39  "Standard Slovak keyboard."
  40  nil t nil nil t nil nil nil nil nil t)
  41
  42 (quail-define-rules
  43  ("1" ?+)
  44  ("2" ?\e,B5\e(B)
  45  ("3" ?\e,B9\e(B)
  46  ("4" ?\e,Bh\e(B)
  47  ("5" ?\e,B;\e(B)
  48  ("6" ?\e,B>\e(B)
  49  ("7" ?\e,B}\e(B)
  50  ("8" ?\e,Ba\e(B)
  51  ("9" ?\e,Bm\e(B)
  52  ("0" ?\e,Bi\e(B)
  53  ("!" ?1)
  54  ("@" ?2)
  55  ("#" ?3)
  56  ("$" ?4)
  57  ("%" ?5)
  58  ("^" ?6)
  59  ("&" ?7)
  60  ("*" ?8)
  61  ("(" ?9)
  62  (")" ?0)
  63  ("-" ?=)
  64  ("_" ?%)
  65  ("=" ?')
  66  ("[" ?\e,Bz\e(B)
  67  ("{" ?/)
  68  ("]" ?\e,Bd\e(B)
  69  ("}" ?\()
  70  ("\\" ?\e,Br\e(B)
  71  ("|" ?\))
  72  (";" ?\e,Bt\e(B)
  73  (":" ?\")
  74  ("'" ?\e,B'\e(B)
  75  ("\"" ?!)
  76  ("<" ??)
  77  (">" ?:)
  78  ("/" ?-)
  79  ("?" ?_)
  80  ("`" ?\;)
  81  ("~" ?^)
  82  ("y" ?z)
  83  ("z" ?y)
  84  ("Y" ?Z)
  85  ("Z" ?Y)
  86  ("=a" ?\e,Ba\e(B)
  87  ("+a" ?\e,Bd\e(B)
  88  ("+=a" ?\e,Bd\e(B)
  89  ("+c" ?\e,Bh\e(B)
  90  ("+d" ?\e,Bo\e(B)
  91  ("=e" ?\e,Bi\e(B)
  92  ("+e" ?\e,Bl\e(B)
  93  ("=i" ?\e,Bm\e(B)
  94  ("=l" ?\e,Be\e(B)
  95  ("+l" ?\e,B5\e(B)
  96  ("+n" ?\e,Br\e(B)
  97  ("=o" ?\e,Bs\e(B)
  98  ("+o" ?\e,Bt\e(B)
  99  ("~o" ?\e,Bt\e(B)
 100  ("+=o" ?\e,Bv\e(B)
 101  ("=r" ?\e,B`\e(B)
 102  ("+r" ?\e,Bx\e(B)
 103  ("=s" ?\e,B_\e(B)
 104  ("+s" ?\e,B9\e(B)
 105  ("+t" ?\e,B;\e(B)
 106  ("=u" ?\e,Bz\e(B)
 107  ("+u" ?\e,By\e(B)
 108  ("+=u" ?\e,B|\e(B)
 109  ("=z" ?\e,B}\e(B)
 110  ("+y" ?\e,B>\e(B)
 111  ("=A" ?\e,BA\e(B)
 112  ("+A" ?\e,BD\e(B)
 113  ("+=A" ?\e,BD\e(B)
 114  ("+C" ?\e,BH\e(B)
 115  ("+D" ?\e,BO\e(B)
 116  ("=E" ?\e,BI\e(B)
 117  ("+E" ?\e,BL\e(B)
 118  ("=I" ?\e,BM\e(B)
 119  ("=L" ?\e,BE\e(B)
 120  ("+L" ?\e,B%\e(B)
 121  ("+N" ?\e,BR\e(B)
 122  ("=O" ?\e,BS\e(B)
 123  ("+O" ?\e,BT\e(B)
 124  ("~O" ?\e,BT\e(B)
 125  ("+=O" ?\e,BV\e(B)
 126  ("=R" ?\e,B@\e(B)
 127  ("+R" ?\e,BX\e(B)
 128  ("=S" ?\e,B_\e(B)
 129  ("+S" ?\e,B)\e(B)
 130  ("+T" ?\e,B+\e(B)
 131  ("=U" ?\e,BZ\e(B)
 132  ("+U" ?\e,BY\e(B)
 133  ("+=U" ?\e,B\\e(B)
 134  ("=Z" ?\e,B]\e(B)
 135  ("+Y" ?\e,B.\e(B)
 136  ("=q" ?`)
 137  ("=2" ?@)
 138  ("=3" ?#)
 139  ("=4" ?$)
 140  ("=5" ?%)
 141  ("=6" ?^)
 142  ("=7" ?&)
 143  ("=8" ?*)
 144  ("=9" ?\()
 145  ("=0" ?\))
 146  ("+1" ?!)
 147  ("+2" ?@)
 148  ("+3" ?#)
 149  ("+4" ?$)
 150  ("+5" ?%)
 151  ("+6" ?^)
 152  ("+7" ?&)
 153  ("+8" ?*)
 154  ("+9" ?\()
 155  ("+0" ?\))
 156  ([kp-1] ?1)
 157  ([kp-2] ?2)
 158  ([kp-3] ?3)
 159  ([kp-4] ?4)
 160  ([kp-5] ?5)
 161  ([kp-6] ?6)
 162  ([kp-7] ?7)
 163  ([kp-8] ?8)
 164  ([kp-9] ?9)
 165  ([kp-0] ?0)
 166  ([kp-add] ?+))
 167
 168
 169 (quail-define-package
 170  "slovak-prog-1" "Slovak" "SK" t
 171  "Slovak (non-standard) keyboard for programmers #1.
 172
 173 All digits except of `1' are replaced by Slovak characters as on the standard
 174 Slovak keyboard.
 175 Dead keys are on `[', `[[', and `[[['.
 176 All other keys are the same as on standard US keyboard."
 177  nil t nil nil t nil nil nil nil nil t)
 178
 179 (quail-define-rules
 180  ("[[[[" ?\[)
 181  ("2" ?\e,B5\e(B)
 182  ("3" ?\e,B9\e(B)
 183  ("4" ?\e,Bh\e(B)
 184  ("5" ?\e,B;\e(B)
 185  ("6" ?\e,B>\e(B)
 186  ("7" ?\e,B}\e(B)
 187  ("8" ?\e,Ba\e(B)
 188  ("9" ?\e,Bm\e(B)
 189  ("0" ?\e,Bi\e(B)
 190  ("[a" ?\e,Ba\e(B)
 191  ("[[a" ?\e,Bd\e(B)
 192  ("[[[a" ?\e,Bd\e(B)
 193  ("[c" ?\e,Bh\e(B)
 194  ("[[c" ?\e,Bh\e(B)
 195  ("[d" ?\e,Bo\e(B)
 196  ("[[d" ?\e,Bo\e(B)
 197  ("[e" ?\e,Bi\e(B)
 198  ("[[e" ?\e,Bl\e(B)
 199  ("[i" ?\e,Bm\e(B)
 200  ("[l" ?\e,Be\e(B)
 201  ("[[l" ?\e,B5\e(B)
 202  ("[n" ?\e,Br\e(B)
 203  ("[[n" ?\e,Br\e(B)
 204  ("[o" ?\e,Bs\e(B)
 205  ("[[o" ?\e,Bt\e(B)
 206  ("[[[o" ?\e,Bv\e(B)
 207  ("[r" ?\e,B`\e(B)
 208  ("[[r" ?\e,Bx\e(B)
 209  ("[s" ?\e,B9\e(B)
 210  ("[[s" ?\e,B9\e(B)
 211  ("[[[s" ?\e,B_\e(B)
 212  ("[t" ?\e,B;\e(B)
 213  ("[[t" ?\e,B;\e(B)
 214  ("[u" ?\e,Bz\e(B)
 215  ("[[u" ?\e,By\e(B)
 216  ("[[[u" ?\e,B|\e(B)
 217  ("[y" ?\e,B}\e(B)
 218  ("[z" ?\e,B>\e(B)
 219  ("[[z" ?\e,B>\e(B)
 220  ("[A" ?\e,BA\e(B)
 221  ("[[A" ?\e,BD\e(B)
 222  ("[[[A" ?\e,BD\e(B)
 223  ("[C" ?\e,BH\e(B)
 224  ("[[C" ?\e,BH\e(B)
 225  ("[D" ?\e,BO\e(B)
 226  ("[[D" ?\e,BO\e(B)
 227  ("[E" ?\e,BI\e(B)
 228  ("[[E" ?\e,BL\e(B)
 229  ("[I" ?\e,BM\e(B)
 230  ("[L" ?\e,BE\e(B)
 231  ("[[L" ?\e,B%\e(B)
 232  ("[N" ?\e,BR\e(B)
 233  ("[[N" ?\e,BR\e(B)
 234  ("[O" ?\e,BS\e(B)
 235  ("[[O" ?\e,BT\e(B)
 236  ("[[[O" ?\e,BV\e(B)
 237  ("[R" ?\e,B@\e(B)
 238  ("[[R" ?\e,BX\e(B)
 239  ("[S" ?\e,B)\e(B)
 240  ("[[S" ?\e,B)\e(B)
 241  ("[[[S" ?\e,B_\e(B)
 242  ("[T" ?\e,B+\e(B)
 243  ("[[T" ?\e,B+\e(B)
 244  ("[U" ?\e,BZ\e(B)
 245  ("[[U" ?\e,BY\e(B)
 246  ("[[[U" ?\e,B\\e(B)
 247  ("[Y" ?\e,B]\e(B)
 248  ("[Z" ?\e,B.\e(B)
 249  ("[[Z" ?\e,B.\e(B)
 250  ([kp-1] ?1)
 251  ([kp-2] ?2)
 252  ([kp-3] ?3)
 253  ([kp-4] ?4)
 254  ([kp-5] ?5)
 255  ([kp-6] ?6)
 256  ([kp-7] ?7)
 257  ([kp-8] ?8)
 258  ([kp-9] ?9)
 259  ([kp-0] ?0)
 260  ([kp-add] ?+))
 261
 262
 263 (quail-define-package
 264  "slovak-prog-2" "Slovak" "SK" t
 265  "Slovak (non-standard) keyboard for programmers #2.
 266
 267 All digits except of `1' are replaced by Slovak characters as on the standard
 268 Slovak keyboard.
 269 Dead keys are on `=' and `+'.
 270 All other keys are the same as on standard US keyboard."
 271  nil t nil nil t nil nil nil nil nil t)
 272
 273 (quail-define-rules
 274  ("2" ?\e,B5\e(B)
 275  ("3" ?\e,B9\e(B)
 276  ("4" ?\e,Bh\e(B)
 277  ("5" ?\e,B;\e(B)
 278  ("6" ?\e,B>\e(B)
 279  ("7" ?\e,B}\e(B)
 280  ("8" ?\e,Ba\e(B)
 281  ("9" ?\e,Bm\e(B)
 282  ("0" ?\e,Bi\e(B)
 283  ("==" ?=)
 284  ("++" ?+)
 285  ("=+" ?+)
 286  ("=2" ?2)
 287  ("=3" ?3)
 288  ("=4" ?4)
 289  ("=5" ?5)
 290  ("=6" ?6)
 291  ("=7" ?7)
 292  ("=8" ?8)
 293  ("=9" ?9)
 294  ("=0" ?0)
 295  ("+2" ?2)
 296  ("+3" ?3)
 297  ("+4" ?4)
 298  ("+5" ?5)
 299  ("+6" ?6)
 300  ("+7" ?7)
 301  ("+8" ?8)
 302  ("+9" ?9)
 303  ("+0" ?0)
 304  ("=a" ?\e,Ba\e(B)
 305  ("+a" ?\e,Bd\e(B)
 306  ("+=a" ?\e,Bd\e(B)
 307  ("+c" ?\e,Bh\e(B)
 308  ("+d" ?\e,Bo\e(B)
 309  ("=e" ?\e,Bi\e(B)
 310  ("+e" ?\e,Bl\e(B)
 311  ("=i" ?\e,Bm\e(B)
 312  ("=l" ?\e,Be\e(B)
 313  ("+l" ?\e,B5\e(B)
 314  ("+n" ?\e,Br\e(B)
 315  ("=o" ?\e,Bs\e(B)
 316  ("+o" ?\e,Bt\e(B)
 317  ("+=o" ?\e,Bv\e(B)
 318  ("=r" ?\e,B`\e(B)
 319  ("+r" ?\e,Bx\e(B)
 320  ("=s" ?\e,B_\e(B)
 321  ("+s" ?\e,B9\e(B)
 322  ("+t" ?\e,B;\e(B)
 323  ("=u" ?\e,Bz\e(B)
 324  ("+u" ?\e,By\e(B)
 325  ("+=u" ?\e,B|\e(B)
 326  ("=y" ?\e,B}\e(B)
 327  ("+z" ?\e,B>\e(B)
 328  ("=A" ?\e,BA\e(B)
 329  ("+A" ?\e,BD\e(B)
 330  ("+=A" ?\e,BD\e(B)
 331  ("+C" ?\e,BH\e(B)
 332  ("+D" ?\e,BO\e(B)
 333  ("=E" ?\e,BI\e(B)
 334  ("+E" ?\e,BL\e(B)
 335  ("=I" ?\e,BM\e(B)
 336  ("=L" ?\e,BE\e(B)
 337  ("+L" ?\e,B%\e(B)
 338  ("+N" ?\e,BR\e(B)
 339  ("=O" ?\e,BS\e(B)
 340  ("+O" ?\e,BT\e(B)
 341  ("+=O" ?\e,BV\e(B)
 342  ("=R" ?\e,B@\e(B)
 343  ("+R" ?\e,BX\e(B)
 344  ("=S" ?\e,B_\e(B)
 345  ("+S" ?\e,B)\e(B)
 346  ("+T" ?\e,B+\e(B)
 347  ("=U" ?\e,BZ\e(B)
 348  ("+U" ?\e,BY\e(B)
 349  ("+=U" ?\e,B\\e(B)
 350  ("=Y" ?\e,B]\e(B)
 351  ("+Z" ?\e,B.\e(B)
 352  ([kp-1] ?1)
 353  ([kp-2] ?2)
 354  ([kp-3] ?3)
 355  ([kp-4] ?4)
 356  ([kp-5] ?5)
 357  ([kp-6] ?6)
 358  ([kp-7] ?7)
 359  ([kp-8] ?8)
 360  ([kp-9] ?9)
 361  ([kp-0] ?0)
 362  ([kp-add] ?+))
 363
 364
 365 (quail-define-package
 366  "slovak-prog-3" "Slovak" "SK" t
 367  "Slovak (non-standard) keyboard for programmers #3.
 368
 369 Dead keys are on `[', `[[', `[[[', and `]'.
 370 All other keys are the same as on standard US keyboard."
 371  nil t nil nil t nil nil nil nil nil t)
 372
 373 (quail-define-rules
 374  ("[[[[" ?\[)
 375  ("[]" ?\])
 376  ("][" ?\[)
 377  ("]]" ?\])
 378  ("[a" ?\e,Ba\e(B)
 379  ("[[a" ?\e,Bd\e(B)
 380  ("[[[a" ?\e,Bd\e(B)
 381  ("]a" ?\e,Bd\e(B)
 382  ("][a" ?\e,Bd\e(B)
 383  ("[c" ?\e,Bh\e(B)
 384  ("[[c" ?\e,Bh\e(B)
 385  ("]c" ?\e,Bh\e(B)
 386  ("[d" ?\e,Bo\e(B)
 387  ("[[d" ?\e,Bo\e(B)
 388  ("]d" ?\e,Bo\e(B)
 389  ("[e" ?\e,Bi\e(B)
 390  ("[[e" ?\e,Bl\e(B)
 391  ("]e" ?\e,Bl\e(B)
 392  ("[i" ?\e,Bm\e(B)
 393  ("[l" ?\e,Be\e(B)
 394  ("[[l" ?\e,B5\e(B)
 395  ("]l" ?\e,B5\e(B)
 396  ("[n" ?\e,Br\e(B)
 397  ("[[n" ?\e,Br\e(B)
 398  ("]n" ?\e,Br\e(B)
 399  ("[[o" ?\e,Bt\e(B)
 400  ("[[[o" ?\e,Bv\e(B)
 401  ("[o" ?\e,Bs\e(B)
 402  ("]o" ?\e,Bt\e(B)
 403  ("][o" ?\e,Bv\e(B)
 404  ("[r" ?\e,B`\e(B)
 405  ("[[r" ?\e,Bx\e(B)
 406  ("]r" ?\e,Bx\e(B)
 407  ("[s" ?\e,B9\e(B)
 408  ("[[s" ?\e,B9\e(B)
 409  ("[[[s" ?\e,B_\e(B)
 410  ("]s" ?\e,B9\e(B)
 411  ("[t" ?\e,B;\e(B)
 412  ("[[t" ?\e,B;\e(B)
 413  ("]t" ?\e,B;\e(B)
 414  ("[u" ?\e,Bz\e(B)
 415  ("[[u" ?\e,By\e(B)
 416  ("[[[u" ?\e,B|\e(B)
 417  ("]u" ?\e,By\e(B)
 418  ("][u" ?\e,B|\e(B)
 419  ("[y" ?\e,B}\e(B)
 420  ("[z" ?\e,B>\e(B)
 421  ("[[z" ?\e,B>\e(B)
 422  ("]z" ?\e,B>\e(B)
 423  ("[A" ?\e,BA\e(B)
 424  ("[[A" ?\e,BD\e(B)
 425  ("[[[A" ?\e,BD\e(B)
 426  ("]A" ?\e,BD\e(B)
 427  ("][A" ?\e,BD\e(B)
 428  ("[C" ?\e,BH\e(B)
 429  ("[[C" ?\e,BH\e(B)
 430  ("]C" ?\e,BH\e(B)
 431  ("[D" ?\e,BO\e(B)
 432  ("[[D" ?\e,BO\e(B)
 433  ("]D" ?\e,BO\e(B)
 434  ("[E" ?\e,BI\e(B)
 435  ("[[E" ?\e,BL\e(B)
 436  ("]E" ?\e,BL\e(B)
 437  ("[I" ?\e,BM\e(B)
 438  ("[L" ?\e,BE\e(B)
 439  ("[[L" ?\e,B%\e(B)
 440  ("]L" ?\e,B%\e(B)
 441  ("[N" ?\e,BR\e(B)
 442  ("[[N" ?\e,BR\e(B)
 443  ("]N" ?\e,BR\e(B)
 444  ("[O" ?\e,BS\e(B)
 445  ("[[O" ?\e,BT\e(B)
 446  ("[[[O" ?\e,BV\e(B)
 447  ("]O" ?\e,BT\e(B)
 448  ("][O" ?\e,BV\e(B)
 449  ("[R" ?\e,B@\e(B)
 450  ("[[R" ?\e,BX\e(B)
 451  ("]R" ?\e,BX\e(B)
 452  ("[S" ?\e,B)\e(B)
 453  ("[[S" ?\e,B)\e(B)
 454  ("[[[S" ?\e,B_\e(B)
 455  ("]S" ?\e,B)\e(B)
 456  ("[T" ?\e,B+\e(B)
 457  ("[[T" ?\e,B+\e(B)
 458  ("]T" ?\e,B+\e(B)
 459  ("[U" ?\e,BZ\e(B)
 460  ("[[U" ?\e,BY\e(B)
 461  ("[[[U" ?\e,B\\e(B)
 462  ("]U" ?\e,BY\e(B)
 463  ("][U" ?\e,B\\e(B)
 464  ("[Y" ?\e,B]\e(B)
 465  ("[Z" ?\e,B.\e(B)
 466  ("[[Z" ?\e,B.\e(B)
 467  ("]Z" ?\e,B.\e(B)
 468  ([kp-1] ?1)
 469  ([kp-2] ?2)
 470  ([kp-3] ?3)
 471  ([kp-4] ?4)
 472  ([kp-5] ?5)
 473  ([kp-6] ?6)
 474  ([kp-7] ?7)
 475  ([kp-8] ?8)
 476  ([kp-9] ?9)
 477  ([kp-0] ?0)
 478  ([kp-add] ?+))
 479
 480 ;;; slovak.el ends here