leim/quail/welsh.el

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