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

   1 ;;; quail/croatian.el -- Quail package for inputting Croatian  -*-coding: iso-8859-2;-*-
   2
   3 ;; Copyright (C) 2003-2012  Free Software Foundation, Inc.
   4
   5 ;; Author: Hrvoje Nik¹iæ <hniksic@xemacs.org>
   6 ;; Keywords: i18n
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Commentary:
  24
  25 ;; Modeled after czech.el by Milan Zamazal.
  26
  27 ;;; Code:
  28
  29 (require 'quail)
  30
  31 (quail-define-package
  32  "croatian" "Croatian" "HR" nil
  33  "\"Standard\" Croatian keyboard."
  34   nil t nil nil nil nil nil nil nil nil t)
  35
  36 (quail-define-rules
  37  ("@" ?\")
  38  ("^" ?&)
  39  ("&" ?/)
  40  ("*" ?\()
  41  ("(" ?\))
  42  (")" ?=)
  43  ("-" ?\')
  44  ("_" ??)
  45  ("=" ?+)
  46  ("+" ?*)
  47  ("[" ?¹)
  48  ("{" ?©)
  49  ("]" ?ð)
  50  ("}" ?Ð)
  51  (";" ?è)
  52  (":" ?È)
  53  ("'" ?æ)
  54  ("\"" ?Æ)
  55  ("\\" ?¾)
  56  ("|" ?®)
  57  ("<" ?\;)
  58  (">" ?:)
  59  ("/" ?-)
  60  ("?" ?_)
  61  ("y" ?z)
  62  ("Y" ?Z)
  63  ("z" ?y)
  64  ("Z" ?Y))
  65
  66 (quail-define-package
  67  "croatian-qwerty" "Croatian" "HR" nil
  68  "Croatian keyboard without the y/z swap."
  69  nil t nil nil nil nil nil nil nil nil t)
  70
  71 (quail-define-rules
  72  ("@" ?\")
  73  ("^" ?&)
  74  ("&" ?/)
  75  ("*" ?\()
  76  ("(" ?\))
  77  (")" ?=)
  78  ("-" ?\')
  79  ("_" ??)
  80  ("=" ?+)
  81  ("+" ?*)
  82  ("[" ?¹)
  83  ("{" ?©)
  84  ("]" ?ð)
  85  ("}" ?Ð)
  86  (";" ?è)
  87  (":" ?È)
  88  ("'" ?æ)
  89  ("\"" ?Æ)
  90  ("\\" ?¾)
  91  ("|" ?®)
  92  ("<" ?\;)
  93  (">" ?:)
  94  ("/" ?-)
  95  ("?" ?_))
  96
  97 (quail-define-package
  98  "croatian-prefix" "Croatian" "HR" nil
  99  "Croatian input method, postfix.
 100
 101 \"c -> è
 102 'c -> æ
 103 \"s -> ¹
 104 \"z -> ¾
 105 /d -> ð"
 106  nil t nil nil nil nil nil nil nil nil t)
 107
 108 (quail-define-rules
 109  ("\"c" ?è)
 110  ("\"C" ?È)
 111  ("'c" ?æ)
 112  ("'C" ?Æ)
 113  ("\"s" ?¹)
 114  ("\"S" ?©)
 115  ("\"z" ?¾)
 116  ("\"Z" ?®)
 117  ("/d" ?ð)
 118  ("/D" ?Ð))
 119
 120 (quail-define-package
 121  "croatian-postfix" "Croatian" "HR" nil
 122  "Croatian input method, postfix.
 123
 124 c\" -> è
 125 c' -> æ
 126 s\" -> ¹
 127 z\" -> ¾
 128 d/ -> ð"
 129  nil t nil nil nil nil nil nil nil nil t)
 130
 131 (quail-define-rules
 132  ("c\"" ?è)
 133  ("C\"" ?È)
 134  ("c'" ?æ)
 135  ("C'" ?Æ)
 136  ("s\"" ?¹)
 137  ("S\"" ?©)
 138  ("z\"" ?¾)
 139  ("Z\"" ?®)
 140  ("d/" ?ð)
 141  ("D/" ?Ð))
 142
 143 (quail-define-package
 144  "croatian-xy" "Croatian" "HR" nil
 145  "An alternative Croatian input method.
 146
 147 cx -> è
 148 cy -> æ
 149 sx -> ¹
 150 zx -> ¾
 151 dy -> ð"
 152  nil t nil nil nil nil nil nil nil nil t)
 153
 154 (quail-define-rules
 155  ("cx" ?è)
 156  ("CX" ?È)
 157  ("Cx" ?È)
 158  ("cy" ?æ)
 159  ("CY" ?Æ)
 160  ("Cy" ?Æ)
 161  ("sx" ?¹)
 162  ("SX" ?©)
 163  ("Sx" ?©)
 164  ("zx" ?¾)
 165  ("ZX" ?®)
 166  ("Zx" ?®)
 167  ("dy" ?ð)
 168  ("DY" ?Ð)
 169  ("Dy" ?Ð))
 170
 171 (quail-define-package
 172  "croatian-cc" "Croatian" "HR" nil
 173  "Another alternative Croatian input method.
 174
 175 cc -> è
 176 ch -> æ
 177 ss -> ¹
 178 zz -> ¾
 179 dd -> ð"
 180  nil t nil nil nil nil nil nil nil nil t)
 181
 182 (quail-define-rules
 183  ("cc" ?è)
 184  ("CC" ?È)
 185  ("Cc" ?È)
 186  ("ch" ?æ)
 187  ("CH" ?Æ)
 188  ("Ch" ?Æ)
 189  ("ss" ?¹)
 190  ("SS" ?©)
 191  ("Ss" ?©)
 192  ("zz" ?¾)
 193  ("ZZ" ?®)
 194  ("Zz" ?®)
 195  ("dd" ?ð)
 196  ("DD" ?Ð)
 197  ("Dd" ?Ð))
 198
 199 ;;; croatian.el ends here