鬼軍曹.el を少しだけ饒舌に

id:MIZUNO:20110222:1298392472 に触発されて、pos-tip 化に加えて罵倒までしてくれるようにいじってみた。

.emacs の drill-instructor 用設定に、

(setq drill-instructor-cuss-file "~/hartman.txt")
(setq drill-instructor-alert-expression 'pos-tip)

とかすると、pos-tip が有効にされていれば pos-tip で罵倒してくれるようになる。サンプルも一緒においたけど、別途 fortune 形式 (% 区切り) の辞書ファイルが必要なので、そこは自分色に染めるということで。

誰得というかほぼ私信という感じだけど気にしない。