>>604
あーやっぱり？じゃあこれでどうか。
anthy がどういう状態を持っているかよくわからんから
なんかよくわからんとこでよくわからんことになりそうだけど。

(define hack
(lambda (ac key state)
(let ((alnum (anthy-context-alnum ac))
(alnum-type (anthy-context-alnum-type ac)))
(anthy-context-set-alnum! ac #t)
(anthy-context-set-alnum-type! ac anthy-type-halfwidth-alnum)
(anthy-press-key-handler ac key state)
(anthy-context-set-alnum! ac alnum)
(anthy-context-set-alnum-type! ac alnum-type))))

(im-set-key-press-handler! (retrieve-im 'anthy)
(lambda (ac key state)
(if (ichar-upper-case? key)
(hack ac key state)
(anthy-press-key-handler ac key state))))

>>606
ルールってのがどういうもんかわからんけど、こーいうんじゃだめ？

((("x" "z" "w") . ("z" "x")) ("ｗ" "ｗ" "w"))
((("x" "s" "a") . ("s" "x")) ("ぁ" "ァ" "ｧ"))

# ("z" "x") はなんで ("x" "z") じゃないんだろう。逆になるとはなあ。