leim/quail/slovak.el

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