-;;; quail/greek.el -- Quail package for inputting Greek
+;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*-
;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(require 'quail)
("," ?, )
("." ?. )
("/" ?\e$B!?\e(B)
-
+
("!" ?\e$B!*\e(B)
("@" ?\e$B!w\e(B)
("#" ?\e$B!t\e(B)
kappa K k
lamda L l
mu M m
-nu H n
+nu N n
xi X x
omicron O o
pi P p
("m" ?\e$,1'<\e(B)
("n" ?\e$,1'=\e(B)
("o" ?\e$,1'?\e(B)
-
+
("p" ?\e$,1'@\e(B)
("q" ?\e$,1'8\e(B)
("r" ?\e$,1'A\e(B)
;;
+(quail-define-package "greek-babel" "Greek" "BG" t
+"The TeX Babel input method for Classical Greek using mule-unicode-0100-24ff.
+
+-------------------------------------
+character capital small
+-------------------------------------
+alpha A a
+beta B b
+gamma G g
+delta D d
+epsilon E e
+zeta Z z
+eta H h
+theta J j
+iota I i
+kappa K k
+lamda L l
+mu M m
+nu N n
+xi X x
+omicron O o
+pi P p
+rho R r
+sigma S s
+final sigma c
+tau T t
+upsilon U u
+phi F f
+chi Q q
+psi Y y
+omega W w
+-------------------------------------
+sampi !
+digamma #
+stigma $
+koppa & %
+-------------------------------------
+
+------------------------
+mark key
+------------------------
+ypogegrammeni |
+psili >
+dasia <
+oxia '
+varia `
+perispomeni ~
+dialytika \"
+ano teleia ;
+erotimatiko ?
+----------------------
+"
+nil t t nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+
+ ("!" ?\e$,1'a\e(B) ; sampi
+ ("#" ?\e$,1'\\e(B) ; DIGAMMA
+ ("$" ?\e$,1'[\e(B) ; stigma
+ ("%" ?\e$,1'_\e(B) ; koppa
+ ("&" ?\e$,1'^\e(B) ; KOPPA
+ (">" ?\e$,1q\7f\e(B) ; psili
+ ("'" ?\e$,1r]\e(B) ; oxia
+ (";" ?\e$,1&g\e(B) ; ano teleia
+ ("?" ?\e$,1&^\e(B) ; erotimatiko
+ ("\"" ?\e,A(\e(B) ; dialytika
+ ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("A" ?\e$,1&q\e(B)
+ ("B" ?\e$,1&r\e(B)
+ ("D" ?\e$,1&t\e(B)
+ ("E" ?\e$,1&u\e(B)
+ ("F" ?\e$,1'&\e(B)
+ ("G" ?\e$,1&s\e(B)
+ ("H" ?\e$,1&w\e(B)
+ ("I" ?\e$,1&y\e(B)
+ ("J" ?\e$,1&x\e(B)
+ ("K" ?\e$,1&z\e(B)
+ ("L" ?\e$,1&{\e(B)
+ ("M" ?\e$,1&|\e(B)
+ ("N" ?\e$,1&}\e(B)
+ ("O" ?\e$,1&\7f\e(B)
+ ("P" ?\e$,1' \e(B)
+ ("Q" ?\e$,1''\e(B)
+ ("R" ?\e$,1'!\e(B)
+ ("S" ?\e$,1'#\e(B)
+ ("T" ?\e$,1'$\e(B)
+ ("U" ?\e$,1'%\e(B)
+ ("W" ?\e$,1')\e(B)
+ ("X" ?\e$,1&~\e(B)
+ ("Y" ?\e$,1'(\e(B)
+ ("Z" ?\e$,1&v\e(B)
+ ("`" ?\e$,1rO\e(B) ; varia
+ ("~" ?\e$,1r \e(B) ; perispomeni
+
+ ("<" ?\e$,1r^\e(B) ; dasia
+ ("a" ?\e$,1'1\e(B)
+ ("a|" ?\e$,1qs\e(B)
+ ("b" ?\e$,1'2\e(B)
+ ("c" ?\e$,1'B\e(B)
+ ("d" ?\e$,1'4\e(B)
+ ("e" ?\e$,1'5\e(B)
+ ("f" ?\e$,1'F\e(B)
+ ("g" ?\e$,1'3\e(B)
+ ("h" ?\e$,1'7\e(B)
+ ("h|" ?\e$,1r#\e(B)
+ ("i" ?\e$,1'9\e(B)
+ ("j" ?\e$,1'8\e(B)
+ ("k" ?\e$,1':\e(B)
+ ("l" ?\e$,1';\e(B)
+ ("m" ?\e$,1'<\e(B)
+ ("n" ?\e$,1'=\e(B)
+ ("o" ?\e$,1'?\e(B)
+ ("p" ?\e$,1'@\e(B)
+ ("q" ?\e$,1'G\e(B)
+ ("r" ?\e$,1'A\e(B)
+ ("s" ?\e$,1'C\e(B)
+ ("t" ?\e$,1'D\e(B)
+ ("u" ?\e$,1'E\e(B)
+ ("w" ?\e$,1'I\e(B)
+ ("w|" ?\e$,1rS\e(B)
+ ("x" ?\e$,1'>\e(B)
+ ("y" ?\e$,1'H\e(B)
+ ("z" ?\e$,1'6\e(B)
+
+ ("<i" ?\e$,1pQ\e(B)
+ (">i" ?\e$,1pP\e(B)
+ ("'i" ?\e$,1q7\e(B)
+ ("<'i" ?\e$,1pU\e(B)
+ (">'i" ?\e$,1pT\e(B)
+ ("`i" ?\e$,1q6\e(B)
+ ("<`i" ?\e$,1pS\e(B)
+ (">`i" ?\e$,1pR\e(B)
+ ("~i" ?\e$,1r6\e(B)
+ ("<~i" ?\e$,1pW\e(B)
+ (">~i" ?\e$,1pV\e(B)
+ ("\"i" ?\e$,1'J\e(B)
+ ("\"'i" ?\e$,1r3\e(B)
+ ("\"`i" ?\e$,1r2\e(B)
+
+ ("<~" ?\e$,1r?\e(B)
+ (">~" ?\e$,1r/\e(B)
+ ("<'" ?\e$,1r>\e(B)
+ (">'" ?\e$,1r.\e(B)
+ ("<`" ?\e$,1r=\e(B)
+ (">`" ?\e$,1r-\e(B)
+ ("\"'" ?\e$,1rN\e(B)
+ ("\"`" ?\e$,1rM\e(B)
+
+ ("<e" ?\e$,1p1\e(B)
+ (">e" ?\e$,1p0\e(B)
+ ("'e" ?\e$,1q3\e(B)
+ ("<'e" ?\e$,1p5\e(B)
+ (">'e" ?\e$,1p4\e(B)
+ ("`e" ?\e$,1q2\e(B)
+ ("<`e" ?\e$,1p3\e(B)
+ (">`e" ?\e$,1p2\e(B)
+
+ ("<a" ?\e$,1p!\e(B)
+ (">a" ?\e$,1p \e(B)
+ ("'a" ?\e$,1q1\e(B)
+ ("<'a" ?\e$,1p%\e(B)
+ (">'a" ?\e$,1p$\e(B)
+ ("`a" ?\e$,1q0\e(B)
+ ("<`a" ?\e$,1p#\e(B)
+ (">`a" ?\e$,1p"\e(B)
+ ("~a" ?\e$,1qv\e(B)
+ ("<~a" ?\e$,1p'\e(B)
+ (">~a" ?\e$,1p&\e(B)
+
+ ("<a|" ?\e$,1qA\e(B)
+ (">a|" ?\e$,1q@\e(B)
+ ("'a|" ?\e$,1qt\e(B)
+ ("<'a|" ?\e$,1qE\e(B)
+ (">'a|" ?\e$,1qD\e(B)
+ ("`a|" ?\e$,1qr\e(B)
+ ("<`a|" ?\e$,1qC\e(B)
+ (">`a|" ?\e$,1qB\e(B)
+ ("~a|" ?\e$,1qw\e(B)
+ ("<~a|" ?\e$,1qG\e(B)
+ (">~a|" ?\e$,1qF\e(B)
+
+ ("<r" ?\e$,1rE\e(B)
+ (">r" ?\e$,1rD\e(B)
+
+ ("<h" ?\e$,1pA\e(B)
+ (">h" ?\e$,1p@\e(B)
+ ("'h" ?\e$,1q5\e(B)
+ ("<'h" ?\e$,1pE\e(B)
+ (">'h" ?\e$,1pD\e(B)
+ ("`h" ?\e$,1q4\e(B)
+ ("<`h" ?\e$,1pC\e(B)
+ (">`h" ?\e$,1pB\e(B)
+ ("~h" ?\e$,1r&\e(B)
+ ("<~h" ?\e$,1pG\e(B)
+ (">~h" ?\e$,1pF\e(B)
+
+ ("|" ?\e$,1&Z\e(B) ; ypogegrammeni
+
+ ("<h|" ?\e$,1qQ\e(B)
+ (">h|" ?\e$,1qP\e(B)
+ ("'h|" ?\e$,1r$\e(B)
+ ("<'h|" ?\e$,1qU\e(B)
+ (">'h|" ?\e$,1qT\e(B)
+ ("`h|" ?\e$,1r"\e(B)
+ ("<`h|" ?\e$,1qS\e(B)
+ (">`h|" ?\e$,1qR\e(B)
+ ("~h|" ?\e$,1r'\e(B)
+ ("<~h|" ?\e$,1qW\e(B)
+ (">~h|" ?\e$,1qV\e(B)
+
+ ("<o" ?\e$,1pa\e(B)
+ (">o" ?\e$,1p`\e(B)
+ ("'o" ?\e$,1q9\e(B)
+ ("<'o" ?\e$,1pe\e(B)
+ (">'o" ?\e$,1pd\e(B)
+ ("`o" ?\e$,1q8\e(B)
+ ("<`o" ?\e$,1pc\e(B)
+ (">`o" ?\e$,1pb\e(B)
+
+ ("<u" ?\e$,1pq\e(B)
+ (">u" ?\e$,1pp\e(B)
+ ("'u" ?\e$,1q;\e(B)
+ ("<'u" ?\e$,1pu\e(B)
+ (">'u" ?\e$,1pt\e(B)
+ ("`u" ?\e$,1q:\e(B)
+ ("<`u" ?\e$,1ps\e(B)
+ (">`u" ?\e$,1pr\e(B)
+ ("~u" ?\e$,1rF\e(B)
+ ("<~u" ?\e$,1pw\e(B)
+ (">~u" ?\e$,1pv\e(B)
+ ("\"u" ?\e$,1'K\e(B)
+ ("\"'u" ?\e$,1rC\e(B)
+ ("`\"u" ?\e$,1rB\e(B)
+
+ ("<w" ?\e$,1q!\e(B)
+ (">w" ?\e$,1q \e(B)
+ ("'w" ?\e$,1q=\e(B)
+ ("<'w" ?\e$,1q%\e(B)
+ (">'w" ?\e$,1q$\e(B)
+ ("`w" ?\e$,1q<\e(B)
+ ("<`w" ?\e$,1q#\e(B)
+ (">`w" ?\e$,1q"\e(B)
+ ("~w" ?\e$,1rV\e(B)
+ ("<~w" ?\e$,1q'\e(B)
+ (">~w" ?\e$,1q&\e(B)
+
+ ("<w|" ?\e$,1qa\e(B)
+ (">w|" ?\e$,1q`\e(B)
+ ("'w|" ?\e$,1rT\e(B)
+ ("<'w|" ?\e$,1qe\e(B)
+ (">'w|" ?\e$,1qd\e(B)
+ ("`w|" ?\e$,1rR\e(B)
+ ("<`w|" ?\e$,1qc\e(B)
+ (">`w|" ?\e$,1qb\e(B)
+ ("~w|" ?\e$,1rW\e(B)
+ ("<~w|" ?\e$,1qg\e(B)
+ (">~w|" ?\e$,1qf\e(B)
+ )
+
+;;
+
(quail-define-package "greek-ibycus4" "Greek" "IB" t
"The Ibycus4 input method for Classical Greek using mule-unicode-0100-24ff."
nil t t nil nil nil nil nil nil nil t)
"\e,FEkkgmij\\e(B: Greek keyboard layout (ISO 8859-7)
--------------
+In the right of \e,Fk\e(B key is a combination key, where
+ \e,F4\e(B acute
+ \e,F(\e(B diaresis
+
+e.g.
+ \e,F4\e(B + \e,Fa\e(B -> \e,F\\e(B
+ \e,F(\e(B + \e,Fi\e(B -> \e,Fz\e(B
+ \e,F(\e(B + \e,F4\e(B + \e,Fi\e(B -> \e,F@\e(B"
+ nil t t t t nil nil nil nil nil t)
+
+;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
+;; ;: \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 [{ ]}
+;; \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 '" \|
+;; \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 ,< .> /?
+
+(quail-define-rules
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("`" ?`)
+ ("q" ?\;)
+ ("w" ?\e,Fr\e(B)
+ ("e" ?\e,Fe\e(B)
+ ("r" ?\e,Fq\e(B)
+ ("t" ?\e,Ft\e(B)
+ ("y" ?\e,Fu\e(B)
+ ("u" ?\e,Fh\e(B)
+ ("i" ?\e,Fi\e(B)
+ ("o" ?\e,Fo\e(B)
+ ("p" ?\e,Fp\e(B)
+ ("[" ?\[)
+ ("]" ?\])
+ ("a" ?\e,Fa\e(B)
+ ("s" ?\e,Fs\e(B)
+ ("d" ?\e,Fd\e(B)
+ ("f" ?\e,Fv\e(B)
+ ("g" ?\e,Fc\e(B)
+ ("h" ?\e,Fg\e(B)
+ ("j" ?\e,Fn\e(B)
+ ("k" ?\e,Fj\e(B)
+ ("l" ?\e,Fk\e(B)
+ (";" ?\e,F4\e(B)
+ ("'" ?')
+ ("\\" ?\\)
+ ("z" ?\e,Ff\e(B)
+ ("x" ?\e,Fw\e(B)
+ ("c" ?\e,Fx\e(B)
+ ("v" ?\e,Fy\e(B)
+ ("b" ?\e,Fb\e(B)
+ ("n" ?\e,Fm\e(B)
+ ("m" ?\e,Fl\e(B)
+ ("," ?,)
+ ("." ?.)
+ ("/" ?/)
+
+ ("!" ?!)
+ ("@" ?@)
+ ("#" ?#)
+ ("$" ?$)
+ ("%" ?%)
+ ("^" ?^)
+ ("&" ?&)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("~" ?~)
+ ("Q" ?:)
+ ("W" ?\e,FS\e(B)
+ ("E" ?\e,FE\e(B)
+ ("R" ?\e,FQ\e(B)
+ ("T" ?\e,FT\e(B)
+ ("Y" ?\e,FU\e(B)
+ ("U" ?\e,FH\e(B)
+ ("I" ?\e,FI\e(B)
+ ("O" ?\e,FO\e(B)
+ ("P" ?\e,FP\e(B)
+ ("{" ?{)
+ ("}" ?})
+ ("A" ?\e,FA\e(B)
+ ("S" ?\e,FS\e(B)
+ ("D" ?\e,FD\e(B)
+ ("F" ?\e,FV\e(B)
+ ("G" ?\e,FC\e(B)
+ ("H" ?\e,FG\e(B)
+ ("J" ?\e,FN\e(B)
+ ("K" ?\e,FJ\e(B)
+ ("L" ?\e,FK\e(B)
+ (":" ?\e,F(\e(B)
+ ("\"" ?\")
+ ("|" ?|)
+ ("Z" ?\e,FF\e(B)
+ ("X" ?\e,FW\e(B)
+ ("C" ?\e,FX\e(B)
+ ("V" ?\e,FY\e(B)
+ ("B" ?\e,FB\e(B)
+ ("N" ?\e,FM\e(B)
+ ("M" ?\e,FL\e(B)
+ ("<" ?<)
+ (">" ?>)
+ ("?" ??)
+
+ (";a" ?\e,F\\e(B)
+ (";e" ?\e,F]\e(B)
+ (";h" ?\e,F^\e(B)
+ (";i" ?\e,F_\e(B)
+ (";o" ?\e,F|\e(B)
+ (";y" ?\e,F}\e(B)
+ (";v" ?\e,F~\e(B)
+ (";A" ?\e,F6\e(B)
+ (";E" ?\e,F8\e(B)
+ (";H" ?\e,F9\e(B)
+ (";I" ?\e,F:\e(B)
+ (";O" ?\e,F<\e(B)
+ (";Y" ?\e,F>\e(B)
+ (";V" ?\e,F?\e(B)
+ (":i" ?\e,Fz\e(B)
+ (":y" ?\e,F{\e(B)
+ (":I" ?\e,FZ\e(B)
+ (":Y" ?\e,F[\e(B)
+ (";:i" ?\e,F@\e(B)
+ (":;i" ?\e,F@\e(B)
+ (";:y" ?\e,F`\e(B)
+ (":;y" ?\e,F`\e(B))
+
+(quail-define-package
+ "greek-postfix" "GreekPost" "\e,FX\e(B" nil
+ "\e,FEkkgmij\\e(B: Greek keyboard layout with postfix accents (ISO 8859-7)
+--------------
+
In the right of \e,Fk\e(B key is a combination key, where
\e,F4\e(B acute
\e,F(\e(B diaresis
;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
;; \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 [{ ]}
;; \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 '" \|
-;; \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 ,; .: /?
+;; \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 ,; .: /?
(quail-define-rules
("1" ?1)
("-" ?-)
("=" ?=)
("`" ?`)
- ("q" ?\e,F7\e(B)
+ ("q" ?\;)
("w" ?\e,Fr\e(B)
("e" ?\e,Fe\e(B)
("r" ?\e,Fq\e(B)
("," ?,)
("." ?.)
("/" ?/)
-
+
("!" ?!)
("@" ?@)
("#" ?#)
("_" ?_)
("+" ?+)
("~" ?~)
- ("Q" ?\e,F/\e(B)
+ ("Q" ?:)
("W" ?\e,FS\e(B)
("E" ?\e,FE\e(B)
("R" ?\e,FQ\e(B)
("B" ?\e,FB\e(B)
("N" ?\e,FM\e(B)
("M" ?\e,FL\e(B)
- ("<" ?\;)
- (">" ?:)
+ ("<" ?<)
+ (">" ?>)
("?" ??)
-
+
("a;" ?\e,F\\e(B)
("e;" ?\e,F]\e(B)
("h;" ?\e,F^\e(B)
("I:" ?\e,FZ\e(B)
("Y:" ?\e,F[\e(B)
("i:;" ?\e,F@\e(B)
- ("y:;" ?\e,F`\e(B))
+ ("i;:" ?\e,F@\e(B)
+ ("y:;" ?\e,F`\e(B)
+ ("y;:" ?\e,F`\e(B))
+
+
+;;; greek.el ends here
HCoop / bpt / emacs.git / blobdiff