mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2026-01-05 00:31:51 -08:00
Code Issues Projects Releases Wiki Activity

tweak: improve recognizability of auto-save files

Browse source 
Make the resulting auto-save files easier to recognize when perused by
hand (in case of a fatal data loss and recovery situation), by prefixing
the hashed autosave file with the target file name.

Also updates the explanatory comment above it to better explain the
purpose of these defaults.

Also uses file-name-concat in case auto-save-list-file-prefix doesn't
end in a slash.
This commit is contained in:
Henrik Lissner 2025-12-22 21:34:59 -05:00
parent f5d06a81d4
commit 12e6027bda
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/doom-editor.el
View file

@ -103,14 +103,22 @@ possible."
auto-save-include-big-deletions t
;; Keep it out of `doom-emacs-dir' or the local directory.
auto-save-list-file-prefix (concat doom-profile-cache-dir "autosave/")
;; Emacs generates long file paths for its auto-save files; long =
;; `auto-save-list-file-prefix' + `buffer-file-name'. If too long, some
;; filesystems will murder your family. The `sha1' compresses the path
;; into a ~40 character hash. 28+ only!
;; This resolves two issue while ensuring auto-save files are still
;; reasonably recognizable at a glance:
;;
;; 1. Emacs generates long file paths for its auto-save files; long =
;; `auto-save-list-file-prefix' + `buffer-file-name'. If too long, some
;; filesystems (*cough*Windows) will murder your family. `sha1'
;; compresses the path into a ~40 character hash (Emacs 28+ only)!
;; 2. The default transform rule writes TRAMP auto-save files to
;; `temporary-file-directory', which TRAMP doesn't like! It'll prompt
;; you about it every time an auto-save file is written, unless
;; `tramp-allow-unsafe-temporary-files' is set. A more sensible default
;; transform is better:
auto-save-file-name-transforms
`(("\\`/[^/]*:\\([^/]*/\\)*\\([^/]*\\)\\'"
,(concat auto-save-list-file-prefix "tramp/") sha1)
(".*" ,auto-save-list-file-prefix sha1)))
,(file-name-concat auto-save-list-file-prefix "tramp" "\\2-") sha1)
("\\([^/]+\\)\\'" ,(file-name-concat auto-save-list-file-prefix "\\1-") sha1)))
(add-hook! 'after-save-hook
(defun doom-guess-mode-h ()
@ -134,6 +142,8 @@ tell you about it. Very annoying. This prevents that."
;; HACK: Make sure backup files (like undo-tree's) don't have ridiculously long
;; file names that some filesystems will refuse.
;; REVIEW: PR this upstream, like they have with the UNIQUIFY argument in
;; `auto-save-file-name-transforms' entries.
(defadvice! doom-make-hashed-backup-file-name-a (fn file)
"A few places use the backup file name so paths don't get too long."
:around #'make-backup-file-name-1