leim/quail/welsh.el

   1 ;;; welsh.el --- Quail package for inputting Welsh characters  -*-coding: utf-8;-*-
   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 ;; 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 2, or (at your option)
  13 ;; 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; see the file COPYING.  If not, write to the
  22 ;; 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
  29 ;;; Code:
  30
  31 (require 'quail)
  32
  33 (quail-define-package
  34  "welsh" "Welsh" "Ŵ" t
  35  "Welsh postfix input method"
  36  nil t nil nil nil nil nil nil nil nil t)
  37
  38 (quail-define-rules
  39  ("A\\" ?À)
  40  ("A/" ?Á)
  41  ("A^" ?Â)
  42  ("A+" ?Â)
  43  ("A\"" ?Ä)
  44  ("a\\" ?à)
  45  ("a/" ?á)
  46  ("a^" ?â)
  47  ("a+" ?â)
  48  ("a\"" ?ä)
  49
  50  ("E\\" ?È)
  51  ("E/" ?É)
  52  ("E^" ?Ê)
  53  ("E+" ?Ê)
  54  ("E\"" ?Ë)
  55  ("e\\" ?è)
  56  ("e/" ?é)
  57  ("e^" ?ê)
  58  ("e+" ?ê)
  59  ("e\"" ?ë)
  60
  61  ("I\\" ?Ì)
  62  ("I/" ?Í)
  63  ("I^" ?Î)
  64  ("I+" ?Î)
  65  ("I\"" ?Ï)
  66  ("i\\" ?ì)
  67  ("i/" ?í)
  68  ("i^" ?î)
  69  ("i+" ?î)
  70  ("i\"" ?ï)
  71
  72  ("O\\" ?Ò)
  73  ("O/" ?Ó)
  74  ("O^" ?Ô)
  75  ("O+" ?Ô)
  76  ("O\"" ?Ö)
  77  ("o\\" ?ò)
  78  ("o/" ?ó)
  79  ("o^" ?ô)
  80  ("o+" ?ô)
  81  ("o\"" ?ö)
  82
  83  ("U\\" ?Ù)
  84  ("U/" ?Ú)
  85  ("U^" ?Û)
  86  ("U+" ?Û)
  87  ("U\"" ?Ü)
  88  ("u\\" ?ù)
  89  ("u/" ?ú)
  90  ("u^" ?û)
  91  ("u+" ?û)
  92  ("u\"" ?ü)
  93
  94  ("Y\\" ?Ỳ)
  95  ("Y/" ?Ý)
  96  ("Y^" ?Ŷ)
  97  ("Y+" ?Ŷ)
  98  ("Y\"" ?Ÿ)
  99  ("y\\" ?ỳ)
 100  ("y/" ?ý)
 101  ("y\"" ?ÿ)
 102  ("y^" ?ŷ)
 103  ("y+" ?ŷ)
 104
 105  ("W\\" ?Ẁ)
 106  ("W/" ?Ẃ)
 107  ("W^" ?Ŵ)
 108  ("W+" ?Ŵ)
 109  ("W\"" ?Ẅ)
 110  ("w\\" ?ẁ)
 111  ("w/" ?ẃ)
 112  ("w^" ?ŵ)
 113  ("w+" ?ŵ)
 114  ("w\"" ?ẅ)
 115
 116  ;; "hawlfraint" (copyright).  Dyma arwyddlun hawlfraint.
 117  ("(h)" ?ⓗ))
 118
 119 ;;; welsh.el ends here