leim/quail/greek.el

   1 ;;; quail/greek.el -- Quail package for inputting Greek
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, input method, Greek
   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 ;;; Code:
  26
  27 (require 'quail)
  28
  29 (quail-define-package
  30  "greek-jis" "Greek" "\e$B&8\e(B" nil
  31  "\e$B&%&K&K&G&M&I&J&A\e(B: Greek keyboard layout (JIS X0208.1983)
  32
  33 The layout is same as greek, but uses JIS characters.
  34 Sorry, accents and terminal sigma are not supported in JIS."
  35  nil t t t t nil nil nil nil nil t)
  36
  37 (quail-define-rules
  38  ("1" ?\e$B#1\e(B)
  39  ("2" ?\e$B#2\e(B)
  40  ("3" ?\e$B#3\e(B)
  41  ("4" ?\e$B#4\e(B)
  42  ("5" ?\e$B#5\e(B)
  43  ("6" ?\e$B#6\e(B)
  44  ("7" ?\e$B#7\e(B)
  45  ("8" ?\e$B#8\e(B)
  46  ("9" ?\e$B#9\e(B)
  47  ("0" ?\e$B#0\e(B)
  48  ("-" ?\e$B!]\e(B)
  49  ("=" ?\e$B!a\e(B)
  50  ("`" ?\e$B!F\e(B)
  51  ("q" ?\e$B!&\e(B)
  52  ("w" ?\e$B&R\e(B)
  53  ("e" ?\e$B&E\e(B)
  54  ("r" ?\e$B&Q\e(B)
  55  ("t" ?\e$B&S\e(B)
  56  ("y" ?\e$B&T\e(B)
  57  ("u" ?\e$B&H\e(B)
  58  ("i" ?\e$B&I\e(B)
  59  ("o" ?\e$B&O\e(B)
  60  ("p" ?\e$B&P\e(B)
  61  ("[" ?\\e$B!N\e(B)
  62  ("]" ?\\e$B!O\e(B)
  63  ("a" ?\e$B&A\e(B)
  64  ("s" ?\e$B&R\e(B)
  65  ("d" ?\e$B&D\e(B)
  66  ("f" ?\e$B&U\e(B)
  67  ("g" ?\e$B&C\e(B)
  68  ("h" ?\e$B&G\e(B)
  69  ("j" ?\e$B&N\e(B)
  70  ("k" ?\e$B&J\e(B)
  71  ("l" ?\e$B&K\e(B)
  72  (";" ?\e$B!G\e(B)
  73  ("'" ?\e$B!G\e(B)
  74  ("\\" ?\e$B!@\e(B)
  75  ("z" ?\e$B&F\e(B)
  76  ("x" ?\e$B&V\e(B)
  77  ("c" ?\e$B&W\e(B)
  78  ("v" ?\e$B&X\e(B)
  79  ("b" ?\e$B&B\e(B)
  80  ("n" ?\e$B&M\e(B)
  81  ("m" ?\e$B&L\e(B)
  82  ("," ?, )
  83  ("." ?. )
  84  ("/" ?\e$B!?\e(B)
  85
  86  ("!" ?\e$B!*\e(B)
  87  ("@" ?\e$B!w\e(B)
  88  ("#" ?\e$B!t\e(B)
  89  ("$" ?\e$B!t\e(B)
  90  ("%" ?\e$B!s\e(B)
  91  ("^" ?\e$B!0\e(B)
  92  ("&" ?\e$B!u\e(B)
  93  ("*" ?\e$B!v\e(B)
  94  ("(" ?\\e$B!J\e(B)
  95  (")" ?\\e$B!K\e(B)
  96  ("_" ?\e$B!2\e(B)
  97  ("+" ?\e$B!\\e(B)
  98  ("~" ?\e$B!1\e(B)
  99  ("Q" ?\e$B!]\e(B)
 100  ("W" ?\e$B&2\e(B)
 101  ("E" ?\e$B&%\e(B)
 102  ("R" ?\e$B&1\e(B)
 103  ("T" ?\e$B&3\e(B)
 104  ("Y" ?\e$B&4\e(B)
 105  ("U" ?\e$B&(\e(B)
 106  ("I" ?\e$B&)\e(B)
 107  ("O" ?\e$B&/\e(B)
 108  ("P" ?\e$B&1\e(B)
 109  ("{" ?\\e$B!P\e(B)
 110  ("}" ?\\e$B!Q\e(B)
 111  ("A" ?\e$B&!\e(B)
 112  ("S" ?\e$B&2\e(B)
 113  ("D" ?\e$B&$\e(B)
 114  ("F" ?\e$B&5\e(B)
 115  ("G" ?\e$B&#\e(B)
 116  ("H" ?\e$B&'\e(B)
 117  ("J" ?\e$B&.\e(B)
 118  ("K" ?\e$B&*\e(B)
 119  ("L" ?\e$B&+\e(B)
 120  (":" ?\e$B!I\e(B)
 121  ("\"" ?\e$B!I\e(B)
 122  ("|" ?\e$B!C\e(B)
 123  ("Z" ?\e$B&&\e(B)
 124  ("X" ?\e$B&6\e(B)
 125  ("C" ?\e$B&7\e(B)
 126  ("V" ?\e$B&8\e(B)
 127  ("B" ?\e$B&"\e(B)
 128  ("N" ?\e$B&-\e(B)
 129  ("M" ?\e$B&,\e(B)
 130  ("<" ?\e$B!(\e(B)
 131  (">" ?\e$B!'\e(B)
 132  ("?" ?\e$B!)\e(B))
 133
 134 ;;
 135
 136 (quail-define-package
 137  "greek" "Greek" "\e,FY\e(B" nil
 138  "\e,FEkkgmij\\e(B: Greek keyboard layout (ISO 8859-7)
 139 --------------
 140
 141 In the right of \e,Fk\e(B key is a combination key, where
 142  \e,F4\e(B acute
 143  \e,F(\e(B diaresis
 144
 145 e.g.
 146  \e,Fa\e(B + \e,F4\e(B -> \e,F\\e(B
 147  \e,Fi\e(B + \e,F(\e(B -> \e,Fz\e(B
 148  \e,Fi\e(B + \e,F(\e(B + \e,F4\e(B -> \e,F@\e(B"
 149  nil t t t t nil nil nil nil nil t)
 150
 151 ;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
 152 ;;  \e,F7/\e(B  \e,FrS\e(B  \e,FeE\e(B  \e,FqQ\e(B  \e,FtT\e(B  \e,FuU\e(B  \e,FhH\e(B  \e,FiI\e(B  \e,FoO\e(B  \e,FpP\e(B  [{  ]}
 153 ;;   \e,FaA\e(B  \e,FsS\e(B  \e,FdD\e(B  \e,FvV\e(B  \e,FcC\e(B  \e,FgG\e(B  \e,FnN\e(B  \e,FjJ\e(B  \e,FkK\e(B  \e,F4(\e(B  '"  \|
 154 ;;    \e,FfF\e(B  \e,FwW\e(B  \e,FxX\e(B  \e,FyY\e(B  \e,FbB\e(B  \e,FmM\e(B  \e,FlL\e(B  ,;  .:  /?
 155
 156 (quail-define-rules
 157  ("1" ?1)
 158  ("2" ?2)
 159  ("3" ?3)
 160  ("4" ?4)
 161  ("5" ?5)
 162  ("6" ?6)
 163  ("7" ?7)
 164  ("8" ?8)
 165  ("9" ?9)
 166  ("0" ?0)
 167  ("-" ?-)
 168  ("=" ?=)
 169  ("`" ?`)
 170  ("q" ?\e,F7\e(B)
 171  ("w" ?\e,Fr\e(B)
 172  ("e" ?\e,Fe\e(B)
 173  ("r" ?\e,Fq\e(B)
 174  ("t" ?\e,Ft\e(B)
 175  ("y" ?\e,Fu\e(B)
 176  ("u" ?\e,Fh\e(B)
 177  ("i" ?\e,Fi\e(B)
 178  ("o" ?\e,Fo\e(B)
 179  ("p" ?\e,Fp\e(B)
 180  ("[" ?\[)
 181  ("]" ?\])
 182  ("a" ?\e,Fa\e(B)
 183  ("s" ?\e,Fs\e(B)
 184  ("d" ?\e,Fd\e(B)
 185  ("f" ?\e,Fv\e(B)
 186  ("g" ?\e,Fc\e(B)
 187  ("h" ?\e,Fg\e(B)
 188  ("j" ?\e,Fn\e(B)
 189  ("k" ?\e,Fj\e(B)
 190  ("l" ?\e,Fk\e(B)
 191  (";" ?\e,F4\e(B)
 192  ("'" ?')
 193  ("\\" ?\\)
 194  ("z" ?\e,Ff\e(B)
 195  ("x" ?\e,Fw\e(B)
 196  ("c" ?\e,Fx\e(B)
 197  ("v" ?\e,Fy\e(B)
 198  ("b" ?\e,Fb\e(B)
 199  ("n" ?\e,Fm\e(B)
 200  ("m" ?\e,Fl\e(B)
 201  ("," ?,)
 202  ("." ?.)
 203  ("/" ?/)
 204
 205  ("!" ?!)
 206  ("@" ?@)
 207  ("#" ?#)
 208  ("$" ?$)
 209  ("%" ?%)
 210  ("^" ?^)
 211  ("&" ?&)
 212  ("*" ?*)
 213  ("(" ?\()
 214  (")" ?\))
 215  ("_" ?_)
 216  ("+" ?+)
 217  ("~" ?~)
 218  ("Q" ?\e,F/\e(B)
 219  ("W" ?\e,FS\e(B)
 220  ("E" ?\e,FE\e(B)
 221  ("R" ?\e,FQ\e(B)
 222  ("T" ?\e,FT\e(B)
 223  ("Y" ?\e,FU\e(B)
 224  ("U" ?\e,FH\e(B)
 225  ("I" ?\e,FI\e(B)
 226  ("O" ?\e,FO\e(B)
 227  ("P" ?\e,FP\e(B)
 228  ("{" ?{)
 229  ("}" ?})
 230  ("A" ?\e,FA\e(B)
 231  ("S" ?\e,FS\e(B)
 232  ("D" ?\e,FD\e(B)
 233  ("F" ?\e,FV\e(B)
 234  ("G" ?\e,FC\e(B)
 235  ("H" ?\e,FG\e(B)
 236  ("J" ?\e,FN\e(B)
 237  ("K" ?\e,FJ\e(B)
 238  ("L" ?\e,FK\e(B)
 239  (":" ?\e,F(\e(B)
 240  ("\"" ?\")
 241  ("|" ?|)
 242  ("Z" ?\e,FF\e(B)
 243  ("X" ?\e,FW\e(B)
 244  ("C" ?\e,FX\e(B)
 245  ("V" ?\e,FY\e(B)
 246  ("B" ?\e,FB\e(B)
 247  ("N" ?\e,FM\e(B)
 248  ("M" ?\e,FL\e(B)
 249  ("<" ?\;)
 250  (">" ?:)
 251  ("?" ??)
 252
 253  ("a;" ?\e,F\\e(B)
 254  ("e;" ?\e,F]\e(B)
 255  ("h;" ?\e,F^\e(B)
 256  ("i;" ?\e,F_\e(B)
 257  ("o;" ?\e,F|\e(B)
 258  ("y;" ?\e,F}\e(B)
 259  ("v;" ?\e,F~\e(B)
 260  ("A;" ?\e,F6\e(B)
 261  ("E;" ?\e,F8\e(B)
 262  ("H;" ?\e,F9\e(B)
 263  ("I;" ?\e,F:\e(B)
 264  ("O;" ?\e,F<\e(B)
 265  ("Y;" ?\e,F>\e(B)
 266  ("V;" ?\e,F?\e(B)
 267  ("i:" ?\e,Fz\e(B)
 268  ("y:" ?\e,F{\e(B)
 269  ("I:" ?\e,FZ\e(B)
 270  ("Y:" ?\e,F[\e(B)
 271  ("i:;" ?\e,F@\e(B)
 272  ("y:;" ?\e,F`\e(B))