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

diff --git a/ja-anthy.mim b/ja-anthy.mim
index d46e278..98cbc3e 100644
--- a/ja-anthy.mim
+++ b/ja-anthy.mim
@@ -20,35 +20,38 @@
 ;; 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/.
-
-(description
- "Japanese input method using Anthy as a background conversion program"
- "Typed roma-ji is at first converted to Hiragana,
+(input-method ja anthy)
+
+(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
+Select Hiragana or Katakana"
   hiragana
   hiragana katakana)
- (zen-han ("Zenkaku or Hankaku")
-	  zenkaku
-	  hankaku))
+ (zen-han
+  "Zenkaku or Hankaku"
+  zenkaku
+  hankaku))
 
 (command
  (henkan
-  "Convert" "Convert Hiragana to Kanji"
+  "Convert
+Convert Hiragana to Kanji"
   (\ )
   (Henkan)))
 
 (title "aあ")
+
 (map
  (starter
   ("a") ("i") ("u") ("e") ("o")
@@ -193,8 +196,8 @@ to Kanji-Hiragana mixed sequence.")
   ("ff"))
 
  (henkan
-  ((Henkan))
-  (" "))
+  (" ")
+  ((Henkan)))
 
  (kakutei
   ((Return))
@@ -232,6 +235,7 @@ to Kanji-Hiragana mixed sequence.")
 
 (state
  (init
+  "aあ"
   (starter (pushback 1) (shift pre-henkan)))
 
  (pre-henkan
@@ -251,14 +255,17 @@ to Kanji-Hiragana mixed sequence.")
 
  (henkan
   "æ¼¢"
+  (t (set K @@) (sub K 1))
   (henkan-edit)
   (change-candidate (call libmimx-anthy change) (show) (shift henkan2))
   (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