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