From 411b56ffa3e082ab2dfdca6deccb1cb523d46b9e Mon Sep 17 00:00:00 2001
From: Ashton Wiersdorf <ashton.wiersdorf@pobox.com>
Date: Wed, 22 Feb 2023 00:37:40 -0700
Subject: Make backups go into ~/.emacs.d/emacs-backup/ instead of working dir

Closes #5
---
 .gitignore |  1 +
 init.el    | 12 ++++++++++++
 2 files changed, 13 insertions(+)

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
-- 
cgit v1.2.3