memo:diredからopen

Finderはやっぱり使いにくいのでdiredに頼りがちになります。
http://www.bookshelf.jp/soft/meadow_25.html#SEC281
をmac用に変更しました。

;;--------------------------------------------------------
;;; Dired で Windows に関連付けられたファイルを起動する。
;;;http://uenox.infoseek.livedoor.com/meadow/
;;--------------------------------------------------------
(defun uenox-dired-winstart ()
  "Type '\\[uenox-dired-winstart]': win-start the current line's file."
  (interactive)
  (if (eq major-mode 'dired-mode)
      (let ((fname (dired-get-filename)))
		(call-process-shell-command (concat "open \"" fname "\"")) ;;macなのでopenに変更
        (message "opening... %s" fname)
)))
;;; dired のキー割り当て追加
(add-hook 'dired-mode-hook
          (lambda ()
            (define-key dired-mode-map "z" 'uenox-dired-winstart))) 

快適。