all repos — nixfiles @ 6dca0437a33666f1f2b11c1812d1eae03097bc6e

System and user configuration, managed by nix and home-manager

Emacs: Offer to create missing directories

Alan Pearce
commit

6dca0437a33666f1f2b11c1812d1eae03097bc6e

parent

2a3a3b4caf2b881ece4c83b4a7e02047f3735555

1 file changed, 7 insertions(+), 0 deletions(-)

jump to
M tag-emacs/emacs.d/init.eltag-emacs/emacs.d/init.el
@@ -406,6 +406,13 @@ (delete-file filename)
(kill-this-buffer) (message "File '%s' successfully removed" filename))))) +(defun my-create-non-existent-directory () + (let ((parent-directory (file-name-directory buffer-file-name))) + (when (and (not (file-exists-p parent-directory)) + (y-or-n-p (format "Directory `%s' does not exist! Create it?" parent-directory))) + (make-directory parent-directory t)))) +(add-to-list 'find-file-not-found-functions #'my-create-non-existent-directory) + (defun kill-or-delete-this-buffer-dwim (&optional arg) "Kills current buffer. With prefix arg, delete it." (interactive "P")