diff options
Diffstat (limited to 'lisp/+emacs.el')
-rw-r--r-- | lisp/+emacs.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/+emacs.el b/lisp/+emacs.el index 533d438..b4742da 100644 --- a/lisp/+emacs.el +++ b/lisp/+emacs.el | |||
@@ -206,8 +206,17 @@ Do this only if the buffer is not visiting a file." | |||
206 | 206 | ||
207 | ;;; Hooks | 207 | ;;; Hooks |
208 | 208 | ||
209 | (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p) | 209 | (add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p) |
210 | (add-hook 'minibuffer-setup-hook 'cursor-intangible-mode) | 210 | (add-hook 'minibuffer-setup-hook #'cursor-intangible-mode) |
211 | |||
212 | (defun +auto-create-missing-dirs () | ||
213 | "Automatically create missing directories when finding a file." | ||
214 | ;; https://emacsredux.com/blog/2022/06/12/auto-create-missing-directories/ | ||
215 | (let ((target-dir (file-name-directory buffer-file-name))) | ||
216 | (unless (file-exists-p target-dir) | ||
217 | (make-directory target-dir t)))) | ||
218 | |||
219 | (add-hook 'find-file-not-found-functions #'+auto-create-missing-dirs) | ||
211 | 220 | ||
212 | 221 | ||
213 | ;;; Better-default functions ... | 222 | ;;; Better-default functions ... |