diff options
author | Ashton Wiersdorf <mail@wiersdorf.dev> | 2024-06-01 22:56:05 -0600 |
---|---|---|
committer | Ashton Wiersdorf <mail@wiersdorf.dev> | 2024-06-01 22:56:05 -0600 |
commit | fb96831f54e7337f92e615e812797823b341b79a (patch) | |
tree | 787dffa737d30a7068e689783be0df375cb14f09 | |
parent | 88698f8b218e33575e39bf5991690207d41914dc (diff) |
Use user-emacs-directory for backups folder
Closes #3
-rw-r--r-- | init.el | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -79,7 +79,7 @@ (defun bedrock--backup-file-name (fpath) "Return a new file path of a given file path. If the new path's directories does not exist, create them." - (let* ((backupRootDir "~/.emacs.d/emacs-backup/") + (let* ((backupRootDir (concat user-emacs-directory "emacs-backup/")) (filePath (replace-regexp-in-string "[A-Za-z]:" "" fpath )) ; remove Windows driver letter in path (backupFilePath (replace-regexp-in-string "//" "/" (concat backupRootDir filePath "~") ))) (make-directory (file-name-directory backupFilePath) (file-name-directory backupFilePath)) |