aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAshton Wiersdorf <mail@wiersdorf.dev>2024-06-01 22:56:05 -0600
committerAshton Wiersdorf <mail@wiersdorf.dev>2024-06-01 22:56:05 -0600
commitfb96831f54e7337f92e615e812797823b341b79a (patch)
tree787dffa737d30a7068e689783be0df375cb14f09
parent88698f8b218e33575e39bf5991690207d41914dc (diff)
Use user-emacs-directory for backups folder
Closes #3
-rw-r--r--init.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/init.el b/init.el
index 585cb3e..16ba71a 100644
--- a/init.el
+++ b/init.el
@@ -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))