code.delx.au - gnu-emacs/blob - lisp/leim/quail/welsh.el

   1 ;;; welsh.el --- Quail package for inputting Welsh characters  -*-coding: utf-8;-*-
   2
   3 ;; Copyright (C) 2001-2016 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" "Ŵ" 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\\" ?À)
  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\"" ?ẅ)
 113
 114  ;; "hawlfraint" (copyright).  Dyma arwyddlun hawlfraint.
 115  ("(h)" ?ⓗ))
 116
 117 ;; (quail-define-package
 118 ;;  "welsh" "Welsh" "Ŵ" 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\\" ?À)
 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\"" ?¾))
 199
 200
 201 ;;; welsh.el ends here