[xyzzy:08055] Re: xyzzy からディレクトリを作成

[YANASE Kengo <kengo@xxxxxxxxxx>]

柳瀬です。

> もう少し勉強して、C-x C-fの時にEmacs風に使えるようにしてみるのも面白そう
> ですね。

勉強して適当に作ってみました。Emacs風ではないですが、まあ、こんなもので
しょう。これで、さらに快適なxyzzy生活が過ごせそうです。

それでは。


;;; find-file時にディレクトリが作れるように

(defun make-directory-unless-directory-exists (filename)
  (unless (valid-path-p filename)
    (let ((d (directory-namestring filename)))
      (when (yes-or-no-p "~a~%ディレクトリがないけど作る？"  d)
        (create-directory d))))
  nil)

;;; ファイルを開く前に
(add-hook '*before-find-file-hook*
          #'make-directory-unless-directory-exists)


-- 
YANASE Kengo <kengo@xxxxxxxxxx>