← Back to branch summary

~ubuntu-branches/debian/sid/emacs24/sid

« back to all changes in this revision

Viewing changes to leim/quail/croatian.el

  • Committer: Package Import Robot
  • Author(s): Rob Browning
  • Date: 2014-10-25 14:37:43 UTC
  • mfrom: (13.1.3 experimental)
  • Revision ID: package-import@ubuntu.com-20141025143743-m9q5reoyyyjq3p2h
Tags: 24.4+1-4
Update emacsen-common dependency as per policy.

Show diffs side-by-side

added added

removed removed

Lines of Context:
leim/quail/croatian.el
1
 
;;; quail/croatian.el -- Quail package for inputting Croatian  -*-coding: iso-8859-2;-*-
2
 
 
3
 
;; Copyright (C) 2003-2013 Free Software Foundation, Inc.
4
 
 
5
 
;; Author: Hrvoje Nik�i� <hniksic@xemacs.org>
6
 
;; Keywords: i18n
7
 
 
8
 
;; This file is part of GNU Emacs.
9
 
 
10
 
;; GNU Emacs is free software: you can redistribute it and/or modify
11
 
;; it under the terms of the GNU General Public License as published by
12
 
;; the Free Software Foundation, either version 3 of the License, or
13
 
;; (at your option) any later version.
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
21
 
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
22
 
 
23
 
;;; Commentary:
24
 
 
25
 
;; Modeled after czech.el by Milan Zamazal.
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" ?�))
198
 
 
199
 
;;; croatian.el ends here