Mercurial > emacs
annotate leim/quail/croatian.el @ 90473:9c75458ea910
(xftfont_open): For generating a name, start from
96-byte buffer.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 19 Jun 2006 01:32:49 +0000 |
parents | 72dea2ff0142 |
children | 95d0cdf160ea |
rev | line source |
---|---|
49045 | 1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*- |
2 | |
70123
b77dca5fd30d
update copyright year(s)
Ramprasad B <ramprasad_i82@yahoo.com>
parents:
69954
diff
changeset
|
3 ;; Copyright (C) 2003, 2006 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 | |
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 | |
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 |