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, 2009, 2010
   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 ;; GNU Emacs 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 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; GNU Emacs 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.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
  27
  28 ;;; Code:
  29
  30 (require 'quail)
  31
  32 (quail-define-package
  33  "welsh" "Welsh" "\e$,1!4\e(B" t
  34  "Welsh postfix input method"
  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\x7f\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\x7fW\e(B))
 117
 118 ;; (quail-define-package
 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\x7f\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 ;; arch-tag: aeef0eae-0a50-4606-9120-020d59d5e208
 203 ;;; welsh.el ends here