如何让Emacs创建中间dirs - 保存文件？

Question

有没有办法在emacs中创建文件夹树 - 类似于

mkdir -p

在bash？

基本上 - 当我保存文件时,我希望emacs创建所有中间目录 - 如果它们不存在 - .

Answer 1

功能make-directory就是这样.您的特定问题可能会像这样解决:

(add-hook 'before-save-hook
          (lambda ()
            (when buffer-file-name
              (let ((dir (file-name-directory buffer-file-name)))
                (when (and (not (file-exists-p dir))
                           (y-or-n-p (format "Directory %s does not exist. Create it?" dir)))
                  (make-directory dir t))))))