;; 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
;; 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")
("ff"))
(henkan
- ((Henkan))
- (" "))
+ (convert))
(kakutei
- ((Return))
- ((Linefeed)))
+ (commit))
(backspace
((BackSpace)))
((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 @[))
(state
(init
+ "aあ"
(starter (pushback 1) (shift pre-henkan)))
(pre-henkan
(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