[xyzzy:00574] filer-gzip アンド filer-gunzip

["Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx>]

みなさん、こんにちは。

ファイラーで gzip を扱うコマンドを作りました。
かげで dos 窓が*こそこそ*動くのを気にしなけ
れば*そこそこ*使えるかもしれません。改良案
よろしく。filer-reload の引数がハックしきれて
いません。call-process の引数は環境に合わせて
ね。
--------------------------------
(export '(filer-gzip filer-gunzip))

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

(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 #\Z 'filer-gzip)
  (define-key filer-keymap #\W 'filer-gunzip)

----------
須田誠也
EZU11330@xxxxxxxxxxx