cgit.sxemacs.org Git - packages/blob - mule-packages/latin-unity/latin-latin7-input.el

   1 ;;; latin-latin7-input.el --- Input method for Latin-7 (ISO 8859/13) -*- coding: iso-2022-jp -*-
   2
   3 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc
   4
   5 ;; Author: Stephen J. Turnbull
   6 ;; Keywords: mule, input methods
   7 ;; Added: 2002 August 31
   8
   9 ;; This file is part of XEmacs.
  10
  11 ;; XEmacs 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 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; XEmacs 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 XEmacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26
  27 ;;; Commentary:
  28
  29 (require 'latin-unity-vars)             ; for ISO 8859/13
  30 (require 'quail)
  31 (quail-define-package
  32  "latin-7-prefix" "Latin-7" "0>" t
  33  "Latin-7 characters input method with prefix modifiers
  34
  35     effect   | prefix | examples
  36  ------------+--------+----------
  37    ogonek    |   `    | `a
  38    macron    |   -    | -a
  39     acute    |   '    | 'a
  40   ring above |   %    | %a
  41    dot above |   %    | %e
  42   diaeresis  |   \"    | \"a
  43     tilde    |   ~    | ~o
  44     caron    |   ~    | ~s
  45    cedilla   |   ,    | ,g
  46     misc     |   /    | /s -> \e,b_\e(B, /a -> ae
  47    symbol    |   _    | _\" -> \e,Y!\e(B, _' -> \e,Y\7f\e(B, _* -> \e,Y$\e(B, _+ -> \e,Y1\e(B, _, -> \e,Y%\e(B, _- -> \e,Y-\e(B,
  48              |        | _. -> \e,Y7\e(B, _/ -> \e,Yw\e(B, _1 -> \e,Y9\e(B, _2 -> \e,Y2\e(B, _3 -> \e,Y3\e(B, _< -> \e,Y+\e(B,
  49              |        | _> -> \e,Y;\e(B, _C -> \e,Y)\e(B, _L -> \e,Y#\e(B, _P -> \e,Y6\e(B, _R -> \e,Y.\e(B, _` -> \e,Y4\e(B,
  50              |        | _c -> \e,Y"\e(B, _h -> \e,Y=\e(B, _n -> \e,Y,\e(B, _o -> \e,Y0\e(B, _q -> \e,Y<\e(B, _s -> \e,Y'\e(B,
  51              |        | _t -> \e,Y>\e(B, _u -> \e,Y5\e(B, _x -> \e,YW\e(B, _| -> \e,Y&\e(B
  52 " nil t nil nil nil nil nil nil nil nil t)
  53
  54 (quail-define-rules
  55  ("\"A" ?\e,YD\e(B)
  56  ("\"O" ?\e,YV\e(B)
  57  ("\"U" ?\e,Y\\e(B)
  58  ("\"a" ?\e,Yd\e(B)
  59  ("\"o" ?\e,Yv\e(B)
  60  ("\"u" ?\e,Y|\e(B)
  61  ("%A" ?\e,YE\e(B)
  62  ("%E" ?\e,YK\e(B)
  63  ("%Z" ?\e,Y]\e(B)
  64  ("%a" ?\e,Ye\e(B)
  65  ("%e" ?\e,Yk\e(B)
  66  ("%z" ?\e,Y}\e(B)
  67  ("'C" ?\e,YC\e(B)
  68  ("'E" ?\e,YI\e(B)
  69  ("'N" ?\e,YQ\e(B)
  70  ("'O" ?\e,YS\e(B)
  71  ("'S" ?\e,YZ\e(B)
  72  ("'Z" ?\e,YJ\e(B)
  73  ("'c" ?\e,Yc\e(B)
  74  ("'e" ?\e,Yi\e(B)
  75  ("'n" ?\e,Yq\e(B)
  76  ("'o" ?\e,Ys\e(B)
  77  ("'s" ?\e,Yz\e(B)
  78  ("'z" ?\e,Yj\e(B)
  79  (",G" ?\e,YL\e(B)
  80  (",K" ?\e,YM\e(B)
  81  (",L" ?\e,YO\e(B)
  82  (",N" ?\e,YR\e(B)
  83  (",R" ?\e,Y*\e(B)
  84  (",g" ?\e,Yl\e(B)
  85  (",k" ?\e,Ym\e(B)
  86  (",l" ?\e,Yo\e(B)
  87  (",n" ?\e,Yr\e(B)
  88  (",r" ?\e,Y:\e(B)
  89  ("-A" ?\e,YB\e(B)
  90  ("-E" ?\e,YG\e(B)
  91  ("-I" ?\e,YN\e(B)
  92  ("-O" ?\e,YT\e(B)
  93  ("-U" ?\e,Y[\e(B)
  94  ("-a" ?\e,Yb\e(B)
  95  ("-e" ?\e,Yg\e(B)
  96  ("-i" ?\e,Yn\e(B)
  97  ("-o" ?\e,Yt\e(B)
  98  ("-u" ?\e,Y{\e(B)
  99  ("/A" ?\e,Y/\e(B)
 100  ("/L" ?\e,YY\e(B)
 101  ("/O" ?\e,Y(\e(B)
 102  ("/a" ?\e,Y?\e(B)
 103  ("/l" ?\e,Yy\e(B)
 104  ("/o" ?\e,Y8\e(B)
 105  ("/s" ?\e,Y_\e(B)
 106  ("`A" ?\e,Y@\e(B)
 107  ("`E" ?\e,YF\e(B)
 108  ("`I" ?\e,YA\e(B)
 109  ("`U" ?\e,YX\e(B)
 110  ("`a" ?\e,Y`\e(B)
 111  ("`e" ?\e,Yf\e(B)
 112  ("`i" ?\e,Ya\e(B)
 113  ("`u" ?\e,Yx\e(B)
 114  ("~C" ?\e,YH\e(B)
 115  ("~O" ?\e,YU\e(B)
 116  ("~S" ?\e,YP\e(B)
 117  ("~Z" ?\e,Y^\e(B)
 118  ("~c" ?\e,Yh\e(B)
 119  ("~o" ?\e,Yu\e(B)
 120  ("~s" ?\e,Yp\e(B)
 121  ("~z" ?\e,Y~\e(B)
 122  ("_\"" ?\e,Y!\e(B)
 123  ("_'" ?\e,Y\7f\e(B)
 124  ("_*" ?\e,Y$\e(B)
 125  ("_+" ?\e,Y1\e(B)
 126  ("_," ?\e,Y%\e(B)
 127  ("_-" ?\e,Y-\e(B)
 128  ("_." ?\e,Y7\e(B)
 129  ("_/" ?\e,Yw\e(B)
 130  ("_1" ?\e,Y9\e(B)
 131  ("_2" ?\e,Y2\e(B)
 132  ("_3" ?\e,Y3\e(B)
 133  ("_<" ?\e,Y+\e(B)
 134  ("_>" ?\e,Y;\e(B)
 135  ("_C" ?\e,Y)\e(B)
 136  ("_L" ?\e,Y#\e(B)
 137  ("_P" ?\e,Y6\e(B)
 138  ("_R" ?\e,Y.\e(B)
 139  ("_`" ?\e,Y4\e(B)
 140  ("_c" ?\e,Y"\e(B)
 141  ("_h" ?\e,Y=\e(B)
 142  ("_n" ?\e,Y,\e(B)
 143  ("_o" ?\e,Y0\e(B)
 144  ("_q" ?\e,Y<\e(B)
 145  ("_s" ?\e,Y'\e(B)
 146  ("_t" ?\e,Y>\e(B)
 147  ("_u" ?\e,Y5\e(B)
 148  ("_x" ?\e,YW\e(B)
 149  ("_|" ?\e,Y&\e(B)
 150 )
 151
 152 (provide 'latin-latin7-input)
 153
 154 ;; end of latin-latin7-input.el