Commit | Line | Data |
---|---|---|
7115232b DL |
1 | ;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: iso-2022-7bit;-*- |
2 | ||
95df8112 | 3 | ;; Copyright (C) 2001-2011 Free Software Foundation, Inc. |
7115232b DL |
4 | |
5 | ;; Author: Dave Love <fx@gnu.org> | |
6 | ;; Keywords: i18n | |
7 | ||
041f4d74 PJ |
8 | ;; This file is part of GNU Emacs. |
9 | ||
3d544458 | 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
7115232b | 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. | |
7115232b | 14 | |
3d544458 | 15 | ;; GNU Emacs is distributed in the hope that it will be useful, |
7115232b DL |
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/>. |
7115232b DL |
22 | |
23 | ;;; Commentary: | |
24 | ||
25 | ;; Welsh input following the Yudit map by david@sheetmusic.org.uk. | |
7115232b DL |
26 | |
27 | ;;; Code: | |
28 | ||
29 | (require 'quail) | |
30 | ||
31 | (quail-define-package | |
32 | "welsh" "Welsh" "\e$,1!4\e(B" t | |
8f924df7 | 33 | "Welsh postfix input method" |
7115232b DL |
34 | nil t nil nil nil nil nil nil nil nil t) |
35 | ||
36 | (quail-define-rules | |
37 | ("A\\" ?\e,A@\e(B) | |
38 | ("A/" ?\e,AA\e(B) | |
39 | ("A^" ?\e,AB\e(B) | |
40 | ("A+" ?\e,AB\e(B) | |
41 | ("A\"" ?\e,AD\e(B) | |
42 | ("a\\" ?\e,A`\e(B) | |
43 | ("a/" ?\e,Aa\e(B) | |
44 | ("a^" ?\e,Ab\e(B) | |
45 | ("a+" ?\e,Ab\e(B) | |
46 | ("a\"" ?\e,Ad\e(B) | |
47 | ||
48 | ("E\\" ?\e,AH\e(B) | |
49 | ("E/" ?\e,AI\e(B) | |
50 | ("E^" ?\e,AJ\e(B) | |
51 | ("E+" ?\e,AJ\e(B) | |
52 | ("E\"" ?\e,AK\e(B) | |
53 | ("e\\" ?\e,Ah\e(B) | |
54 | ("e/" ?\e,Ai\e(B) | |
55 | ("e^" ?\e,Aj\e(B) | |
56 | ("e+" ?\e,Aj\e(B) | |
57 | ("e\"" ?\e,Ak\e(B) | |
58 | ||
59 | ("I\\" ?\e,AL\e(B) | |
60 | ("I/" ?\e,AM\e(B) | |
61 | ("I^" ?\e,AN\e(B) | |
62 | ("I+" ?\e,AN\e(B) | |
63 | ("I\"" ?\e,AO\e(B) | |
64 | ("i\\" ?\e,Al\e(B) | |
65 | ("i/" ?\e,Am\e(B) | |
66 | ("i^" ?\e,An\e(B) | |
67 | ("i+" ?\e,An\e(B) | |
68 | ("i\"" ?\e,Ao\e(B) | |
69 | ||
70 | ("O\\" ?\e,AR\e(B) | |
71 | ("O/" ?\e,AS\e(B) | |
72 | ("O^" ?\e,AT\e(B) | |
73 | ("O+" ?\e,AT\e(B) | |
74 | ("O\"" ?\e,AV\e(B) | |
75 | ("o\\" ?\e,Ar\e(B) | |
76 | ("o/" ?\e,As\e(B) | |
77 | ("o^" ?\e,At\e(B) | |
78 | ("o+" ?\e,At\e(B) | |
79 | ("o\"" ?\e,Av\e(B) | |
80 | ||
81 | ("U\\" ?\e,AY\e(B) | |
82 | ("U/" ?\e,AZ\e(B) | |
83 | ("U^" ?\e,A[\e(B) | |
84 | ("U+" ?\e,A[\e(B) | |
85 | ("U\"" ?\e,A\\e(B) | |
86 | ("u\\" ?\e,Ay\e(B) | |
87 | ("u/" ?\e,Az\e(B) | |
88 | ("u^" ?\e,A{\e(B) | |
89 | ("u+" ?\e,A{\e(B) | |
90 | ("u\"" ?\e,A|\e(B) | |
91 | ||
92 | ("Y\\" ?\e$,1or\e(B) | |
93 | ("Y/" ?\e,A]\e(B) | |
94 | ("Y^" ?\e$,1!6\e(B) | |
95 | ("Y+" ?\e$,1!6\e(B) | |
96 | ("Y\"" ?\e$,1!8\e(B) | |
97 | ("y\\" ?\e$,1os\e(B) | |
98 | ("y/" ?\e,A}\e(B) | |
99 | ("y\"" ?\e,A\7f\e(B) | |
100 | ("y^" ?\e$,1!7\e(B) | |
101 | ("y+" ?\e$,1!7\e(B) | |
102 | ||
103 | ("W\\" ?\e$,1n`\e(B) | |
104 | ("W/" ?\e$,1nb\e(B) | |
105 | ("W^" ?\e$,1!4\e(B) | |
106 | ("W+" ?\e$,1!4\e(B) | |
107 | ("W\"" ?\e$,1nd\e(B) | |
108 | ("w\\" ?\e$,1na\e(B) | |
109 | ("w/" ?\e$,1nc\e(B) | |
110 | ("w^" ?\e$,1!5\e(B) | |
111 | ("w+" ?\e$,1!5\e(B) | |
112 | ("w\"" ?\e$,1ne\e(B) | |
113 | ||
114 | ;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint. | |
115 | ("(h)" ?\e$,1\7fW\e(B)) | |
116 | ||
f640e93b | 117 | ;; (quail-define-package |
7115232b DL |
118 | ;; "welsh" "Welsh" "\e$,1!4\e(B" t |
119 | ;; "Welsh postfix input method, using Latin-8" | |
120 | ;; nil t nil nil nil nil nil nil nil nil t) | |
121 | ||
122 | ;; (quail-define-rules | |
123 | ;; ("A\\" ?\e,A@\e(B) | |
124 | ;; ("A/" ?\e,AA\e(B) | |
125 | ;; ("A^" ?\e,AB\e(B) | |
126 | ;; ("A+" ?\e,AB\e(B) | |
127 | ;; ("A\"" ?\e,AD\e(B) | |
128 | ;; ("a\\" ?\e,A`\e(B) | |
129 | ;; ("a/" ?\e,Aa\e(B) | |
130 | ;; ("a^" ?\e,Ab\e(B) | |
131 | ;; ("a+" ?\e,Ab\e(B) | |
132 | ;; ("a\"" ?\e,Ad\e(B) | |
133 | ||
134 | ;; ("E\\" ?\e,AH\e(B) | |
135 | ;; ("E/" ?\e,AI\e(B) | |
136 | ;; ("E^" ?\e,AJ\e(B) | |
137 | ;; ("E+" ?\e,AJ\e(B) | |
138 | ;; ("E\"" ?\e,AK\e(B) | |
139 | ;; ("e\\" ?\e,Ah\e(B) | |
140 | ;; ("e/" ?\e,Ai\e(B) | |
141 | ;; ("e^" ?\e,Aj\e(B) | |
142 | ;; ("e+" ?\e,Aj\e(B) | |
143 | ;; ("e\"" ?\e,Ak\e(B) | |
144 | ||
145 | ;; ("I\\" ?\e,AL\e(B) | |
146 | ;; ("I/" ?\e,AM\e(B) | |
147 | ;; ("I^" ?\e,AN\e(B) | |
148 | ;; ("I+" ?\e,AN\e(B) | |
149 | ;; ("I\"" ?\e,AO\e(B) | |
150 | ;; ("i\\" ?\e,Al\e(B) | |
151 | ;; ("i/" ?\e,Am\e(B) | |
152 | ;; ("i^" ?\e,An\e(B) | |
153 | ;; ("i+" ?\e,An\e(B) | |
154 | ;; ("i\"" ?\e,Ao\e(B) | |
155 | ||
156 | ;; ("O\\" ?\e,AR\e(B) | |
157 | ;; ("O/" ?\e,AS\e(B) | |
158 | ;; ("O^" ?\e,AT\e(B) | |
159 | ;; ("O+" ?\e,AT\e(B) | |
160 | ;; ("O\"" ?\e,AV\e(B) | |
161 | ;; ("o\\" ?\e,Ar\e(B) | |
162 | ;; ("o/" ?\e,As\e(B) | |
163 | ;; ("o^" ?\e,At\e(B) | |
164 | ;; ("o+" ?\e,At\e(B) | |
165 | ;; ("o\"" ?\e,Av\e(B) | |
166 | ||
167 | ;; ("U\\" ?\e,AY\e(B) | |
168 | ;; ("U/" ?\e,AZ\e(B) | |
169 | ;; ("U^" ?\e,A[\e(B) | |
170 | ;; ("U+" ?\e,A[\e(B) | |
171 | ;; ("U\"" ?\e,A\\e(B) | |
172 | ;; ("u\\" ?\e,Ay\e(B) | |
173 | ;; ("u/" ?\e,Az\e(B) | |
174 | ;; ("u^" ?\e,A{\e(B) | |
175 | ;; ("u+" ?\e,A{\e(B) | |
176 | ;; ("u\"" ?\e,A|\e(B) | |
177 | ||
178 | ;; ("Y\\" ?\e,A,\e(B) | |
179 | ;; ("Y/" ?\e,A]\e(B) | |
180 | ;; ("Y^" ?\e,A^\e(B) | |
181 | ;; ("Y+" ?\e,A^\e(B) | |
182 | ;; ("Y\"" ?\e,A/\e(B) | |
183 | ;; ("y\\" ?\e,A<\e(B) | |
184 | ;; ("y/" ?\e,A}\e(B) | |
185 | ;; ("y\"" ?\e,A\7f\e(B) | |
186 | ;; ("y^" ?\e,A~\e(B) | |
187 | ;; ("y+" ?\e,A~\e(B) | |
188 | ||
189 | ;; ("W\\" ?\e,A(\e(B) | |
190 | ;; ("W/" ?\e,A*\e(B) | |
191 | ;; ("W^" ?\e,AP\e(B) | |
192 | ;; ("W+" ?\e,AP\e(B) | |
193 | ;; ("W\"" ?\e,A=\e(B) | |
194 | ;; ("w\\" ?\e,A8\e(B) | |
195 | ;; ("w/" ?\e,A:\e(B) | |
196 | ;; ("w^" ?\e,Ap\e(B) | |
197 | ;; ("w+" ?\e,Ap\e(B) | |
198 | ;; ("w\"" ?\e,A>\e(B)) | |
199 | ||
200 | ||
201 | ;;; welsh.el ends here |