From dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 15 Jun 2022 10:26:10 -0500
Subject: aodifu

---
 lisp/+emacs.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'lisp/+emacs.el')

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."
 
 ;;; Hooks
 
-(add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p)
-(add-hook 'minibuffer-setup-hook 'cursor-intangible-mode)
+(add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p)
+(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
+
+(defun +auto-create-missing-dirs ()
+  "Automatically create missing directories when finding a file."
+  ;; https://emacsredux.com/blog/2022/06/12/auto-create-missing-directories/
+  (let ((target-dir (file-name-directory buffer-file-name)))
+    (unless (file-exists-p target-dir)
+      (make-directory target-dir t))))
+
+(add-hook 'find-file-not-found-functions #'+auto-create-missing-dirs)
 
 
 ;;; Better-default functions ...
-- 
cgit 1.4.1-21-gabe81