leim/quail/slovak.el

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