Mercurial > emacs
annotate leim/quail/croatian.el @ 94176:4a907fffb2c3
*** empty log message ***
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 18 Apr 2008 15:48:57 +0000 |
parents | 3ca83a726835 |
children | 606f2d163a64 4f1fd208c354 |
rev | line source |
---|---|
49045 | 1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*- |
2 | |
79727 | 3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008 |
4 ;; Free Software Foundation, Inc. | |
49045 | 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 | |
78275
2904684117d6
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75253
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
49045 | 15 ;; 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; see the file COPYING. If not, write to the | |
64083 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
49045 | 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" ?Ð)) | |
52401 | 198 |
199 ;;; arch-tag: 8cb44078-9c51-4e81-9ef8-7d5b89f62e31 |