[xyzzy:02358] Re: ファイラー上で解凍

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

河合さん、こんにちは。

        Sun, 11 Apr 1999 23:01:52 +0900 の
        [xyzzy:02355] ファイラー上で解凍
        に関するメールにお答えします。

> ファイラー上で解凍出来ますが、*.gz や *.bz2 は出来ないですね。

こういうの作ってます。参考にしてください。

(defun filer-gzip ()
  (let ((file (filer-get-current-file)))
	(call-process (concat *shell* " /c " "d:\\bin\\gzip " file)
				  :show :minimize
				  :wait t)
	(filer-reload)))

(defun filer-gunzip ()
  (let ((file (filer-get-current-file)))
	(call-process (concat *shell* " /c " "d:\\bin\\gzip -d " file)
				  :show :minimize
				  :wait t)
	(filer-reload)))

(define-key filer-keymap #\+ 'filer-gzip)
(define-key filer-keymap #\- 'filer-gunzip)

--------
須田誠也(suda seiya)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/