2009年2月11日水曜日

Emacsでanthy.elのキーバインド変更

mizunoさんところで ATOKっぽいローマ字バインドが欲しがっているみたいなのでやっってみた。
 以下を ~/.emacs に追記。

;anthy.el ローマ字変換テーブル再定義&キーバインド再定義
(setq anthy-rkmap-keybind
'(
;; \C-p
(("hiragana" . 16) . "katakana")
(("katakana" . 16) . "hiragana")
;; q
(("hiragana" . 113) . "katakana")
(("katakana" . 113) . "hiragana")
;; \C-j
(("alphabet" . 10) . "hiragana")
(("walphabet" . 10) . "hiragana")
;; \C-q
(("hiragana" . 17) . "hankaku_kana")
(("hankaku_kana" . 17) . "hiragana")
)
)


;;Anthyキーバインド設定
(setq anthy-wide-space " ")
(anthy-change-hiragana-map "la" "ぁ")
(anthy-change-hiragana-map "li" "ぃ")
(anthy-change-hiragana-map "lu" "ぅ")
(anthy-change-hiragana-map "le" "ぇ")
(anthy-change-hiragana-map "lo" "ぉ")
(anthy-change-hiragana-map "ltu" "っ")
(anthy-change-hiragana-map "zz" "っ")
(anthy-change-hiragana-map "lya" "ゃ")
(anthy-change-hiragana-map "lyu" "ゅ")
(anthy-change-hiragana-map "lyo" "ょ")
(anthy-change-hiragana-map "lwa" "ゎ")

な感じで。
とはいえSKKを使うようになってからAnthyは使っていないので突っこまれても困るけど。
anthy.el自身を直接いじるのはスマートではないのでこんな感じでどーでせう。

0 件のコメント: