Windows の関連付けを元にファイルを開く

以下の設定を追加すれば、Dired で z したときに関連付けられたソフトで開くことができる。
mp3 を z したときに foobar2000 で開いたりしてくれて快適(・∀・)
dired-fiber-find 関数を下のに置き替えれば、ディレクトリを開くときにエクプローラではなく MDIE で開くようになるはずなんだけど、たぶんパスの問題でエラーが出るのでとりあえずコメントアウトしておく。

;;; Windows の関連付けを元にファイルを開く
(add-hook 'dired-mode-hook
          (lambda ()
            (define-key dired-mode-map
              "z" 'dired-fiber-find)))
(defun dired-fiber-find ()
  (interactive)
  (let ((file (dired-get-filename)))
    (if (file-directory-p file)
        (start-process "explorer" "diredfiber" "explorer.exe"
                       (unix-to-dos-filename file))
      (start-process "fiber" "diredfiber" "fiber.exe" file))))
;; MIDE 使おうとするとおそらくパスが問題でエラーになる
;; (defun dired-fiber-find ()
;;   (interactive)
;;   (let ((file (dired-get-filename)))
;;     (if (file-directory-p file)
;;         (if arg
;;             (start-process "explorer" "filer" "D:/ツール/mdie0253/MDIE.exe"
;;                            (unix-to-dos-filename file))
;;           (start-process "explorer" "diredfiber" "explorer.exe"
;;                          (unix-to-dos-filename file))
;;           )
;;       (if arg
;;           (start-process "explorer" "diredfiber" "explorer.exe"
;;                          (unix-to-dos-filename (directory-file-name
;;                                                 dired-directory)))
;;         (start-process "fiber" "diredfiber" "fiber.exe" file)
;;         )
;;       )))

参考

http://www.bookshelf.jp/soft/meadow_25.html#SEC277