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-2016 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
 156
 157 (quail-define-package
 158  "slovak-prog-1" "Slovak" "SK" t
 159  "Slovak (non-standard) keyboard for programmers #1.
 160
 161 All digits except of `1' are replaced by Slovak characters as on the standard
 162 Slovak keyboard.
 163 Dead keys are on `[', `[[', and `[[['.
 164 All other keys are the same as on standard US keyboard."
 165  nil t nil nil t nil nil nil nil nil t)
 166
 167 (quail-define-rules
 168  ("[[[[" ?\[)
 169  ("2" ?ľ)
 170  ("3" ?š)
 171  ("4" ?č)
 172  ("5" ?ť)
 173  ("6" ?ž)
 174  ("7" ?ý)
 175  ("8" ?á)
 176  ("9" ?í)
 177  ("0" ?é)
 178  ("[a" ?á)
 179  ("[[a" ?ä)
 180  ("[[[a" ?ä)
 181  ("[c" ?č)
 182  ("[[c" ?č)
 183  ("[d" ?ď)
 184  ("[[d" ?ď)
 185  ("[e" ?é)
 186  ("[[e" ?ě)
 187  ("[i" ?í)
 188  ("[l" ?ĺ)
 189  ("[[l" ?ľ)
 190  ("[n" ?ň)
 191  ("[[n" ?ň)
 192  ("[o" ?ó)
 193  ("[[o" ?ô)
 194  ("[[[o" ?ö)
 195  ("[r" ?ŕ)
 196  ("[[r" ?ř)
 197  ("[s" ?š)
 198  ("[[s" ?š)
 199  ("[[[s" ?ß)
 200  ("[t" ?ť)
 201  ("[[t" ?ť)
 202  ("[u" ?ú)
 203  ("[[u" ?ů)
 204  ("[[[u" ?ü)
 205  ("[y" ?ý)
 206  ("[z" ?ž)
 207  ("[[z" ?ž)
 208  ("[A" ?Á)
 209  ("[[A" ?Ä)
 210  ("[[[A" ?Ä)
 211  ("[C" ?Č)
 212  ("[[C" ?Č)
 213  ("[D" ?Ď)
 214  ("[[D" ?Ď)
 215  ("[E" ?É)
 216  ("[[E" ?Ě)
 217  ("[I" ?Í)
 218  ("[L" ?Ĺ)
 219  ("[[L" ?Ľ)
 220  ("[N" ?Ň)
 221  ("[[N" ?Ň)
 222  ("[O" ?Ó)
 223  ("[[O" ?Ô)
 224  ("[[[O" ?Ö)
 225  ("[R" ?Ŕ)
 226  ("[[R" ?Ř)
 227  ("[S" ?Š)
 228  ("[[S" ?Š)
 229  ("[[[S" ?ß)
 230  ("[T" ?Ť)
 231  ("[[T" ?Ť)
 232  ("[U" ?Ú)
 233  ("[[U" ?Ů)
 234  ("[[[U" ?Ü)
 235  ("[Y" ?Ý)
 236  ("[Z" ?Ž)
 237  ("[[Z" ?Ž))
 238
 239
 240 (quail-define-package
 241  "slovak-prog-2" "Slovak" "SK" t
 242  "Slovak (non-standard) keyboard for programmers #2.
 243
 244 All digits except of `1' are replaced by Slovak characters as on the standard
 245 Slovak keyboard.
 246 Dead keys are on `=' and `+'.
 247 All other keys are the same as on standard US keyboard."
 248  nil t nil nil t nil nil nil nil nil t)
 249
 250 (quail-define-rules
 251  ("2" ?ľ)
 252  ("3" ?š)
 253  ("4" ?č)
 254  ("5" ?ť)
 255  ("6" ?ž)
 256  ("7" ?ý)
 257  ("8" ?á)
 258  ("9" ?í)
 259  ("0" ?é)
 260  ("==" ?=)
 261  ("++" ?+)
 262  ("=+" ?+)
 263  ("=2" ?2)
 264  ("=3" ?3)
 265  ("=4" ?4)
 266  ("=5" ?5)
 267  ("=6" ?6)
 268  ("=7" ?7)
 269  ("=8" ?8)
 270  ("=9" ?9)
 271  ("=0" ?0)
 272  ("+2" ?2)
 273  ("+3" ?3)
 274  ("+4" ?4)
 275  ("+5" ?5)
 276  ("+6" ?6)
 277  ("+7" ?7)
 278  ("+8" ?8)
 279  ("+9" ?9)
 280  ("+0" ?0)
 281  ("=a" ?á)
 282  ("+a" ?ä)
 283  ("+=a" ?ä)
 284  ("+c" ?č)
 285  ("+d" ?ď)
 286  ("=e" ?é)
 287  ("+e" ?ě)
 288  ("=i" ?í)
 289  ("=l" ?ĺ)
 290  ("+l" ?ľ)
 291  ("+n" ?ň)
 292  ("=o" ?ó)
 293  ("+o" ?ô)
 294  ("+=o" ?ö)
 295  ("=r" ?ŕ)
 296  ("+r" ?ř)
 297  ("=s" ?ß)
 298  ("+s" ?š)
 299  ("+t" ?ť)
 300  ("=u" ?ú)
 301  ("+u" ?ů)
 302  ("+=u" ?ü)
 303  ("=y" ?ý)
 304  ("+z" ?ž)
 305  ("=A" ?Á)
 306  ("+A" ?Ä)
 307  ("+=A" ?Ä)
 308  ("+C" ?Č)
 309  ("+D" ?Ď)
 310  ("=E" ?É)
 311  ("+E" ?Ě)
 312  ("=I" ?Í)
 313  ("=L" ?Ĺ)
 314  ("+L" ?Ľ)
 315  ("+N" ?Ň)
 316  ("=O" ?Ó)
 317  ("+O" ?Ô)
 318  ("+=O" ?Ö)
 319  ("=R" ?Ŕ)
 320  ("+R" ?Ř)
 321  ("=S" ?ß)
 322  ("+S" ?Š)
 323  ("+T" ?Ť)
 324  ("=U" ?Ú)
 325  ("+U" ?Ů)
 326  ("+=U" ?Ü)
 327  ("=Y" ?Ý)
 328  ("+Z" ?Ž))
 329
 330
 331 (quail-define-package
 332  "slovak-prog-3" "Slovak" "SK" t
 333  "Slovak (non-standard) keyboard for programmers #3.
 334
 335 Dead keys are on `[', `[[', `[[[', and `]'.
 336 All other keys are the same as on standard US keyboard."
 337  nil t nil nil t nil nil nil nil nil t)
 338
 339 (quail-define-rules
 340  ("[[[[" ?\[)
 341  ("[]" ?\])
 342  ("][" ?\[)
 343  ("]]" ?\])
 344  ("[a" ?á)
 345  ("[[a" ?ä)
 346  ("[[[a" ?ä)
 347  ("]a" ?ä)
 348  ("][a" ?ä)
 349  ("[c" ?č)
 350  ("[[c" ?č)
 351  ("]c" ?č)
 352  ("[d" ?ď)
 353  ("[[d" ?ď)
 354  ("]d" ?ď)
 355  ("[e" ?é)
 356  ("[[e" ?ě)
 357  ("]e" ?ě)
 358  ("[i" ?í)
 359  ("[l" ?ĺ)
 360  ("[[l" ?ľ)
 361  ("]l" ?ľ)
 362  ("[n" ?ň)
 363  ("[[n" ?ň)
 364  ("]n" ?ň)
 365  ("[[o" ?ô)
 366  ("[[[o" ?ö)
 367  ("[o" ?ó)
 368  ("]o" ?ô)
 369  ("][o" ?ö)
 370  ("[r" ?ŕ)
 371  ("[[r" ?ř)
 372  ("]r" ?ř)
 373  ("[s" ?š)
 374  ("[[s" ?š)
 375  ("[[[s" ?ß)
 376  ("]s" ?š)
 377  ("[t" ?ť)
 378  ("[[t" ?ť)
 379  ("]t" ?ť)
 380  ("[u" ?ú)
 381  ("[[u" ?ů)
 382  ("[[[u" ?ü)
 383  ("]u" ?ů)
 384  ("][u" ?ü)
 385  ("[y" ?ý)
 386  ("[z" ?ž)
 387  ("[[z" ?ž)
 388  ("]z" ?ž)
 389  ("[A" ?Á)
 390  ("[[A" ?Ä)
 391  ("[[[A" ?Ä)
 392  ("]A" ?Ä)
 393  ("][A" ?Ä)
 394  ("[C" ?Č)
 395  ("[[C" ?Č)
 396  ("]C" ?Č)
 397  ("[D" ?Ď)
 398  ("[[D" ?Ď)
 399  ("]D" ?Ď)
 400  ("[E" ?É)
 401  ("[[E" ?Ě)
 402  ("]E" ?Ě)
 403  ("[I" ?Í)
 404  ("[L" ?Ĺ)
 405  ("[[L" ?Ľ)
 406  ("]L" ?Ľ)
 407  ("[N" ?Ň)
 408  ("[[N" ?Ň)
 409  ("]N" ?Ň)
 410  ("[O" ?Ó)
 411  ("[[O" ?Ô)
 412  ("[[[O" ?Ö)
 413  ("]O" ?Ô)
 414  ("][O" ?Ö)
 415  ("[R" ?Ŕ)
 416  ("[[R" ?Ř)
 417  ("]R" ?Ř)
 418  ("[S" ?Š)
 419  ("[[S" ?Š)
 420  ("[[[S" ?ß)
 421  ("]S" ?Š)
 422  ("[T" ?Ť)
 423  ("[[T" ?Ť)
 424  ("]T" ?Ť)
 425  ("[U" ?Ú)
 426  ("[[U" ?Ů)
 427  ("[[[U" ?Ü)
 428  ("]U" ?Ů)
 429  ("][U" ?Ü)
 430  ("[Y" ?Ý)
 431  ("[Z" ?Ž)
 432  ("[[Z" ?Ž)
 433  ("]Z" ?Ž))
 434
 435 ;;; slovak.el ends here