exopen-mode.el

   1 ;;; exopen-mode.el
   2
   3 ;; Copyright (C) 2013  j8takagi
   4
   5 ;; Author: j8takagi <j8takagi@nifty.com>
   6 ;; Keywords: Emacs 外部プログラム
   7
   8 ;; This file is free software; you can redistribute it and/or modify
   9 ;; it under the terms of the GNU General Public License as published by
  10 ;; the Free Software Foundation; either version 2, or (at your option)
  11 ;; any later version.
  12 ;;
  13 ;; This file is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 ;; GNU General Public License for more details.
  17 ;;
  18 ;; You should have received a copy of the GNU General Public License
  19 ;; along with GNU Emacs; see the file COPYING. If not, write to the
  20 ;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
  21 ;; Boston, MA 02110-1301 USA
  22
  23 ;;; Commentary:
  24
  25 ;; Emacsからの外部プログラム呼び出しを支援するマイナーモードです。
  26
  27 ;; ■動作環境
  28 ;; Linux、Mac OS X、WindowsのいずれかのWindowシステム上
  29
  30 ;; ■インストール方法
  31 ;; 1. LOAD-PATHで指定されているディレクトリにこのファイルをコピーする
  32 ;;
  33 ;; 2. Emacsの設定ファイル（~/.emacs.d/init.el など）に以下の行を追加する
  34 ;;
  35 ;; (require 'exopen-mode)
  36
  37 ;; Windowシステム上でEmacsが動作している場合、exopen-mode は自動的に有効になります。
  38 ;;
  39 ;; ■使い方
  40
  41 ;; ■hook
  42
  43 ;; マイナーモードの定義
  44  (easy-mmode-define-minor-mode exopen-mode
  45    "minor mode for opening fle in external program."
  46  ;; 初期値
  47 (display-graphic-p)
  48  ;; モード行の表示
  49  ""
  50  ;; マイナーモード用キーマップの初期値
  51  '(("\C-x\C-\M-f" . exopen-find-file)))
  52
  53 ;; exopen-std-cmd: OSやWindowで設定された関連付けをもとに
  54 ;; ファイルを開くプログラムコマンド
  55 (defvar exopen-std-cmd nil)
  56
  57 ;; Window別にexopen-std-cmdを設定する
  58 (setq exopen-std-cmd
  59       (cond
  60        ((eq window-system 'x) "xdg-open")
  61        ((eq window-system 'ns) "open")
  62        ((eq window-system 'w32) "cmd.exe /c start")))
  63
  64 ;; exopen-modeでの拡張子とプログラムの関連付けリスト
  65 (defvar exopen-suffix-cmd)
  66
  67 ;;; ファイルを外部プログラムでオープン
  68 ;;; exopen-std-cmdで指定されたプログラムを使用
  69 (defun exopen-file (file)
  70   "open file in external program"
  71   (let ((process-connection-type nil) (cmd))
  72     (setq cmd (cdr(assoc (file-name-extension file 1) exopen-suffix-cmd)))
  73     (if (null cmd)
  74         (setq cmd exopen-std-cmd))
  75     (start-process "exopen" nil cmd file)
  76     (message (concat "exopen: " cmd " " file " at " (format-time-string "%Y/%m/%d %H:%M:%S" (current-time))))))
  77
  78 ;;; バッファで開いているファイルを外部プログラムでオープン
  79 (defun exopen-buffer-file ()
  80   "open buffer file in external program"
  81   (interactive)
  82   (if buffer-file-name
  83       (exopen-file buffer-file-name)
  84     (error "This buffer is not visiting a file")))
  85
  86 ;;; 指定したファイルと同名で拡張子が異なるファイルを外部プログラムでオープン
  87 (defun exopen-buffer-file-suffix (suffix)
  88   "open buffer file of other extension in external program"
  89   (let (afile)
  90     (if (not buffer-file-name)
  91         (error "This buffer is not visiting a file"))
  92     (setq afile (concat (file-name-sans-extension (buffer-file-name)) suffix))
  93     (if (file-exists-p afile)
  94         (exopen-file afile)
  95       (error (concat afile ": file not found")))))
  96
  97 ;;; 指定したファイルと同名のPDFファイルを外部プログラムでオープン
  98 (defun exopen-buffer-pdffile ()
  99   "open pdf file in external program"
 100   (interactive)
 101   (exopen-buffer-file-suffix ".pdf"))
 102
 103 ;;; バッファファイルと同名のDVIファイルを外部プログラムでオープン
 104 (defun exopen-buffer-dvifile ()
 105   "open dvi file in external program"
 106   (interactive)
 107   (exopen-buffer-file-suffix ".dvi"))
 108
 109 ;;; バッファファイルと同名のHTMLファイルを外部プログラムでオープン
 110 (defun exopen-buffer-htmlfile ()
 111   "open html file in external program"
 112   (interactive)
 113   (exopen-buffer-file-suffix ".html"))
 114
 115 ;;; find-or-bufferがnilの場合はプロンプトで指定したファイル、
 116 ;;; nil以外の場合はバッファのファイルを外部プログラムでオープン
 117 (defun exopen-find-file(&optional find-or-buffer)
 118   "open buffer file or find-file in external program"
 119   (interactive "P")
 120   (let ((afile))
 121     (if (null find-or-buffer)
 122         (progn
 123           (setq afile (expand-file-name
 124                        (read-file-name "Find external open file: " buffer-file-name)))
 125           (if afile
 126               (exopen-file afile)
 127             (error "file not found")))
 128       (exopen-buffer-file)
 129       )))
 130
 131 ;;; dired-modeからファイルやディレクトリーを開く
 132 (require 'dired)
 133 (add-hook 'dired-mode-hook
 134           (function
 135            (lambda ()
 136              ;; カーソル下のファイルやディレクトリーを外部プログラムで開く
 137              (defun dired-exopen-file ()
 138                "Open file mentioned on this line in external program"
 139                (interactive)
 140                (exopen-file (dired-get-filename)))
 141
 142              ;; 現在のディレクトリーを外部プログラムで開く
 143              (defun dired-exopen-curdir ()
 144                "Open current directory in external program"
 145                (interactive)
 146                (exopen-file (expand-file-name dired-directory)))
 147
 148              ;; キーバインド
 149              (define-key dired-mode-map "r" 'dired-exopen-file)
 150              (define-key dired-mode-map "\C-cr" 'dired-exopen-file)
 151              (define-key dired-mode-map "\C-c." 'dired-exopen-curdir))))
 152
 153 (provide 'exopen-mode)
 154 ;;; exopen-mode.el ends here