its/greek.el

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