leim/quail/welsh.el

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