Mercurial > emacs
annotate leim/quail/croatian.el @ 78275:2904684117d6
Switch license to GPLv3 or later.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 25 Jul 2007 06:58:19 +0000 |
| parents | f5f322eb227f |
| children | 3ca83a726835 f55f9811f5d7 |
| rev | line source |
|---|---|
| 49045 | 1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*- |
| 2 | |
|
75253
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
70123
diff
changeset
|
3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
| 49045 | 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 | |
|
78275
2904684117d6
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75253
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
| 49045 | 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 | |
| 64083 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| 24 ;; Boston, MA 02110-1301, USA. | |
| 49045 | 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" ?Ð)) | |
| 52401 | 197 |
| 198 ;;; arch-tag: 8cb44078-9c51-4e81-9ef8-7d5b89f62e31 |