ja-anthy.mim

   1 ;; ja-anthy.mim -- Japanese input method using Anthy as a conversion server.
   2 ;; Copyright (C) 2003, 2004
   3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   4 ;;   Registration Number H15PRO112
   5
   6 ;; This file is part of the m17n library.
   7
   8 ;; The m17n library is free software; you can redistribute it and/or
   9 ;; modify it under the terms of the GNU Lesser General Public License
  10 ;; as published by the Free Software Foundation; either version 2.1 of
  11 ;; the License, or (at your option) any later version.
  12
  13 ;; The m17n library is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 ;; Lesser General Public License for more details.
  17
  18 ;; You should have received a copy of the GNU Lesser General Public
  19 ;; License along with the m17n library; if not, write to the Free
  20 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  21 ;; 02111-1307, USA.
  22
  23 (input-method ja anthy)
  24
  25 (description "Japanese input method with Anthy as a kana-kanji converter.
  26 Typed roma-ji is at first converted to Hiragana,
  27 and Space key converts the Hiragana sequences
  28 to Kanji-Hiragana mixed sequence.
  29
  30 This input method uses the loadable module libmimx-anthy.so to
  31 communicate with Anthy.  For more detail about Anthy, see the page
  32   <http://sourceforge.jp/projects/anthy/>.
  33 ")
  34
  35 (variable
  36  (input-mode
  37   "Hiragana or Katakana
  38 Select Hiragana or Katakana"
  39   hiragana
  40   hiragana katakana)
  41  (zen-han
  42   "Zenkaku or Hankaku"
  43   zenkaku
  44   hankaku))
  45
  46 (command
  47  (convert) (commit))
  48
  49 (title "aあ")
  50
  51 (map
  52  (starter
  53   ("a") ("i") ("u") ("e") ("o")
  54   ("k") ("s") ("t") ("n") ("h") ("m") ("y") ("r") ("l") ("w")
  55   ("g") ("z") ("d") ("b") ("p")
  56   ("c") ("j") ("f") ("x") ("v") ("z")
  57   ("1") ("2") ("3") ("4") ("5") ("6") ("7") ("8") ("9") ("0")
  58   ("!") ("@") ("#") ("$") ("%") ("^") ("&") ("*") ("(") (")")
  59   ("-") ("=") ("`") ("\\") ("|") ("_") ("+") ("~") ("[") ("]")
  60   ("{") ("}") (":") (";") ("\"") ("'") (".") (",") ("<") (">")
  61   ("?") ("/"))
  62
  63  (ordinary
  64   ( "a" "あ") ( "i" "い") ( "u" "う") ( "e" "え") ( "o" "お")
  65   ("ka" "か") ("ki" "き") ("ku" "く") ("ke" "け") ("ko" "こ")
  66   ("sa" "さ") ("si" "し") ("su" "す") ("se" "せ") ("so" "そ")
  67   ("ta" "た") ("ti" "ち") ("tu" "つ") ("te" "て") ("to" "と")
  68   ("na" "な") ("ni" "に") ("nu" "ぬ") ("ne" "ね") ("no" "の")
  69   ("ha" "は") ("hi" "ひ") ("hu" "ふ") ("he" "へ") ("ho" "ほ")
  70   ("ma" "ま") ("mi" "み") ("mu" "む") ("me" "め") ("mo" "も")
  71   ("ya" "や")             ("yu" "ゆ")             ("yo" "よ")
  72   ("ra" "ら") ("ri" "り") ("ru" "る") ("re" "れ") ("ro" "ろ")
  73   ("la" "ら") ("li" "り") ("lu" "る") ("le" "れ") ("lo" "ろ")
  74   ("wa" "わ") ("wi" "ゐ") ("wu" "う") ("we" "ゑ") ("wo" "を")
  75   ("ga" "が") ("gi" "ぎ") ("gu" "ぐ") ("ge" "げ") ("go" "ご")
  76   ("za" "ざ") ("zi" "じ") ("zu" "ず") ("ze" "ぜ") ("zo" "ぞ")
  77   ("da" "だ") ("di" "ぢ") ("du" "づ") ("de" "で") ("do" "ど")
  78   ("ba" "ば") ("bi" "び") ("bu" "ぶ") ("be" "べ") ("bo" "ぼ")
  79   ("pa" "ぱ") ("pi" "ぴ") ("pu" "ぷ") ("pe" "ぺ") ("po" "ぽ")
  80
  81   ("kya" "きゃ") ("kyu" "きゅ") ("kye" "きぇ") ("kyo" "きょ")
  82   ("sya" "しゃ") ("syu" "しゅ") ("sye" "しぇ") ("syo" "しょ")
  83   ("sha" "しゃ") ("shu" "しゅ") ("she" "しぇ") ("sho" "しょ")
  84   ("cha" "ちゃ") ("chu" "ちゅ") ("che" "ちぇ") ("cho" "ちょ")
  85   ("tya" "ちゃ") ("tyu" "ちゅ") ("tye" "ちぇ") ("tyo" "ちょ")
  86   ("nya" "にゃ") ("nyu" "にゅ") ("nye" "にぇ") ("nyo" "にょ")
  87   ("hya" "ひゃ") ("hyu" "ひゅ") ("hye" "ひぇ") ("hyo" "ひょ")
  88   ("mya" "みゃ") ("myu" "みゅ") ("mye" "みぇ") ("myo" "みょ")
  89   ("rya" "りゃ") ("ryu" "りゅ") ("rye" "りぇ") ("ryo" "りょ")
  90   ("lya" "りゃ") ("lyu" "りゅ") ("lye" "りぇ") ("lyo" "りょ")
  91   ("gya" "ぎゃ") ("gyu" "ぎゅ") ("gye" "ぎぇ") ("gyo" "ぎょ")
  92   ("zya" "じゃ") ("zyu" "じゅ") ("zye" "じぇ") ("zyo" "じょ")
  93   ("jya" "じゃ") ("jyu" "じゅ") ("jye" "じぇ") ("jyo" "じょ")
  94   ( "ja" "じゃ") ( "ju" "じゅ") ( "je" "じぇ") ( "jo" "じょ")
  95   ("bya" "びゃ") ("byu" "びゅ") ("bye" "びぇ") ("byo" "びょ")
  96   ("pya" "ぴゃ") ("pyu" "ぴゅ") ("pye" "ぴぇ") ("pyo" "ぴょ")
  97
  98   ("kwa" "くゎ") ("kwi" "くぃ") ("kwe" "くぇ") ("kwo" "くぉ")
  99   ("tsa" "つぁ") ("tsi" "つぃ") ("tse" "つぇ") ("tso" "つぉ")
 100   ( "fa" "ふぁ") ( "fi" "ふぃ") ( "fe" "ふぇ") ( "fo" "ふぉ")
 101   ("gwa" "ぐゎ") ("gwi" "ぐぃ") ("gwe" "ぐぇ") ("gwo" "ぐぉ")
 102
 103   ("dyi" "でぃ") ("dyu" "どぅ") ("dye" "でぇ") ("dyo" "どぉ")
 104   ("xwi" "うぃ")                ("xwe" "うぇ") ("xwo" "うぉ")
 105
 106   ("shi" "し") ("tyi" "てぃ") ("chi" "ち") ("tsu" "つ") ("ji" "じ")
 107   ("fu"  "ふ")
 108   ("ye" "いぇ")
 109
 110   ("va" "ヴぁ") ("vi" "ヴぃ") ("vu" "ヴ") ("ve" "ヴぇ") ("vo" "ヴぉ")
 111
 112   ("xa"  "ぁ") ("xi"  "ぃ") ("xu"  "ぅ") ("xe"  "ぇ") ("xo"  "ぉ")
 113   ("xtu" "っ") ("xya" "ゃ") ("xyu" "ゅ") ("xyo" "ょ") ("xwa" "ゎ")
 114   ("xka" "ヵ") ("xke" "ヶ"))
 115
 116  (alnum
 117   ("1" "１") ("2" "２") ("3" "３") ("4" "４") ("5" "５")
 118   ("6" "６") ("7" "７") ("8" "８") ("9" "９") ("0" "０")
 119
 120   ("!" "！") ("@" "＠") ("#" "＃") ("$" "＄") ("%" "％")
 121   ("^" "＾") ("&" "＆") ("*" "＊") ("(" "（") (")" "）")
 122   ("-" "ー") ("=" "＝") ("`" "｀") ("\\" "￥") ("|" "｜")
 123   ("_" "＿") ("+" "＋") ("~" "￣") ("[" "「") ("]" "」")
 124   ("{" "｛") ("}" "｝") (":" "：") (";" "；") ("\""  "”")
 125   ("'" "’") ("." "。") ("," "、") ("<" "＜") (">" "＞")
 126   ("?" "？") ("/" "／"))
 127
 128  (symbol
 129   ("z1" "○") ("z!" "●")
 130   ("z2" "▽") ("z@" "▼")
 131   ("z3" "△") ("z#" "▲")
 132   ("z4" "□") ("z$" "■")
 133   ("z5" "◇") ("z%" "◆")
 134   ("z6" "☆") ("z^" "★")
 135   ("z7" "◎") ("z&" "£")
 136   ("z8" "¢") ("z*" "×")
 137   ("z9" "♂") ("z(" "【")
 138   ("z0" "♀") ("z)" "】")
 139   ("z-" "〜") ("z_" "∴")
 140   ("z=" "≠") ("z+" "±")
 141   ("z\\" "＼") ("z|" "‖")
 142   ("z`" "´") ("z~" "¨")
 143
 144   ("zq" "《") ("zQ" "〈")
 145   ("zw" "》") ("zW" "〉")
 146   ("zr" "々") ("zR" "仝")
 147   ("zt" "〆") ("zT" "§")
 148   ("zp" "〒") ("zP" "↑")
 149   ("z[" "『") ("z{" "〔")
 150   ("z]" "』") ("z}" "〕")
 151
 152   ("zs" "ヽ") ("zS" "ヾ")
 153   ("zd" "ゝ") ("zD" "ゞ")
 154   ("zf" "〃") ("zF" "→")
 155   ("zg" "‐") ("zG" "―")
 156   ("zh" "←")
 157   ("zj" "↓")
 158   ("zk" "↑")
 159   ("zl" "→")
 160   ("z;" "゛") ("z:" "゜")
 161   ("z\'" "‘") ("z\"" "“")
 162
 163   ("zx" ":-") ("zX" ":-)")
 164   ("zc" "〇") ("zC" "℃")
 165   ("zv" "※") ("zV" "÷")
 166   ("zb" "°") ("zB" "←")
 167   ("zn" "′") ("zN" "↓")
 168   ("zm" "″") ("zM" "〓")
 169   ("z," "‥") ("z<" "≦")
 170   ("z." "…") ("z>" "≧")
 171   ("z/" "・") ("z?" "∞"))
 172
 173  (hatsuon
 174   ("n" "n"))
 175
 176  (sokuon
 177   ("kk")
 178   ("ss")
 179   ("tt")
 180   ("hh")
 181   ("mm")
 182   ("rr")
 183   ("ll")
 184   ("ww")
 185   ("gg")
 186   ("zz")
 187   ("dd")
 188   ("bb")
 189   ("pp")
 190   ("cc")
 191   ("jj")
 192   ("ff"))
 193
 194  (henkan
 195   (convert))
 196
 197  (kakutei
 198   (commit))
 199
 200  (backspace
 201   ((BackSpace)))
 202
 203  (edit
 204   ((Delete) (delete @+))
 205   ((BackSpace) (delete @-))
 206   ((Left) (move @-))
 207   ((Right) (move @+)))
 208
 209  (henkan-edit
 210   ((Left) (move @[))
 211   ((Right) (move @]))
 212   ((S-Left) (call libmimx-anthy resize t))
 213   ((S-Right) (call libmimx-anthy resize nil)))
 214
 215  (change-candidate
 216   ((C-A) (select @<))
 217   ((C-P) (select @[))
 218   ((C-B) (select @-))
 219   ((Up) (select @-))
 220   (" " (select @+))
 221   ((C-F) (select @+))
 222   ((Down) (select @+))
 223   ((C-N) (select @]))
 224   ((C-E) (select @>)))
 225  )
 226
 227 (module
 228  (libmimx-anthy convert resize change commit init fini))
 229
 230 (state
 231  (init
 232   "aあ"
 233   (starter (pushback 1) (shift pre-henkan)))
 234
 235  (pre-henkan
 236   (ordinary)
 237   (alnum)
 238   (symbol)
 239   (hatsuon (shift hatsuon))
 240   (sokuon (insert "っ") (pushback 1))
 241   (henkan (call libmimx-anthy convert) (shift henkan))
 242   (kakutei (shift init))
 243   (backspace (pushback 1) (shift edit))
 244   (nil (shift fail)))
 245
 246  (hatsuon
 247   (hatsuon (delete @-) (delete @-) (insert "ん") (shift pre-henkan))
 248   (nil (delete @-) (insert "ん") (shift pre-henkan)))
 249
 250  (henkan
 251   "漢"
 252   (t (set K @@) (sub K 1))
 253   (henkan-edit)
 254   (change-candidate (call libmimx-anthy change) (show) (shift henkan2))
 255   (kakutei (call libmimx-anthy commit) (shift init))
 256   (backspace (undo K))
 257   (nil (call libmimx-anthy commit) (shift init)))
 258
 259  (henkan2
 260   "漢"
 261   (change-candidate (call libmimx-anthy change) (show))
 262   (backspace (undo K))
 263   (nil (hide) (shift henkan)))
 264
 265  (fail
 266   (backspace (undo))
 267   (starter (pushback 1) (shift pre-henkan))
 268   (nil (shift edit)))
 269
 270  (edit
 271   (edit (set C @0) (< C 0 ((shift init))))
 272   (starter (pushback 1) (shift pre-henkan))
 273   (henkan (call libmimx-anthy convert) (shift henkan))
 274   (kakutei (shift init))))
 275
 276 ;; Local Variables:
 277 ;; mode: lisp
 278 ;; coding: utf-8
 279 ;; End: