Make directory if it does not exist when renaming the current buffer file

2015-05-20 23:01:17 +02:00 · 2015-05-20 23:01:17 +02:00 · 3f8c0a253d
parent aa5a0f515a
commit 3f8c0a253d
1 changed files with 3 additions and 0 deletions
--- a/spacemacs/funcs.el
+++ b/spacemacs/funcs.el
@ -399,6 +399,9 @@ argument takes the kindows rotate backwards."
        (cond ((get-buffer new-name)
               (error "A buffer named '%s' already exists!" new-name))
              (t
+               (let ((dir (file-name-directory new-name)))
+                 (when (and (not (file-exists-p dir)) (yes-or-no-p (format "Create directory '%s'?" dir)))
+                   (make-directory dir t)))
               (rename-file filename new-name 1)
               (rename-buffer new-name)
               (set-visited-file-name new-name)