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