TDDの勘所とTDD支援超簡易Emacs Lisp - aikeの日記 が面白いなーと思ったので自分用に改造してみた。 モードラインの色を変えるようにしただけだけど。 ;; C-c m でTDDのモード切替え (defvar tdd-bgcolor-alist '(("Think" ."snow") ("Red" ."#ff4444") ("Green" ."#44dd44") ("Refactoring"."#ffaa44"))) (defvar tdd-bgcolor-mode 3) (defvar tdd-bgcolor-mode-name "") (let ( (cell (or (memq 'mode-line-position mode-line-format) (memq 'mode-line-buffer-identification mode-line-format)))