[xyzzy:01039] Re: ファイル名を小文字化したい

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田さん、こんにちは。

        Sat, 14 Nov 1998 20:45:45 +0900 の
        [xyzzy:01037] ファイル名を小文字化したい
        への返事です.

| 大文字のファイル名をファイラーで一括して
| 小文字化できますでしょうか？

標準ではできませんが、こんなんを filer-keymap に割り当てれば
できるようになります。

(defun filer-downcase-filename ()
  (let ((files (filer-get-mark-files)))
    (when (and files (yes-or-no-p "小文字にしまっせ"))
      (filer-subscribe-to-reload (filer-get-directory))
      (mapc #'(lambda (x) (rename-file x (string-downcase x))) files)
      (filer-demand-reload)
      (filer-goto-file (file-namestring (car files))))
    t))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx