X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ja-anthy.mim;h=dc61514b4b80c787d8bdd519d433efbf3b04d229;hb=233b64fbea6277e20184f6c10c209445751f7c83;hp=d46e278e62f55fe7902f6601b8c823f475e0bebe;hpb=7ea0bf3beca3306d7604996ec295f992282e6284;p=m17n%2Fm17n-db.git

diff --git a/ja-anthy.mim b/ja-anthy.mim
index d46e278..dc61514 100644
--- a/ja-anthy.mim
+++ b/ja-anthy.mim
@@ -1,5 +1,5 @@
 ;; ja-anthy.mim -- Japanese input method using Anthy as a conversion server.
-;; Copyright (C) 2003, 2004
+;; Copyright (C) 2003, 2004, 2005, 2006
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H15PRO112
 
@@ -20,35 +20,34 @@
 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-;;; <li> ja-anthy.mim
-;;;
-;;; Japanese input method using Anthy as a background conversion
-;;; program.  It uses the loadable module libmimx-anthy.so to
-;;; communicate with Anthy.  For more detail about Anthy, see the page
-;;; http://sourceforge.jp/projects/anthy/.
+(input-method ja anthy)
 
-(description
- "Japanese input method using Anthy as a background conversion program"
- "Typed roma-ji is at first converted to Hiragana,
+(description "Japanese input method with Anthy as a kana-kanji converter.
+Typed roma-ji is at first converted to Hiragana,
 and Space key converts the Hiragana sequences
-to Kanji-Hiragana mixed sequence.")
+to Kanji-Hiragana mixed sequence.
+
+This input method uses the loadable module libmimx-anthy.so to
+communicate with Anthy.  For more detail about Anthy, see the page
+  <http://sourceforge.jp/projects/anthy/>.
+")
 
 (variable
  (input-mode 
-  ("Hiragana or Katakana" "Select Hiragana or Katakana")
+  "Hiragana or Katakana (not yet implemented)
+Select Hiragana or Katakana"
   hiragana
   hiragana katakana)
- (zen-han ("Zenkaku or Hankaku")
-	  zenkaku
-	  hankaku))
+ (zen-han
+  "Zenkaku or Hankaku (not yet implemented)"
+  zenkaku
+  hankaku))
 
 (command
- (henkan
-  "Convert" "Convert Hiragana to Kanji"
-  (\ )
-  (Henkan)))
+ (convert) (commit))
 
 (title "aあ")
+
 (map
  (starter
   ("a") ("i") ("u") ("e") ("o")
@@ -193,12 +192,10 @@ to Kanji-Hiragana mixed sequence.")
   ("ff"))
 
  (henkan
-  ((Henkan))
-  (" "))
+  (convert))
 
  (kakutei
-  ((Return))
-  ((Linefeed)))
+  (commit))
 
  (backspace
   ((BackSpace)))
@@ -215,6 +212,18 @@ to Kanji-Hiragana mixed sequence.")
   ((S-Left) (call libmimx-anthy resize t))
   ((S-Right) (call libmimx-anthy resize nil)))
 
+ (choose
+  ("1" (select 0))
+  ("2" (select 1))
+  ("3" (select 2))
+  ("4" (select 3))
+  ("5" (select 4))
+  ("6" (select 5))
+  ("7" (select 6))
+  ("8" (select 7))
+  ("9" (select 8))
+  ("0" (select 9)))
+
  (change-candidate
   ((C-A) (select @<))
   ((C-P) (select @[))
@@ -232,6 +241,7 @@ to Kanji-Hiragana mixed sequence.")
 
 (state
  (init
+  "aあ"
   (starter (pushback 1) (shift pre-henkan)))
 
  (pre-henkan
@@ -251,14 +261,18 @@ to Kanji-Hiragana mixed sequence.")
 
  (henkan
   "æ¼¢"
+  (t (set K @@) (sub K 1))
   (henkan-edit)
   (change-candidate (call libmimx-anthy change) (show) (shift henkan2))
+  (choose (hide) (shift init))
   (kakutei (call libmimx-anthy commit) (shift init))
-  (nil (shift init)))
+  (backspace (undo K))
+  (nil (call libmimx-anthy commit) (shift init)))
 
  (henkan2
   "æ¼¢"
   (change-candidate (call libmimx-anthy change) (show))
+  (backspace (undo K))
   (nil (hide) (shift henkan)))
 
  (fail