leim/quail/croatian.el

   1 ;;; quail/croatian.el -- Quail package for inputing Croatian  -*-coding: iso-8859-2;-*-
   2
   3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
   4 ;;   Free Software Foundation, Inc.
   5
   6 ;; Author: Hrvoje Nik¹iæ <hniksic@xemacs.org>,
   7 ;;         modeled after czech.el by Milan Zamazal.
   8 ;; Keywords: i18n
   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 ;;; Code:
  26
  27 (require 'quail)
  28
  29 (quail-define-package
  30  "croatian" "Croatian" "HR" nil
  31  "\"Standard\" Croatian keyboard."
  32   nil t nil nil nil nil nil nil nil nil t)
  33
  34 (quail-define-rules
  35  ("@" ?\")
  36  ("^" ?&)
  37  ("&" ?/)
  38  ("*" ?\()
  39  ("(" ?\))
  40  (")" ?=)
  41  ("-" ?\')
  42  ("_" ??)
  43  ("=" ?+)
  44  ("+" ?*)
  45  ("[" ?¹)
  46  ("{" ?©)
  47  ("]" ?ð)
  48  ("}" ?Ð)
  49  (";" ?è)
  50  (":" ?È)
  51  ("'" ?æ)
  52  ("\"" ?Æ)
  53  ("\\" ?¾)
  54  ("|" ?®)
  55  ("<" ?\;)
  56  (">" ?:)
  57  ("/" ?-)
  58  ("?" ?_)
  59  ("y" ?z)
  60  ("Y" ?Z)
  61  ("z" ?y)
  62  ("Z" ?Y))
  63
  64 (quail-define-package
  65  "croatian-qwerty" "Croatian" "HR" nil
  66  "Croatian keyboard without the y/z swap."
  67  nil t nil nil nil nil nil nil nil nil t)
  68
  69 (quail-define-rules
  70  ("@" ?\")
  71  ("^" ?&)
  72  ("&" ?/)
  73  ("*" ?\()
  74  ("(" ?\))
  75  (")" ?=)
  76  ("-" ?\')
  77  ("_" ??)
  78  ("=" ?+)
  79  ("+" ?*)
  80  ("[" ?¹)
  81  ("{" ?©)
  82  ("]" ?ð)
  83  ("}" ?Ð)
  84  (";" ?è)
  85  (":" ?È)
  86  ("'" ?æ)
  87  ("\"" ?Æ)
  88  ("\\" ?¾)
  89  ("|" ?®)
  90  ("<" ?\;)
  91  (">" ?:)
  92  ("/" ?-)
  93  ("?" ?_))
  94
  95 (quail-define-package
  96  "croatian-prefix" "Croatian" "HR" nil
  97  "Croatian input method, postfix.
  98
  99 \"c -> è
 100 'c -> æ
 101 \"s -> ¹
 102 \"z -> ¾
 103 /d -> ð"
 104  nil t nil nil nil nil nil nil nil nil t)
 105
 106 (quail-define-rules
 107  ("\"c" ?è)
 108  ("\"C" ?È)
 109  ("'c" ?æ)
 110  ("'C" ?Æ)
 111  ("\"s" ?¹)
 112  ("\"S" ?©)
 113  ("\"z" ?¾)
 114  ("\"Z" ?®)
 115  ("/d" ?ð)
 116  ("/D" ?Ð))
 117
 118 (quail-define-package
 119  "croatian-postfix" "Croatian" "HR" nil
 120  "Croatian input method, postfix.
 121
 122 c\" -> è
 123 c' -> æ
 124 s\" -> ¹
 125 z\" -> ¾
 126 d/ -> ð"
 127  nil t nil nil nil nil nil nil nil nil t)
 128
 129 (quail-define-rules
 130  ("c\"" ?è)
 131  ("C\"" ?È)
 132  ("c'" ?æ)
 133  ("C'" ?Æ)
 134  ("s\"" ?¹)
 135  ("S\"" ?©)
 136  ("z\"" ?¾)
 137  ("Z\"" ?®)
 138  ("d/" ?ð)
 139  ("D/" ?Ð))
 140
 141 (quail-define-package
 142  "croatian-xy" "Croatian" "HR" nil
 143  "An alternative Croatian input method.
 144
 145 cx -> è
 146 cy -> æ
 147 sx -> ¹
 148 zx -> ¾
 149 dy -> ð"
 150  nil t nil nil nil nil nil nil nil nil t)
 151
 152 (quail-define-rules
 153  ("cx" ?è)
 154  ("CX" ?È)
 155  ("Cx" ?È)
 156  ("cy" ?æ)
 157  ("CY" ?Æ)
 158  ("Cy" ?Æ)
 159  ("sx" ?¹)
 160  ("SX" ?©)
 161  ("Sx" ?©)
 162  ("zx" ?¾)
 163  ("ZX" ?®)
 164  ("Zx" ?®)
 165  ("dy" ?ð)
 166  ("DY" ?Ð)
 167  ("Dy" ?Ð))
 168
 169 (quail-define-package
 170  "croatian-cc" "Croatian" "HR" nil
 171  "Another alternative Croatian input method.
 172
 173 cc -> è
 174 ch -> æ
 175 ss -> ¹
 176 zz -> ¾
 177 dd -> ð"
 178  nil t nil nil nil nil nil nil nil nil t)
 179
 180 (quail-define-rules
 181  ("cc" ?è)
 182  ("CC" ?È)
 183  ("Cc" ?È)
 184  ("ch" ?æ)
 185  ("CH" ?Æ)
 186  ("Ch" ?Æ)
 187  ("ss" ?¹)
 188  ("SS" ?©)
 189  ("Ss" ?©)
 190  ("zz" ?¾)
 191  ("ZZ" ?®)
 192  ("Zz" ?®)
 193  ("dd" ?ð)
 194  ("DD" ?Ð)
 195  ("Dd" ?Ð))
 196
 197 ;; arch-tag: 8cb44078-9c51-4e81-9ef8-7d5b89f62e31
 198 ;;; croatian.el ends here