(INPUT_METHOD): Add zh-cangjie.mim, zh-quick.mim,

[m17n/m17n-db.git] / ja-anthy.mim

diff --git a/ja-anthy.mim b/ja-anthy.mim
index d46e278..98cbc3e 100644 (file)
--- 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