2008年12月24日水曜日

keisen-minor-modeを作ってみた

keisen.elはたまに使うけど、いつでもキーにバインドしておきたい機能という訳ではない.
なので、そのモードにした時だけ罫線用キーバインドがアクティブになるようなマイナーモードを作った.

多分似たものがあると思うんだけど、マイナーモードを作る練習になると思ったので作ってみた.
easy-mmodeはほんとにeasyでした.

(autoload 'keisen-up-move "keisen" nil t)
(autoload 'keisen-down-move "keisen" nil t)
(autoload 'keisen-left-move "keisen" nil t)
(autoload 'keisen-right-move "keisen" nil t)

(easy-mmode-define-minor-mode keisen-minor-mode
                  "keisen"
                  nil
                  " KEISEN"
                  '(([C-right] . keisen-right-move)
                ([C-left] . keisen-left-move)
                ([C-up] . keisen-up-move)
                ([C-down] . keisen-down-move))
                  )
(provide 'keisen-minor)



0 件のコメント:

コメントを投稿