leim/quail/welsh.el

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