LionでSafariを6に上げたら、RSSフィードを扱えなくなっていた。Mountain LionのSafari 6もやはり同じだった。RSSのURLを開くと、それなりのスタイルを当ててブラウザ内に表示してくれるのが便利だったんだけど、外部アプリケーションが呼び出されてしまう。そして、大方のフィードハンドラアプリは「購読」するかを聞いてきてうっとうしい。その場でフィードの中身を見たいだけなのに。
さらにうっとうしいのは、私の環境の場合はなぜかThunderbirdが起動されることだった。というのも、Thunderbirdは確かにフィードリーダ機能を持つはずなんだが、Safariから起動されても何も起きないのだ。
というわけでフィードリーダを変更する必要があるのだが、Safariの環境設定画面からはRSS タブが消えていて、フィードリーダを選択することができない。困った！
そこでRCDefaultApp（MacUpdate, CNET Download）ですよ。こいつは各種ファイルタイプ、URLスキーム、MIMEタイプなどに対応するアプリケーションを個別選択できるシステム環境変数ペインで、こいつでRSSハンドラを変更すればOK。
とりあえず安定のFirefoxにした。Firefoxはフィードの内容を表示しつつ、そこから一発で他のアプリやGoogle Readerなどのサービスで「購読」できるようになっていて完璧だ。
SafariからRSS対応が削られたのは、「通知」への移行を見ているんだろうけども、Lionは通知センターがないので中途半端で困るよなあ。
git mergetoolに使えるツールとして、デフォルトで"emerge"というのが用意されており、Emacs使いはこれを使えばEmergeでマージが行えるわけだが、難点もある。ひとつは、新たなEmacsインスタンスを起動してしまうということだ。起動に無駄な時間が掛かるし、マージにあたって既存のセッションで開いているファイルをその場で参照できないのは不便だろう。もっとも、これはemacsclientを使うようにして、Emergeの呼び出し方を少し直せば済む。もうひとつは、EmergeではなくよりモダンなEdiffを使いたいということだが、これは思ったほど簡単ではないのでわざわざこうして記事を書くことになった。
というのも、Emergeにはemerge-files-with-ancestor-commandという便利なものがあり、「マージが終わったらマージ結果を保存して即終了」ということが一発で出来てしまうのだが、Ediffの方にはそういうものがない。こいつはマージを終了してもろくに片付けもせず、全部ほったらかしという行儀の悪さだ。
そういうわけで、まずはEdiffのediff-merge-{files,buffers}が終わったら起動前のウィンドウ設定を復元するようにしてみる。これは比較的簡単。[2013-01-23改訂:フックにappendフラグを指定]
(eval-after-load "ediff"
'(progn
; save and restore window configuration
(defvar my-ediff-saved-window-configuration nil "Saved window configuration for ediff")
(defun my-ediff-save-window-configuration ()
(setq my-ediff-saved-window-configuration (current-window-configuration)))
(add-hook 'ediff-before-setup-hook 'my-ediff-save-window-configuration)
(defun my-ediff-restore-window-configuration ()
(set-window-configuration my-ediff-saved-window-configuration))
(add-hook 'ediff-suspend-hook 'my-ediff-restore-window-configuration t)
(add-hook 'ediff-quit-hook 'my-ediff-restore-window-configuration t))) |
(eval-after-load "ediff"
'(progn
; save and restore window configuration
(defvar my-ediff-saved-window-configuration nil "Saved window configuration for ediff")
(defun my-ediff-save-window-configuration ()
(setq my-ediff-saved-window-configuration (current-window-configuration)))
(add-hook 'ediff-before-setup-hook 'my-ediff-save-window-configuration)
(defun my-ediff-restore-window-configuration ()
(set-window-configuration my-ediff-saved-window-configuration))
(add-hook 'ediff-suspend-hook 'my-ediff-restore-window-configuration t)
(add-hook 'ediff-quit-hook 'my-ediff-restore-window-configuration t)))
次に、Ediffが新たに開いたファイルのバッファをマージ終了時に自動的に閉じる、および、マージ終了時に自動的にセーブしつつEmacsフレームを閉じる「バッチ版ediff-merge-files-with-ancestor」を加える。[2013-01-23改訂:ediff-filesに影響を与えるなどおかしかったので大幅修正; 続きはGitHubで]
(eval-after-load "ediff"
'(progn
; batch mode (for use from git mergetool etc.)
(ediff-defvar-local my-ediff-batch-mode-p nil "True if in batch mode")
(ediff-defvar-local my-ediff-close-on-quit nil "True if the buffer should be closed on quit.")
(defun my-ediff-batch-mode (&optional mode)
(ediff-with-current-buffer ediff-buffer-A
(case mode
(set
(setq my-ediff-batch-mode-p t))
(unset
(prog1 my-ediff-batch-mode-p
(setq my-ediff-batch-mode-p nil)))
(t
my-ediff-batch-mode-p))))
(defadvice ediff-find-file (around
mark-newly-opened-buffers
(file-var buffer-name &optional last-dir hooks-var)
activate)
(let* ((file (symbol-value file-var))
(existing-p (and find-file-existing-other-name
(find-buffer-visiting file))))
ad-do-it
(or existing-p
(ediff-with-current-buffer (symbol-value buffer-name)
(setq my-ediff-close-on-quit t)))))
(defun my-ediff-save-merge ()
(if (my-ediff-batch-mode)
(let ((file ediff-merge-store-file))
(if file
(ediff-with-current-buffer ediff-buffer-C
(set-visited-file-name file t)
(save-buffer))))
(ediff-maybe-save-and-delete-merge)))
(remove-hook 'ediff-quit-merge-hook 'ediff-maybe-save-and-delete-merge)
(add-hook 'ediff-quit-merge-hook 'my-ediff-save-merge)
(defadvice ediff-cleanup-mess (around
support-batch-mode
()
activate)
(let ((batch-p (my-ediff-batch-mode 'unset))
(buffers (list ediff-buffer-A ediff-buffer-B ediff-ancestor-buffer))
(buffer-C ediff-buffer-C))
ad-do-it
(dolist (buffer buffers)
(ediff-with-current-buffer buffer
(and my-ediff-close-on-quit (kill-buffer))))
(when batch-p
(ediff-kill-buffer-carefully buffer-C)
(delete-frame))))
(defun ediff-merge-files-with-ancestor-in-batch-mode
(file-A file-B file-ancestor &optional startup-hooks merge-buffer-file)
(ediff-merge-files-with-ancestor
file-A file-B file-ancestor
(cons (function (lambda () (my-ediff-batch-mode 'set))) startup-hooks)
merge-buffer-file))))
(autoload 'ediff-merge-files-with-ancestor-in-batch-mode "ediff") |
(eval-after-load "ediff"
'(progn
; batch mode (for use from git mergetool etc.)
(ediff-defvar-local my-ediff-batch-mode-p nil "True if in batch mode")
(ediff-defvar-local my-ediff-close-on-quit nil "True if the buffer should be closed on quit.")
(defun my-ediff-batch-mode (&optional mode)
(ediff-with-current-buffer ediff-buffer-A
(case mode
(set
(setq my-ediff-batch-mode-p t))
(unset
(prog1 my-ediff-batch-mode-p
(setq my-ediff-batch-mode-p nil)))
(t
my-ediff-batch-mode-p))))
(defadvice ediff-find-file (around
mark-newly-opened-buffers
(file-var buffer-name &optional last-dir hooks-var)
activate)
(let* ((file (symbol-value file-var))
(existing-p (and find-file-existing-other-name
(find-buffer-visiting file))))
ad-do-it
(or existing-p
(ediff-with-current-buffer (symbol-value buffer-name)
(setq my-ediff-close-on-quit t)))))
(defun my-ediff-save-merge ()
(if (my-ediff-batch-mode)
(let ((file ediff-merge-store-file))
(if file
(ediff-with-current-buffer ediff-buffer-C
(set-visited-file-name file t)
(save-buffer))))
(ediff-maybe-save-and-delete-merge)))
(remove-hook 'ediff-quit-merge-hook 'ediff-maybe-save-and-delete-merge)
(add-hook 'ediff-quit-merge-hook 'my-ediff-save-merge)
(defadvice ediff-cleanup-mess (around
support-batch-mode
()
activate)
(let ((batch-p (my-ediff-batch-mode 'unset))
(buffers (list ediff-buffer-A ediff-buffer-B ediff-ancestor-buffer))
(buffer-C ediff-buffer-C))
ad-do-it
(dolist (buffer buffers)
(ediff-with-current-buffer buffer
(and my-ediff-close-on-quit (kill-buffer))))
(when batch-p
(ediff-kill-buffer-carefully buffer-C)
(delete-frame))))
(defun ediff-merge-files-with-ancestor-in-batch-mode
(file-A file-B file-ancestor &optional startup-hooks merge-buffer-file)
(ediff-merge-files-with-ancestor
file-A file-B file-ancestor
(cons (function (lambda () (my-ediff-batch-mode 'set))) startup-hooks)
merge-buffer-file))))
(autoload 'ediff-merge-files-with-ancestor-in-batch-mode "ediff")
これで、~/.gitconfigにこんな風に書けばgit mergetoolで瞬時にEdiffが起動し、マージが済んだらq, yで即コマンドラインに帰ってくる。既存Emacsセッションにゴミバッファも残らない。
[merge]
tool = ediff
[mergetool "ediff"]
cmd = emacsclient -a \"\" -t -e \"(ediff-merge-files-with-ancestor-in-batch-mode \\\"$LOCAL\\\" \\\"$REMOTE\\\" \\\"$BASE\\\" nil \\\"$MERGED\\\")\" |
[merge]
tool = ediff
[mergetool "ediff"]
cmd = emacsclient -a \"\" -t -e \"(ediff-merge-files-with-ancestor-in-batch-mode \\\"$LOCAL\\\" \\\"$REMOTE\\\" \\\"$BASE\\\" nil \\\"$MERGED\\\")\"
あとは、たとえばラッパースクリプトを用意して、「<<<<<<<」などの行が残っていたらマージ失敗とするとか、好きに改良すると良い。
参考記事
Sony Ericsson MW600から二年余、Sony Mobile Communicationsから待望の新BluetoothレシーバMW1が国内発売となったのでさっそく入手した。
開封してみると、付属品がやたら多い。MW1の充電I/FはMW600と同じmicroUSBだが、AC電源アダプタに加えてUSBケーブルも入っている。また、microSDプレーヤ機能があるらしく、4GBのmicroSDHCカードとmicroSDカードリーダライタが付属する。さらに、きしめんケーブルの密閉型ステレオイヤホンとそれ用のクリップ、スペアイヤパッド3種。正直レシーバ本体だけで安く売ってほしいが、Sonyは高価格帯で勝負するしかないんだろう。
A2DPの対応コーデックはSBCのみと明記されており、最近対応機器が増えてきているAACやapt-Xには非対応。ただ、ファームウェア書き換え機能があるので将来機能追加されることもあるのかもしれない。
国内版ということもあってFMラジオは日本の周波数帯をカバーしており、日本語の曲名表示も問題ない。AT-PHA05BTと違ってちゃんとコバイヤ語やドイツ語が表示できる。なお液晶は二行表示で、特に日本語フォントはあまり見やすくはないが、設定で天地を切り替えられるのは気が利いている。
サイズについては、体積的にも重さ的にも薄さ・長さ的にもAT-PHA05BTよりコンパクト。見た目もスマートで好印象だ。MW1は単体でMP3プレーヤーとして機能することもあって、「これなに？」と訊かれづらい、あるいは訊かれても答えやすいのは利点と言える。
さて、MW600の不満点として反応の悪い静電式ボリュームスライダーがあったが、MW1ではカーブの付いた押しボタンになっており、ふつうに使いやすい。REW/PLAY/FFボタンも凹凸がはっきりしていて、指先の感覚で容易に識別でき、快適に操作できる。なお、ホールドスイッチがないのは相変わらずだが、各ボタンを指で押したときのクリック感から分かるように、適度な遊びと抵抗により鞄と少し擦れたくらいでは誤作動しない。これならホールド機能は不要かもしれない。
MW600のもう一つの不満点といえば、挟む気があるのか分からないへなちょこクリップだった。しかし、これもMW1では大きく改善されている。見た目は薄くスマートだが、幅が広く、バネも強く、挟み込み部も十分に凹凸が設けられているため、点で支えるがためにそこから回転して外れてしまうということがない。太い線（つまり面）で支えて、本体とクリップの一体感が保たれる構造だ。欠点としては、バネのつまみのちょうど反対側にアクションボタンが配置されているため、クリップを開く際に誤って押してしまいがちでやや煩わしい。もっともこれは慣れで解消するか。
音の面では、低音の迫力・臨場感ではやはりAT-PHA05BTに劣るが、主なソースはiPhone 4で雑踏での利用が多いので、率直に言って大差はない。それより、ホワイトノイズが少ないことに感心した。音飛びについても、使った限りではMW600よりは少なく、安定していると思う。
細かいところをいくつか。まず、MW600やAT-PHA05BTと違い充電しながらでも使える。電源が確保できる場所ではうれしいかもしれない。また、ペアリングできるのが2台のみになった。これはちょっと少ないと思うが、きっと3台以上も持ち歩くジャンキーは悔い改めるべきなのだろう。通話端末は常時ペアリングするとして、その日視聴に使いたい端末を選んでペアリングして出かけると。さらに、時計が付いたのは少しうれしい。消灯状態からも「戻る」ボタンで点灯する。また、この「戻る」ボタンのおかげでメニュー操作が（MW600と比べて）だいぶ楽になった。
総じて見ると、これはバランスの良い製品だと思う。デザインと使い勝手が洗練されているので、いつも持ち歩きたくなる。望んだらきりはないが、機能的に不足に思う点は少なく、既存製品から完全に乗り替えられる。
ところで、Sony Mobileのサイトには7月21日発売とあるが、すでに量販店はじめ販売店には出荷されていて購入できる。自分は
い〜でじ!!で即日出荷してもらい翌日午前中に受け取りました。今見たらAmazonも入荷しているみたい。
Android連携についてはまた改めて。
