|
49045
|
1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*-
|
|
|
2
|
|
67657
|
3 ;; Copyright (C) 2002 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
|
