Emacs 関連の設定変更(2 件)

1. Shell バッファでの ANSI color code への対応

これまで Shell バッファでは、ANSI color code を削除して出力する手法を適用していたが、Debian(lenny) の cal コマンド等、ANSI color code へ対応した方がより使い勝手がよいものもあるため、必要に応じて ANSI color code に対応できるように設定を変更した。
ansi-color-for-comint-mode の実行により、設定を切り替えるというものである。

(1) ~/.eamacs への設定の追加

;; enable ANSI color codes on Shell mode
(defun ansi-color-for-comint-mode ()
  "Toggle value of ansi-color-for-comint-mode between nil and t."
  (interactive)
  (require 'ansi-color)
  (setq ansi-color-for-comint-mode (null ansi-color-for-comint-mode)))

(2) ANSI color code を取り除いていた時の設定
　col または、下記スクリプトをフィルタとして使用し、該当するコードを削除していた。
　(注) ^[ は Ctrl + [ のバイナリコード

# delete ANSI color code
sed 's/^[\[[0-9;]\+m//g' ${1:--}

2. Mew からの Firefox の起動

メール・クライントとして Mew を使用している。また、必要に応じてメッセージ内の URL を Firefox で表示している(正確には以前は機能していた)。
久しぶりに実行してみると、Firefox が起動できないという問題が発生した。
使用頻度はそれほど高くはないが、取り敢えず設定を変更し、正常に起動できるようにした。
(動作確認は、Mew-5.2 on Emacs-22 and Emacs-23 で実施。)

(1) mew-firefox スクリプトの作成
　(注) -new-tab を -new-window に変更すると、新しいウィンドウに表示する。

exec /usr/local/firefox/firefox -new-tab $1

(2) ~/.mew.el への設定の追加
　(注) B の押下、または mouse の中ボタンのクリックにより、Firefox を起動する。

;; browse specified URL (with Firefox)
(setq browse-url-browser-function 'browse-url-firefox)
(setq browse-url-firefox-program "mew-firefox")
(define-key mew-message-mode-map "B" 'browse-url-at-point)
(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)