Make backups go into ~/.emacs.d/emacs-backup/ instead of working dir

Closes #5

2 files changed, 13 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
index 663e6d4..20ce8bb 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,3 +5,4 @@
 /transient/
 /auto-save-list/
 /eshell/
+/projects
diff --git a/init.el b/init.el
index 367a7e1..ff86a5c 100644
--- a/init.el
+++ b/init.el
@@ -44,6 +44,18 @@
 ;; Move through windows with Ctrl-<arrow keys>
 (windmove-default-keybindings 'control) ; You can use other modifiers here
 
+;; Don't litter filesystem with *~ backup files; put them all inside
+;; ~/.emacs.d/backup or wherever
+(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/")
+         (filePath (replace-regexp-in-string "[A-Za-z]:" "" fpath )) ; remove Windows driver letter in path, for example, “C:”
+         (backupFilePath (replace-regexp-in-string "//" "/" (concat backupRootDir filePath "~") )))
+    (make-directory (file-name-directory backupFilePath) (file-name-directory backupFilePath))
+    backupFilePath))
+(setq make-backup-file-name-function 'bedrock--backup-file-name)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;;   Discovery aids