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
(defun doom-create-missing-directories-h ()
"Automatically create missing directories when creating new files."
(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)))))
(and (not (file-remote-p buffer-file-name))
(not (file-directory-p (file-name-directory buffer-file-name)))
(y-or-n-p (format "Directory `%s' does not exist! Create it?"
(file-name-directory buffer-file-name)))
(progn (make-directory parent-directory 'parents)
t))))
;; 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