summary refs log tree commit diff stats
path: root/lisp/+emacs.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/+emacs.el')
-rw-r--r--lisp/+emacs.el13
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 ...