Mercurial > emacs
annotate leim/quail/croatian.el @ 96752:9697a5f0281d
various small cleanups detailed in changelogs
author | Adrian Robert <Adrian.B.Robert@gmail.com> |
---|---|
date | Wed, 16 Jul 2008 23:24:46 +0000 |
parents | 4f1fd208c354 |
children | 0d2e4142fb60 |
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 | |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
49045 | 13 ;; it under the terms of the GNU General Public License as published by |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
15 ;; (at your option) any later version. |
49045 | 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 | |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
49045 | 24 |
25 ;;; Code: | |
26 | |
27 (require 'quail) | |
28 | |
29 (quail-define-package | |
30 "croatian" "Croatian" "HR" nil | |
31 "\"Standard\" Croatian keyboard." | |
32 nil t nil nil nil nil nil nil nil nil t) | |
33 | |
34 (quail-define-rules | |
35 ("@" ?\") | |
36 ("^" ?&) | |
37 ("&" ?/) | |
38 ("*" ?\() | |
39 ("(" ?\)) | |
40 (")" ?=) | |
41 ("-" ?\') | |
42 ("_" ??) | |
43 ("=" ?+) | |
44 ("+" ?*) | |
45 ("[" ?¹) | |
46 ("{" ?©) | |
47 ("]" ?ð) | |
48 ("}" ?Ð) | |
49 (";" ?è) | |
50 (":" ?È) | |
51 ("'" ?æ) | |
52 ("\"" ?Æ) | |
53 ("\\" ?¾) | |
54 ("|" ?®) | |
55 ("<" ?\;) | |
56 (">" ?:) | |
57 ("/" ?-) | |
58 ("?" ?_) | |
59 ("y" ?z) | |
60 ("Y" ?Z) | |
61 ("z" ?y) | |
62 ("Z" ?Y)) | |
63 | |
64 (quail-define-package | |
65 "croatian-qwerty" "Croatian" "HR" nil | |
66 "Croatian keyboard without the y/z swap." | |
67 nil t nil nil nil nil nil nil nil nil t) | |
68 | |
69 (quail-define-rules | |
70 ("@" ?\") | |
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 (quail-define-package | |
96 "croatian-prefix" "Croatian" "HR" nil | |
97 "Croatian input method, postfix. | |
98 | |
99 \"c -> è | |
100 'c -> æ | |
101 \"s -> ¹ | |
102 \"z -> ¾ | |
103 /d -> ð" | |
104 nil t nil nil nil nil nil nil nil nil t) | |
105 | |
106 (quail-define-rules | |
107 ("\"c" ?è) | |
108 ("\"C" ?È) | |
109 ("'c" ?æ) | |
110 ("'C" ?Æ) | |
111 ("\"s" ?¹) | |
112 ("\"S" ?©) | |
113 ("\"z" ?¾) | |
114 ("\"Z" ?®) | |
115 ("/d" ?ð) | |
116 ("/D" ?Ð)) | |
117 | |
118 (quail-define-package | |
119 "croatian-postfix" "Croatian" "HR" nil | |
120 "Croatian input method, postfix. | |
121 | |
122 c\" -> è | |
123 c' -> æ | |
124 s\" -> ¹ | |
125 z\" -> ¾ | |
126 d/ -> ð" | |
127 nil t nil nil nil nil nil nil nil nil t) | |
128 | |
129 (quail-define-rules | |
130 ("c\"" ?è) | |
131 ("C\"" ?È) | |
132 ("c'" ?æ) | |
133 ("C'" ?Æ) | |
134 ("s\"" ?¹) | |
135 ("S\"" ?©) | |
136 ("z\"" ?¾) | |
137 ("Z\"" ?®) | |
138 ("d/" ?ð) | |
139 ("D/" ?Ð)) | |
140 | |
141 (quail-define-package | |
142 "croatian-xy" "Croatian" "HR" nil | |
143 "An alternative Croatian input method. | |
144 | |
145 cx -> è | |
146 cy -> æ | |
147 sx -> ¹ | |
148 zx -> ¾ | |
149 dy -> ð" | |
150 nil t nil nil nil nil nil nil nil nil t) | |
151 | |
152 (quail-define-rules | |
153 ("cx" ?è) | |
154 ("CX" ?È) | |
155 ("Cx" ?È) | |
156 ("cy" ?æ) | |
157 ("CY" ?Æ) | |
158 ("Cy" ?Æ) | |
159 ("sx" ?¹) | |
160 ("SX" ?©) | |
161 ("Sx" ?©) | |
162 ("zx" ?¾) | |
163 ("ZX" ?®) | |
164 ("Zx" ?®) | |
165 ("dy" ?ð) | |
166 ("DY" ?Ð) | |
167 ("Dy" ?Ð)) | |
168 | |
169 (quail-define-package | |
170 "croatian-cc" "Croatian" "HR" nil | |
171 "Another alternative Croatian input method. | |
172 | |
173 cc -> è | |
174 ch -> æ | |
175 ss -> ¹ | |
176 zz -> ¾ | |
177 dd -> ð" | |
178 nil t nil nil nil nil nil nil nil nil t) | |
179 | |
180 (quail-define-rules | |
181 ("cc" ?è) | |
182 ("CC" ?È) | |
183 ("Cc" ?È) | |
184 ("ch" ?æ) | |
185 ("CH" ?Æ) | |
186 ("Ch" ?Æ) | |
187 ("ss" ?¹) | |
188 ("SS" ?©) | |
189 ("Ss" ?©) | |
190 ("zz" ?¾) | |
191 ("ZZ" ?®) | |
192 ("Zz" ?®) | |
193 ("dd" ?ð) | |
194 ("DD" ?Ð) | |
195 ("Dd" ?Ð)) | |
52401 | 196 |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
197 ;; arch-tag: 8cb44078-9c51-4e81-9ef8-7d5b89f62e31 |
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
198 ;;; croatian.el ends here |