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

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