Commit | Line | Data |
---|---|---|
4b725a70 | 1 | ;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: utf-8;-*- |
7115232b | 2 | |
ab422c4d | 3 | ;; Copyright (C) 2001-2013 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 | |
4b725a70 | 32 | "welsh" "Welsh" "Ŵ" 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 | |
4b725a70 PE |
37 | ("A\\" ?À) |
38 | ("A/" ?Á) | |
39 | ("A^" ?Â) | |
40 | ("A+" ?Â) | |
41 | ("A\"" ?Ä) | |
42 | ("a\\" ?à) | |
43 | ("a/" ?á) | |
44 | ("a^" ?â) | |
45 | ("a+" ?â) | |
46 | ("a\"" ?ä) | |
47 | ||
48 | ("E\\" ?È) | |
49 | ("E/" ?É) | |
50 | ("E^" ?Ê) | |
51 | ("E+" ?Ê) | |
52 | ("E\"" ?Ë) | |
53 | ("e\\" ?è) | |
54 | ("e/" ?é) | |
55 | ("e^" ?ê) | |
56 | ("e+" ?ê) | |
57 | ("e\"" ?ë) | |
58 | ||
59 | ("I\\" ?Ì) | |
60 | ("I/" ?Í) | |
61 | ("I^" ?Î) | |
62 | ("I+" ?Î) | |
63 | ("I\"" ?Ï) | |
64 | ("i\\" ?ì) | |
65 | ("i/" ?í) | |
66 | ("i^" ?î) | |
67 | ("i+" ?î) | |
68 | ("i\"" ?ï) | |
69 | ||
70 | ("O\\" ?Ò) | |
71 | ("O/" ?Ó) | |
72 | ("O^" ?Ô) | |
73 | ("O+" ?Ô) | |
74 | ("O\"" ?Ö) | |
75 | ("o\\" ?ò) | |
76 | ("o/" ?ó) | |
77 | ("o^" ?ô) | |
78 | ("o+" ?ô) | |
79 | ("o\"" ?ö) | |
80 | ||
81 | ("U\\" ?Ù) | |
82 | ("U/" ?Ú) | |
83 | ("U^" ?Û) | |
84 | ("U+" ?Û) | |
85 | ("U\"" ?Ü) | |
86 | ("u\\" ?ù) | |
87 | ("u/" ?ú) | |
88 | ("u^" ?û) | |
89 | ("u+" ?û) | |
90 | ("u\"" ?ü) | |
91 | ||
92 | ("Y\\" ?Ỳ) | |
93 | ("Y/" ?Ý) | |
94 | ("Y^" ?Ŷ) | |
95 | ("Y+" ?Ŷ) | |
96 | ("Y\"" ?Ÿ) | |
97 | ("y\\" ?ỳ) | |
98 | ("y/" ?ý) | |
99 | ("y\"" ?ÿ) | |
100 | ("y^" ?ŷ) | |
101 | ("y+" ?ŷ) | |
102 | ||
103 | ("W\\" ?Ẁ) | |
104 | ("W/" ?Ẃ) | |
105 | ("W^" ?Ŵ) | |
106 | ("W+" ?Ŵ) | |
107 | ("W\"" ?Ẅ) | |
108 | ("w\\" ?ẁ) | |
109 | ("w/" ?ẃ) | |
110 | ("w^" ?ŵ) | |
111 | ("w+" ?ŵ) | |
112 | ("w\"" ?ẅ) | |
7115232b DL |
113 | |
114 | ;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint. | |
4b725a70 | 115 | ("(h)" ?ⓗ)) |
7115232b | 116 | |
f640e93b | 117 | ;; (quail-define-package |
4b725a70 | 118 | ;; "welsh" "Welsh" "Ŵ" t |
7115232b DL |
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 | |
4b725a70 PE |
123 | ;; ("A\\" ?À) |
124 | ;; ("A/" ?Á) | |
125 | ;; ("A^" ?Â) | |
126 | ;; ("A+" ?Â) | |
127 | ;; ("A\"" ?Ä) | |
128 | ;; ("a\\" ?à) | |
129 | ;; ("a/" ?á) | |
130 | ;; ("a^" ?â) | |
131 | ;; ("a+" ?â) | |
132 | ;; ("a\"" ?ä) | |
133 | ||
134 | ;; ("E\\" ?È) | |
135 | ;; ("E/" ?É) | |
136 | ;; ("E^" ?Ê) | |
137 | ;; ("E+" ?Ê) | |
138 | ;; ("E\"" ?Ë) | |
139 | ;; ("e\\" ?è) | |
140 | ;; ("e/" ?é) | |
141 | ;; ("e^" ?ê) | |
142 | ;; ("e+" ?ê) | |
143 | ;; ("e\"" ?ë) | |
144 | ||
145 | ;; ("I\\" ?Ì) | |
146 | ;; ("I/" ?Í) | |
147 | ;; ("I^" ?Î) | |
148 | ;; ("I+" ?Î) | |
149 | ;; ("I\"" ?Ï) | |
150 | ;; ("i\\" ?ì) | |
151 | ;; ("i/" ?í) | |
152 | ;; ("i^" ?î) | |
153 | ;; ("i+" ?î) | |
154 | ;; ("i\"" ?ï) | |
155 | ||
156 | ;; ("O\\" ?Ò) | |
157 | ;; ("O/" ?Ó) | |
158 | ;; ("O^" ?Ô) | |
159 | ;; ("O+" ?Ô) | |
160 | ;; ("O\"" ?Ö) | |
161 | ;; ("o\\" ?ò) | |
162 | ;; ("o/" ?ó) | |
163 | ;; ("o^" ?ô) | |
164 | ;; ("o+" ?ô) | |
165 | ;; ("o\"" ?ö) | |
166 | ||
167 | ;; ("U\\" ?Ù) | |
168 | ;; ("U/" ?Ú) | |
169 | ;; ("U^" ?Û) | |
170 | ;; ("U+" ?Û) | |
171 | ;; ("U\"" ?Ü) | |
172 | ;; ("u\\" ?ù) | |
173 | ;; ("u/" ?ú) | |
174 | ;; ("u^" ?û) | |
175 | ;; ("u+" ?û) | |
176 | ;; ("u\"" ?ü) | |
177 | ||
178 | ;; ("Y\\" ?¬) | |
179 | ;; ("Y/" ?Ý) | |
180 | ;; ("Y^" ?Þ) | |
181 | ;; ("Y+" ?Þ) | |
182 | ;; ("Y\"" ?¯) | |
183 | ;; ("y\\" ?¼) | |
184 | ;; ("y/" ?ý) | |
185 | ;; ("y\"" ?ÿ) | |
186 | ;; ("y^" ?þ) | |
187 | ;; ("y+" ?þ) | |
188 | ||
189 | ;; ("W\\" ?¨) | |
190 | ;; ("W/" ?ª) | |
191 | ;; ("W^" ?Ð) | |
192 | ;; ("W+" ?Ð) | |
193 | ;; ("W\"" ?½) | |
194 | ;; ("w\\" ?¸) | |
195 | ;; ("w/" ?º) | |
196 | ;; ("w^" ?ð) | |
197 | ;; ("w+" ?ð) | |
198 | ;; ("w\"" ?¾)) | |
7115232b DL |
199 | |
200 | ||
201 | ;;; welsh.el ends here |