Emacsのdiredからクイックルックを開く

macosxのleopardから追加された、クイックルック機能というのがあります。
ファイルやアイコンを選択してスペースキーで、アプリケーションを起動せずに、ファイルの中身を確認するというものです。
動画やpdfや画像なんかを確認するのに便利です。

で、先日Quoraを眺めてたら、クイックルックをemacsのdiredから起動する設定を見つけまして、やってみたら結構よかったので紹介します
スペースキーを割り当ててるので、Finderでの操作と同じ感じで開けます

(defun do-ql-dwim()
  (interactive)
  (let* ((proc (get-buffer-process "*Async Shell Command*")))
    (if proc
	(kill-process proc)
      (dired-do-async-shell-command
       "qlmanage -p 2>/dev/null" ""
       (dired-get-marked-files))
      ))
  )

(add-hook 'dired-mode-hook (lambda ()
			     (define-key dired-mode-map " " 'do-ql-dwim)
			     ))

参考)
What are the advantages of Emacs for Mac OS X users?
http://www.quora.com/Emacs/What-are-the-advantages-of-Emacs-for-Mac-OS-X-users