【emacs】指定した拡張子のファイルをOSで関連づけられたプログラムで開く

os-open-file.el

;; OS で直接開きたいファイルかどうかを判定する
(defun os-open-file-p (file)
  (if (file-regular-p file)
      (let ((ext (file-name-extension file))
            ;; OS で起動したいファイルの拡張子一覧
            (os-open-file-suffixes '("doc" "docx"
                                     "xls" "xlsx"
                                     "ppt" "pptx"
                                     "mdb" "mdbx"
                                     "vsd" "vdx" "vsdx"
                                     "mpp"
                                     "pdf"
                                     "odt" "ott"
                                     "odg" "otg"
                                     "odp" "otp"
                                     "ods" "ots"
                                     "odf"
                                     "ttf" "otf" "eot" "woff"
                                     "jpg" "jpeg" "gif" "png" "svg" "flv" "mp4")))
        (if (and ext
                 (member (downcase ext) os-open-file-suffixes))
            t))))
;; dired の f に xdg-open を当てる
(defadvice find-file (around ad-find-file-for-os-open-command activate)
  (let ((file (ad-get-arg 0))(process-connection-type nil))
    (cond ((os-open-file-p file)
           (start-process "os-open-command" nil "xdg-open" file))
          (t
           ad-do-it))))