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

   1 ;;; latin-euro-input.el --- Input method for Latin-9 (ISO 8859/15) -*- coding: iso-2022-jp -*-
   2
   3 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc
   4
   5 ;; Author: Dave Love
   6 ;; Adapted-by: Stephen J. Turnbull for XEmacs
   7 ;; Keywords: mule, input methods
   8 ;; Added: 2002 March 1
   9 ;; Last-modified: 2002 March 14
  10
  11 ;; This file is part of XEmacs.
  12
  13 ;; XEmacs is free software; you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation; either version 2, or (at your option)
  16 ;; any later version.
  17
  18 ;; XEmacs is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with XEmacs; see the file COPYING.  If not, write to the
  25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26 ;; Boston, MA 02111-1307, USA.
  27
  28
  29 ;;; Commentary:
  30
  31 ;; Grabbed from latin-pre.el in the Emacs 21 distribution.  I believe this
  32 ;; is the method posted by Dave Love to gnu.emacs.sources.  The copyright in
  33 ;; latin-pre.el is bogus as Love's post was late 2001.
  34
  35 (require 'latin-unity-vars)             ; for ISO 8859/15
  36 (require 'quail)
  37 (quail-define-package
  38  "latin-9-prefix" "Latin-9" "0>" t
  39  "Latin-9 characters input method with prefix modifiers
  40
  41     effect   | prefix | examples
  42  ------------+--------+----------
  43     acute    |   '    | 'a -> \e,ba\e(B
  44     grave    |   `    | `a -> \e,b`\e(B
  45   circumflex |   ^    | ^a -> \e,bb\e(B
  46   diaeresis  |   \"    | \"a -> \e,bd\e(B, \"Y -> \e,b>\e(B
  47     tilde    |   ~    | ~a -> \e,bc\e(B
  48     caron    |   ~    | ~z -> \e,b8\e(B
  49    cedilla   |   ~    | ~c -> \e,bg\e(B
  50     misc     | \" ~ /  | \"s -> \e,b_\e(B  ~d -> \e,bp\e(B  ~t -> \e,b~\e(B  /a -> \e,be\e(B  /e -> \e,bf\e(B  /o -> \e,bx\e(B
  51              | \" ~ /  | /o -> \e,b=\e(B
  52    symbol    |   ~    | ~> -> \e,b;\e(B  ~< -> \e,b+\e(B  ~! -> \e,b!\e(B  ~? -> \e,b?\e(B  ~~ -> \e,b8\e(B
  53              |   ~    | ~s -> \e,b'\e(B  ~e -> \e,b$\e(B  ~. -> \e,b7\e(B  ~$ -> \e,b#\e(B  ~u -> \e,b5\e(B
  54              |   ~    | ~- -> \e,b-\e(B  ~= -> \e,b/\e(B
  55    symbol    |  _ /   | _o -> \e,b:\e(B  _a -> \e,b*\e(B  // -> \e,b0\e(B  /\\ -> \e,bW\e(B  _y -> \e,b%\e(B
  56              |  _ /   | _: -> \e,bw\e(B  /c -> \e,b"\e(B  ~p -> \e,b6\e(B
  57              |  _ /   | /= -> \e,b,\e(B
  58    symbol    |   ^    | ^r -> \e,b.\e(B  ^c -> \e,b)\e(B  ^1 -> \e,b9\e(B  ^2 -> \e,b2\e(B  ^3 -> \e,b3\e(B  _a -> \e,b*\e(B
  59 " nil t nil nil nil nil nil nil nil nil t)
  60
  61 (quail-define-rules
  62  ("'A" ?\e,bA\e(B)
  63  ("'E" ?\e,bI\e(B)
  64  ("'I" ?\e,bM\e(B)
  65  ("'O" ?\e,bS\e(B)
  66  ("'U" ?\e,bZ\e(B)
  67  ("'Y" ?\e,b]\e(B)
  68  ("'a" ?\e,ba\e(B)
  69  ("'e" ?\e,bi\e(B)
  70  ("'i" ?\e,bm\e(B)
  71  ("'o" ?\e,bs\e(B)
  72  ("'u" ?\e,bz\e(B)
  73  ("'y" ?\e,b}\e(B)
  74  ("' " ?')
  75  ("`A" ?\e,b@\e(B)
  76  ("`E" ?\e,bH\e(B)
  77  ("`I" ?\e,bL\e(B)
  78  ("`O" ?\e,bR\e(B)
  79  ("`U" ?\e,bY\e(B)
  80  ("`a" ?\e,b`\e(B)
  81  ("`e" ?\e,bh\e(B)
  82  ("`i" ?\e,bl\e(B)
  83  ("`o" ?\e,br\e(B)
  84  ("`u" ?\e,by\e(B)
  85  ("``" ?`)
  86  ("` " ?`)
  87  ("^A" ?\e,bB\e(B)
  88  ("^E" ?\e,bJ\e(B)
  89  ("^I" ?\e,bN\e(B)
  90  ("^O" ?\e,bT\e(B)
  91  ("^U" ?\e,b[\e(B)
  92  ("^a" ?\e,bb\e(B)
  93  ("^e" ?\e,bj\e(B)
  94  ("^i" ?\e,bn\e(B)
  95  ("^o" ?\e,bt\e(B)
  96  ("^u" ?\e,b{\e(B)
  97  ("^^" ?^)
  98  ("^ " ?^)
  99  ("\"A" ?\e,bD\e(B)
 100  ("\"E" ?\e,bK\e(B)
 101  ("\"I" ?\e,bO\e(B)
 102  ("\"O" ?\e,bV\e(B)
 103  ("\"U" ?\e,b\\e(B)
 104  ("\"a" ?\e,bd\e(B)
 105  ("\"e" ?\e,bk\e(B)
 106  ("\"i" ?\e,bo\e(B)
 107  ("\"o" ?\e,bv\e(B)
 108  ("\"s" ?\e,b_\e(B)
 109  ("\"u" ?\e,b|\e(B)
 110  ("\"y" ?\e,b\7f\e(B)
 111  ("\" " ?\")
 112  ("~A" ?\e,bC\e(B)
 113  ("~C" ?\e,bG\e(B)
 114  ("~D" ?\e,bP\e(B)
 115  ("~N" ?\e,bQ\e(B)
 116  ("~O" ?\e,bU\e(B)
 117  ("~S" ?\e,b&\e(B)
 118  ("~T" ?\e,b^\e(B)
 119  ("~Z" ?\e,b4\e(B)
 120  ("~a" ?\e,bc\e(B)
 121  ("~c" ?\e,bg\e(B)
 122  ("~d" ?\e,bp\e(B)
 123  ("~n" ?\e,bq\e(B)
 124  ("~o" ?\e,bu\e(B)
 125  ("~s" ?\e,b(\e(B)
 126  ("~t" ?\e,b~\e(B)
 127  ("~z" ?\e,b8\e(B)
 128  ("~>" ?\\e,b;\e(B)
 129  ("~<" ?\\e,b+\e(B)
 130  ("~!" ?\e,b!\e(B)
 131  ("~?" ?\e,b?\e(B)
 132  ("~ " ?~)
 133  ("/A" ?\e,bE\e(B)
 134  ("/E" ?\e,bF\e(B)
 135  ("/O" ?\e,bX\e(B)
 136  ("/a" ?\e,be\e(B)
 137  ("/e" ?\e,bf\e(B)
 138  ("/o" ?\e,bx\e(B)
 139  ("//" ?\e,b0\e(B)
 140  ("/ " ?/)
 141  ("_o" ?\e,b:\e(B)
 142  ("_a" ?\e,b*\e(B)
 143  ("_+" ?\e,b1\e(B)
 144  ("_y" ?\e,b%\e(B)
 145  ("_:" ?\e,bw\e(B)
 146  ("/c" ?\e,b"\e(B)
 147  ("/\\" ?\e,bW\e(B)
 148  ("/o" ?\e,b=\e(B)                ; clash with \e,bx\e(B, but \e,bf\e(B uses /
 149  ("/O" ?\e,b<\e(B)
 150  ("\"Y" ?\e,b>\e(B)
 151  ("~s" ?\e,b'\e(B)
 152  ("~p" ?\e,b6\e(B)
 153  ;; Is this the best option for Euro entry?
 154  ("~e" ?\e,b$\e(B)
 155  ("~." ?\e,b7\e(B)
 156  ("~$" ?\e,b#\e(B)
 157  ("~u" ?\e,b5\e(B)
 158  ("^r" ?\e,b.\e(B)
 159  ("^c" ?\e,b)\e(B)
 160  ("^1" ?\e,b9\e(B)
 161  ("^2" ?\e,b2\e(B)
 162  ("^3" ?\e,b3\e(B)
 163  ("~-" ?\e,b-\e(B)
 164  ("~=" ?\e,b/\e(B)
 165  ("/=" ?\e,b,\e(B))
 166
 167 (provide 'latin-euro-input)
 168
 169 ;; end of latin-euro-input.el