From: akr Date: Mon, 20 Aug 2001 10:09:07 +0000 (+0000) Subject: tamago:00516 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8ae3afd477b2d09d31c64695effe0c9d5bd8ce02;p=elisp%2Ftamago.git tamago:00516 --- diff --git a/its/greek.el b/its/greek.el new file mode 100644 index 0000000..e24cf17 --- /dev/null +++ b/its/greek.el @@ -0,0 +1,251 @@ +(eval-when-compile + (require 'its) + (require 'cl)) + +(eval-when (compile) + (defconst its-compaction-enable t)) + +(defgroup greek nil + "Greek Input Method" + :group 'its) + +(define-its-state-machine its-greek-jis-map + "greek-jis" "Ω" Greek + "Ελληνικα: Greek keyboard layout (JIS X0208.1983) + +The layout is same as greek, but uses JIS characters. +Sorry, accents and terminal sigma are not supported in JIS." + + (its-defrule "1" "１") + (its-defrule "2" "２") + (its-defrule "3" "３") + (its-defrule "4" "４") + (its-defrule "5" "５") + (its-defrule "6" "６") + (its-defrule "7" "７") + (its-defrule "8" "８") + (its-defrule "9" "９") + (its-defrule "0" "０") + (its-defrule "-" "−") + (its-defrule "=" "＝") + (its-defrule "`" "‘") + (its-defrule "q" "・") + (its-defrule "w" "σ") + (its-defrule "e" "ε") + (its-defrule "r" "ρ") + (its-defrule "t" "τ") + (its-defrule "y" "υ") + (its-defrule "u" "θ") + (its-defrule "i" "ι") + (its-defrule "o" "ο") + (its-defrule "p" "π") + (its-defrule "[" "［") + (its-defrule "]" "］") + (its-defrule "a" "α") + (its-defrule "s" "σ") + (its-defrule "d" "δ") + (its-defrule "f" "φ") + (its-defrule "g" "γ") + (its-defrule "h" "η") + (its-defrule "j" "ξ") + (its-defrule "k" "κ") + (its-defrule "l" "λ") + (its-defrule ";" "’") + (its-defrule "'" "’") + (its-defrule "\\" "＼") + (its-defrule "z" "ζ") + (its-defrule "x" "χ") + (its-defrule "c" "ψ") + (its-defrule "v" "ω") + (its-defrule "b" "β") + (its-defrule "n" "ν") + (its-defrule "m" "μ") + (its-defrule "," ", ") + (its-defrule "." ". ") + (its-defrule "/" "／") + + (its-defrule "!" "！") + (its-defrule "@" "＠") + (its-defrule "#" "＃") + (its-defrule "$" "＃") + (its-defrule "%" "％") + (its-defrule "^" "＾") + (its-defrule "&" "＆") + (its-defrule "*" "＊") + (its-defrule "(" "（") + (its-defrule ")" "）") + (its-defrule "_" "＿") + (its-defrule "+" "＋") + (its-defrule "~" "￣") + (its-defrule "Q" "−") + (its-defrule "W" "Σ") + (its-defrule "E" "Ε") + (its-defrule "R" "Ρ") + (its-defrule "T" "Τ") + (its-defrule "Y" "Υ") + (its-defrule "U" "Θ") + (its-defrule "I" "Ι") + (its-defrule "O" "Ο") + (its-defrule "P" "Ρ") + (its-defrule "{" "｛") + (its-defrule "}" "｝") + (its-defrule "A" "Α") + (its-defrule "S" "Σ") + (its-defrule "D" "Δ") + (its-defrule "F" "Φ") + (its-defrule "G" "Γ") + (its-defrule "H" "Η") + (its-defrule "J" "Ξ") + (its-defrule "K" "Κ") + (its-defrule "L" "Λ") + (its-defrule ":" "”") + (its-defrule "\"" "”") + (its-defrule "|" "｜") + (its-defrule "Z" "Ζ") + (its-defrule "X" "Χ") + (its-defrule "C" "Ψ") + (its-defrule "V" "Ω") + (its-defrule "B" "Β") + (its-defrule "N" "Ν") + (its-defrule "M" "Μ") + (its-defrule "<" "；") + (its-defrule ">" "：") + (its-defrule "?" "？")) + +(define-its-state-machine its-greek-map + "greek" ",FY" Greek + ",FEkkgmij\: Greek keyboard layout (ISO 8859-7) +-------------- + +In the right of ,Fk key is a combination key, where + ,F4 acute + ,F( diaresis + +e.g. + ,Fa + ,F4 -> ,F\ + ,Fi + ,F( -> ,Fz + ,Fi + ,F( + ,F4 -> ,F@" + +;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ +;; ,F7/ ,FrS ,FeE ,FqQ ,FtT ,FuU ,FhH ,FiI ,FoO ,FpP [{ ]} +;; ,FaA ,FsS ,FdD ,FvV ,FcC ,FgG ,FnN ,FjJ ,FkK ,F4( '" \| +;; ,FfF ,FwW ,FxX ,FyY ,FbB ,FmM ,FlL ,; .: /? + + (its-defrule "1" "1") + (its-defrule "2" "2") + (its-defrule "3" "3") + (its-defrule "4" "4") + (its-defrule "5" "5") + (its-defrule "6" "6") + (its-defrule "7" "7") + (its-defrule "8" "8") + (its-defrule "9" "9") + (its-defrule "0" "0") + (its-defrule "-" "-") + (its-defrule "=" "=") + (its-defrule "`" "`") + (its-defrule "q" ",F7") + (its-defrule "w" ",Fr") + (its-defrule "e" ",Fe") + (its-defrule "r" ",Fq") + (its-defrule "t" ",Ft") + (its-defrule "y" ",Fu") + (its-defrule "u" ",Fh") + (its-defrule "i" ",Fi") + (its-defrule "o" ",Fo") + (its-defrule "p" ",Fp") + (its-defrule "[" "[") + (its-defrule "]" "]") + (its-defrule "a" ",Fa") + (its-defrule "s" ",Fs") + (its-defrule "d" ",Fd") + (its-defrule "f" ",Fv") + (its-defrule "g" ",Fc") + (its-defrule "h" ",Fg") + (its-defrule "j" ",Fn") + (its-defrule "k" ",Fj") + (its-defrule "l" ",Fk") + (its-defrule ";" ",F4") + (its-defrule "'" "'") + (its-defrule "\\" "\\") + (its-defrule "z" ",Ff") + (its-defrule "x" ",Fw") + (its-defrule "c" ",Fx") + (its-defrule "v" ",Fy") + (its-defrule "b" ",Fb") + (its-defrule "n" ",Fm") + (its-defrule "m" ",Fl") + (its-defrule "," ",") + (its-defrule "." ".") + (its-defrule "/" "/") + + (its-defrule "!" "!") + (its-defrule "@" "@") + (its-defrule "#" "#") + (its-defrule "$" "$") + (its-defrule "%" "%") + (its-defrule "^" "^") + (its-defrule "&" "&") + (its-defrule "*" "*") + (its-defrule "(" "(") + (its-defrule ")" ")") + (its-defrule "_" "_") + (its-defrule "+" "+") + (its-defrule "~" "~") + (its-defrule "Q" ",F/") + (its-defrule "W" ",FS") + (its-defrule "E" ",FE") + (its-defrule "R" ",FQ") + (its-defrule "T" ",FT") + (its-defrule "Y" ",FU") + (its-defrule "U" ",FH") + (its-defrule "I" ",FI") + (its-defrule "O" ",FO") + (its-defrule "P" ",FP") + (its-defrule "{" "{") + (its-defrule "}" "}") + (its-defrule "A" ",FA") + (its-defrule "S" ",FS") + (its-defrule "D" ",FD") + (its-defrule "F" ",FV") + (its-defrule "G" ",FC") + (its-defrule "H" ",FG") + (its-defrule "J" ",FN") + (its-defrule "K" ",FJ") + (its-defrule "L" ",FK") + (its-defrule ":" ",F(") + (its-defrule "\"" "\"") + (its-defrule "|" "|") + (its-defrule "Z" ",FF") + (its-defrule "X" ",FW") + (its-defrule "C" ",FX") + (its-defrule "V" ",FY") + (its-defrule "B" ",FB") + (its-defrule "N" ",FM") + (its-defrule "M" ",FL") + (its-defrule "<" ";") + (its-defrule ">" ":") + (its-defrule "?" "?") + + (its-defrule "a;" ",F\") + (its-defrule "e;" ",F]") + (its-defrule "h;" ",F^") + (its-defrule "i;" ",F_") + (its-defrule "o;" ",F|") + (its-defrule "y;" ",F}") + (its-defrule "v;" ",F~") + (its-defrule "A;" ",F6") + (its-defrule "E;" ",F8") + (its-defrule "H;" ",F9") + (its-defrule "I;" ",F:") + (its-defrule "O;" ",F<") + (its-defrule "Y;" ",F>") + (its-defrule "V;" ",F?") + (its-defrule "i:" ",Fz") + (its-defrule "y:" ",F{") + (its-defrule "I:" ",FZ") + (its-defrule "Y:" ",F[") + (its-defrule "i:;" ",F@") + (its-defrule "y:;" ",F`")) + +(provide 'its/greek)