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

   1 ;;; slovak.el --- Quail package for inputting Slovak  -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 1998, 2001-2015 Free Software Foundation, Inc.
   4
   5 ;; Authors: Tibor Šimko <tibor.simko@fmph.uniba.sk>
   6 ;;      Milan Zamazal <pdm@zamazal.org>
   7 ;; Maintainer: Pavel Janík <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" ?ľ)
  44  ("3" ?š)
  45  ("4" ?č)
  46  ("5" ?ť)
  47  ("6" ?ž)
  48  ("7" ?ý)
  49  ("8" ?á)
  50  ("9" ?í)
  51  ("0" ?é)
  52  ("!" ?1)
  53  ("@" ?2)
  54  ("#" ?3)
  55  ("$" ?4)
  56  ("%" ?5)
  57  ("^" ?6)
  58  ("&" ?7)
  59  ("*" ?8)
  60  ("(" ?9)
  61  (")" ?0)
  62  ("-" ?=)
  63  ("_" ?%)
  64  ("=" ?')
  65  ("[" ?ú)
  66  ("{" ?/)
  67  ("]" ?ä)
  68  ("}" ?\()
  69  ("\\" ?ň)
  70  ("|" ?\))
  71  (";" ?ô)
  72  (":" ?\")
  73  ("'" ?§)
  74  ("\"" ?!)
  75  ("<" ??)
  76  (">" ?:)
  77  ("/" ?-)
  78  ("?" ?_)
  79  ("`" ?\;)
  80  ("~" ?^)
  81  ("y" ?z)
  82  ("z" ?y)
  83  ("Y" ?Z)
  84  ("Z" ?Y)
  85  ("=a" ?á)
  86  ("+a" ?ä)
  87  ("+=a" ?ä)
  88  ("+c" ?č)
  89  ("+d" ?ď)
  90  ("=e" ?é)
  91  ("+e" ?ě)
  92  ("=i" ?í)
  93  ("=l" ?ĺ)
  94  ("+l" ?ľ)
  95  ("+n" ?ň)
  96  ("=o" ?ó)
  97  ("+o" ?ô)
  98  ("~o" ?ô)
  99  ("+=o" ?ö)
 100  ("=r" ?ŕ)
 101  ("+r" ?ř)
 102  ("=s" ?ß)
 103  ("+s" ?š)
 104  ("+t" ?ť)
 105  ("=u" ?ú)
 106  ("+u" ?ů)
 107  ("+=u" ?ü)
 108  ("=z" ?ý)
 109  ("+y" ?ž)
 110  ("=A" ?Á)
 111  ("+A" ?Ä)
 112  ("+=A" ?Ä)
 113  ("+C" ?Č)
 114  ("+D" ?Ď)
 115  ("=E" ?É)
 116  ("+E" ?Ě)
 117  ("=I" ?Í)
 118  ("=L" ?Ĺ)
 119  ("+L" ?Ľ)
 120  ("+N" ?Ň)
 121  ("=O" ?Ó)
 122  ("+O" ?Ô)
 123  ("~O" ?Ô)
 124  ("+=O" ?Ö)
 125  ("=R" ?Ŕ)
 126  ("+R" ?Ř)
 127  ("=S" ?ß)
 128  ("+S" ?Š)
 129  ("+T" ?Ť)
 130  ("=U" ?Ú)
 131  ("+U" ?Ů)
 132  ("+=U" ?Ü)
 133  ("=Z" ?Ý)
 134  ("+Y" ?Ž)
 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" ?ľ)
 181  ("3" ?š)
 182  ("4" ?č)
 183  ("5" ?ť)
 184  ("6" ?ž)
 185  ("7" ?ý)
 186  ("8" ?á)
 187  ("9" ?í)
 188  ("0" ?é)
 189  ("[a" ?á)
 190  ("[[a" ?ä)
 191  ("[[[a" ?ä)
 192  ("[c" ?č)
 193  ("[[c" ?č)
 194  ("[d" ?ď)
 195  ("[[d" ?ď)
 196  ("[e" ?é)
 197  ("[[e" ?ě)
 198  ("[i" ?í)
 199  ("[l" ?ĺ)
 200  ("[[l" ?ľ)
 201  ("[n" ?ň)
 202  ("[[n" ?ň)
 203  ("[o" ?ó)
 204  ("[[o" ?ô)
 205  ("[[[o" ?ö)
 206  ("[r" ?ŕ)
 207  ("[[r" ?ř)
 208  ("[s" ?š)
 209  ("[[s" ?š)
 210  ("[[[s" ?ß)
 211  ("[t" ?ť)
 212  ("[[t" ?ť)
 213  ("[u" ?ú)
 214  ("[[u" ?ů)
 215  ("[[[u" ?ü)
 216  ("[y" ?ý)
 217  ("[z" ?ž)
 218  ("[[z" ?ž)
 219  ("[A" ?Á)
 220  ("[[A" ?Ä)
 221  ("[[[A" ?Ä)
 222  ("[C" ?Č)
 223  ("[[C" ?Č)
 224  ("[D" ?Ď)
 225  ("[[D" ?Ď)
 226  ("[E" ?É)
 227  ("[[E" ?Ě)
 228  ("[I" ?Í)
 229  ("[L" ?Ĺ)
 230  ("[[L" ?Ľ)
 231  ("[N" ?Ň)
 232  ("[[N" ?Ň)
 233  ("[O" ?Ó)
 234  ("[[O" ?Ô)
 235  ("[[[O" ?Ö)
 236  ("[R" ?Ŕ)
 237  ("[[R" ?Ř)
 238  ("[S" ?Š)
 239  ("[[S" ?Š)
 240  ("[[[S" ?ß)
 241  ("[T" ?Ť)
 242  ("[[T" ?Ť)
 243  ("[U" ?Ú)
 244  ("[[U" ?Ů)
 245  ("[[[U" ?Ü)
 246  ("[Y" ?Ý)
 247  ("[Z" ?Ž)
 248  ("[[Z" ?Ž)
 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" ?ľ)
 274  ("3" ?š)
 275  ("4" ?č)
 276  ("5" ?ť)
 277  ("6" ?ž)
 278  ("7" ?ý)
 279  ("8" ?á)
 280  ("9" ?í)
 281  ("0" ?é)
 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" ?á)
 304  ("+a" ?ä)
 305  ("+=a" ?ä)
 306  ("+c" ?č)
 307  ("+d" ?ď)
 308  ("=e" ?é)
 309  ("+e" ?ě)
 310  ("=i" ?í)
 311  ("=l" ?ĺ)
 312  ("+l" ?ľ)
 313  ("+n" ?ň)
 314  ("=o" ?ó)
 315  ("+o" ?ô)
 316  ("+=o" ?ö)
 317  ("=r" ?ŕ)
 318  ("+r" ?ř)
 319  ("=s" ?ß)
 320  ("+s" ?š)
 321  ("+t" ?ť)
 322  ("=u" ?ú)
 323  ("+u" ?ů)
 324  ("+=u" ?ü)
 325  ("=y" ?ý)
 326  ("+z" ?ž)
 327  ("=A" ?Á)
 328  ("+A" ?Ä)
 329  ("+=A" ?Ä)
 330  ("+C" ?Č)
 331  ("+D" ?Ď)
 332  ("=E" ?É)
 333  ("+E" ?Ě)
 334  ("=I" ?Í)
 335  ("=L" ?Ĺ)
 336  ("+L" ?Ľ)
 337  ("+N" ?Ň)
 338  ("=O" ?Ó)
 339  ("+O" ?Ô)
 340  ("+=O" ?Ö)
 341  ("=R" ?Ŕ)
 342  ("+R" ?Ř)
 343  ("=S" ?ß)
 344  ("+S" ?Š)
 345  ("+T" ?Ť)
 346  ("=U" ?Ú)
 347  ("+U" ?Ů)
 348  ("+=U" ?Ü)
 349  ("=Y" ?Ý)
 350  ("+Z" ?Ž)
 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" ?á)
 378  ("[[a" ?ä)
 379  ("[[[a" ?ä)
 380  ("]a" ?ä)
 381  ("][a" ?ä)
 382  ("[c" ?č)
 383  ("[[c" ?č)
 384  ("]c" ?č)
 385  ("[d" ?ď)
 386  ("[[d" ?ď)
 387  ("]d" ?ď)
 388  ("[e" ?é)
 389  ("[[e" ?ě)
 390  ("]e" ?ě)
 391  ("[i" ?í)
 392  ("[l" ?ĺ)
 393  ("[[l" ?ľ)
 394  ("]l" ?ľ)
 395  ("[n" ?ň)
 396  ("[[n" ?ň)
 397  ("]n" ?ň)
 398  ("[[o" ?ô)
 399  ("[[[o" ?ö)
 400  ("[o" ?ó)
 401  ("]o" ?ô)
 402  ("][o" ?ö)
 403  ("[r" ?ŕ)
 404  ("[[r" ?ř)
 405  ("]r" ?ř)
 406  ("[s" ?š)
 407  ("[[s" ?š)
 408  ("[[[s" ?ß)
 409  ("]s" ?š)
 410  ("[t" ?ť)
 411  ("[[t" ?ť)
 412  ("]t" ?ť)
 413  ("[u" ?ú)
 414  ("[[u" ?ů)
 415  ("[[[u" ?ü)
 416  ("]u" ?ů)
 417  ("][u" ?ü)
 418  ("[y" ?ý)
 419  ("[z" ?ž)
 420  ("[[z" ?ž)
 421  ("]z" ?ž)
 422  ("[A" ?Á)
 423  ("[[A" ?Ä)
 424  ("[[[A" ?Ä)
 425  ("]A" ?Ä)
 426  ("][A" ?Ä)
 427  ("[C" ?Č)
 428  ("[[C" ?Č)
 429  ("]C" ?Č)
 430  ("[D" ?Ď)
 431  ("[[D" ?Ď)
 432  ("]D" ?Ď)
 433  ("[E" ?É)
 434  ("[[E" ?Ě)
 435  ("]E" ?Ě)
 436  ("[I" ?Í)
 437  ("[L" ?Ĺ)
 438  ("[[L" ?Ľ)
 439  ("]L" ?Ľ)
 440  ("[N" ?Ň)
 441  ("[[N" ?Ň)
 442  ("]N" ?Ň)
 443  ("[O" ?Ó)
 444  ("[[O" ?Ô)
 445  ("[[[O" ?Ö)
 446  ("]O" ?Ô)
 447  ("][O" ?Ö)
 448  ("[R" ?Ŕ)
 449  ("[[R" ?Ř)
 450  ("]R" ?Ř)
 451  ("[S" ?Š)
 452  ("[[S" ?Š)
 453  ("[[[S" ?ß)
 454  ("]S" ?Š)
 455  ("[T" ?Ť)
 456  ("[[T" ?Ť)
 457  ("]T" ?Ť)
 458  ("[U" ?Ú)
 459  ("[[U" ?Ů)
 460  ("[[[U" ?Ü)
 461  ("]U" ?Ů)
 462  ("][U" ?Ü)
 463  ("[Y" ?Ý)
 464  ("[Z" ?Ž)
 465  ("[[Z" ?Ž)
 466  ("]Z" ?Ž)
 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