xyzzyで(」・ω・)」うー！(／・ω・)／にゃー！

kaoriyaさんところのVimに這いよる混沌が楽しそうだったのでパクって参考にしてxyzzyで動作するようにしてみました。
実行させると、下の図のようにカーソルの移動ごとにモードラインが変化します。




パッケージ化などしていないので、遊び終わったら一番下のS式を評価して片付けてください。

	(let ((i 0))
	(unless (get 'mode-line-format 'save)
	(setf (get 'mode-line-format 'save) mode-line-format))
	(defun u-nya- ()
	(let ((pattern '("(」・ω・)」うー！"
	"(／・ω・)／にゃー！"
	"(」・ω・)」うー！"
	"(／・ω・)／にゃー！"
	"(」・ω・)」うー！"
	"(／・ω・)／にゃー！"
	"Let's＼(・ω・)／にゃー！")
	))
	(setq mode-line-format (concat (get 'mode-line-format 'save) " " (nth i pattern)))
	(setq i (rem (1+ i) (length pattern)))))
	(add-hook '*post-command-hook* 'u-nya-))
	;; お片づけ
	(progn
	(delete-hook '*post-command-hook* 'u-nya-)
	(setf mode-line-format (get 'mode-line-format 'save)))

view raw gistfile1.lisp hosted with ❤ by GitHub

てか、半年ぶりの更新がこれだよ！

追記 (2012/04/20)

youzさんがtimer版を作ってくれました。BPM=145くらいに設定するとイイ感じです。