Commit | Line | Data |
---|---|---|
c38e0c97 | 1 | ;;; quail/croatian.el -- Quail package for inputting Croatian -*-coding: utf-8;-*- |
139c4e54 | 2 | |
ab422c4d | 3 | ;; Copyright (C) 2003-2013 Free Software Foundation, Inc. |
139c4e54 | 4 | |
c38e0c97 | 5 | ;; Author: Hrvoje Nikšić <hniksic@xemacs.org> |
139c4e54 DL |
6 | ;; Keywords: i18n |
7 | ||
8 | ;; This file is part of GNU Emacs. | |
9 | ||
3d544458 | 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
139c4e54 | 11 | ;; it under the terms of the GNU General Public License as published by |
3d544458 GM |
12 | ;; the Free Software Foundation, either version 3 of the License, or |
13 | ;; (at your option) any later version. | |
139c4e54 DL |
14 | |
15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 | ;; GNU General Public License for more details. | |
19 | ||
20 | ;; You should have received a copy of the GNU General Public License | |
3d544458 | 21 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
139c4e54 | 22 | |
eb2ffb18 GM |
23 | ;;; Commentary: |
24 | ||
25 | ;; Modeled after czech.el by Milan Zamazal. | |
26 | ||
139c4e54 DL |
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 | ("+" ?*) | |
c38e0c97 PE |
47 | ("[" ?š) |
48 | ("{" ?Š) | |
49 | ("]" ?đ) | |
50 | ("}" ?Đ) | |
51 | (";" ?č) | |
52 | (":" ?Č) | |
53 | ("'" ?ć) | |
54 | ("\"" ?Ć) | |
55 | ("\\" ?ž) | |
56 | ("|" ?Ž) | |
139c4e54 DL |
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 | ("+" ?*) | |
c38e0c97 PE |
82 | ("[" ?š) |
83 | ("{" ?Š) | |
84 | ("]" ?đ) | |
85 | ("}" ?Đ) | |
86 | (";" ?č) | |
87 | (":" ?Č) | |
88 | ("'" ?ć) | |
89 | ("\"" ?Ć) | |
90 | ("\\" ?ž) | |
91 | ("|" ?Ž) | |
139c4e54 DL |
92 | ("<" ?\;) |
93 | (">" ?:) | |
94 | ("/" ?-) | |
95 | ("?" ?_)) | |
96 | ||
97 | (quail-define-package | |
98 | "croatian-prefix" "Croatian" "HR" nil | |
99 | "Croatian input method, postfix. | |
100 | ||
c38e0c97 PE |
101 | \"c -> č |
102 | 'c -> ć | |
103 | \"s -> š | |
104 | \"z -> ž | |
105 | /d -> đ" | |
139c4e54 DL |
106 | nil t nil nil nil nil nil nil nil nil t) |
107 | ||
108 | (quail-define-rules | |
c38e0c97 PE |
109 | ("\"c" ?č) |
110 | ("\"C" ?Č) | |
111 | ("'c" ?ć) | |
112 | ("'C" ?Ć) | |
113 | ("\"s" ?š) | |
114 | ("\"S" ?Š) | |
115 | ("\"z" ?ž) | |
116 | ("\"Z" ?Ž) | |
117 | ("/d" ?đ) | |
118 | ("/D" ?Đ)) | |
139c4e54 DL |
119 | |
120 | (quail-define-package | |
121 | "croatian-postfix" "Croatian" "HR" nil | |
122 | "Croatian input method, postfix. | |
123 | ||
c38e0c97 PE |
124 | c\" -> č |
125 | c' -> ć | |
126 | s\" -> š | |
127 | z\" -> ž | |
128 | d/ -> đ" | |
139c4e54 DL |
129 | nil t nil nil nil nil nil nil nil nil t) |
130 | ||
131 | (quail-define-rules | |
c38e0c97 PE |
132 | ("c\"" ?č) |
133 | ("C\"" ?Č) | |
134 | ("c'" ?ć) | |
135 | ("C'" ?Ć) | |
136 | ("s\"" ?š) | |
137 | ("S\"" ?Š) | |
138 | ("z\"" ?ž) | |
139 | ("Z\"" ?Ž) | |
140 | ("d/" ?đ) | |
141 | ("D/" ?Đ)) | |
139c4e54 DL |
142 | |
143 | (quail-define-package | |
144 | "croatian-xy" "Croatian" "HR" nil | |
145 | "An alternative Croatian input method. | |
146 | ||
c38e0c97 PE |
147 | cx -> č |
148 | cy -> ć | |
149 | sx -> š | |
150 | zx -> ž | |
151 | dy -> đ" | |
139c4e54 DL |
152 | nil t nil nil nil nil nil nil nil nil t) |
153 | ||
154 | (quail-define-rules | |
c38e0c97 PE |
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" ?Đ)) | |
139c4e54 DL |
170 | |
171 | (quail-define-package | |
172 | "croatian-cc" "Croatian" "HR" nil | |
173 | "Another alternative Croatian input method. | |
174 | ||
c38e0c97 PE |
175 | cc -> č |
176 | ch -> ć | |
177 | ss -> š | |
178 | zz -> ž | |
179 | dd -> đ" | |
139c4e54 DL |
180 | nil t nil nil nil nil nil nil nil nil t) |
181 | ||
182 | (quail-define-rules | |
c38e0c97 PE |
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" ?Đ)) | |
ab5796a9 | 198 | |
3d544458 | 199 | ;;; croatian.el ends here |