leim/quail/slovak.el

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