emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't trigger create-missing-directories on remotes

Browse source 
Also: minor refactor of the hook.
This commit is contained in:
Henrik Lissner 2019-11-02 13:25:43 -04:00
parent baac5dfee1
commit e1d62f5d12
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/core-editor.el
View file

@ -62,10 +62,12 @@ possible."
(add-hook! 'find-file-not-found-functions (add-hook! 'find-file-not-found-functions
(defun doom-create-missing-directories-h () (defun doom-create-missing-directories-h ()
"Automatically create missing directories when creating new files." "Automatically create missing directories when creating new files."
(let ((parent-directory (file-name-directory buffer-file-name))) (and (not (file-remote-p buffer-file-name))
(when (and (not (file-exists-p parent-directory)) (not (file-directory-p (file-name-directory buffer-file-name)))
(y-or-n-p (format "Directory `%s' does not exist! Create it?" parent-directory))) (y-or-n-p (format "Directory `%s' does not exist! Create it?"
(make-directory parent-directory t))))) (file-name-directory buffer-file-name)))
(progn (make-directory parent-directory 'parents)
t))))
;; Don't autosave files or create lock/history/backup files. The ;; Don't autosave files or create lock/history/backup files. The
;; editor doesn't need to hold our hands so much. We'll rely on git ;; editor doesn't need to hold our hands so much. We'll rely on git