Skip to content

Commit 2f6822f

Browse files
committed
Cleanup auto-save, silence save-buffer
1 parent 24a4c77 commit 2f6822f

File tree

1 file changed

+12
-18
lines changed

1 file changed

+12
-18
lines changed

abz/abz-custom.el

Lines changed: 12 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,7 @@
2222

2323
;;; Code:
2424

25+
(require 'abz)
2526
(require 'abz-settings)
2627
(require 'cl-lib)
2728
(require 'use-package)
@@ -115,27 +116,20 @@
115116
;;
116117
;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Save.html
117118
;;
118-
;; auto-save-list-file-prefix handled by no-littering
119-
;;
120-
;; TODO Check
121-
;; * https://github.com/bbatsov/super-save/
122-
;; * https://github.com/ChillarAnand/real-auto-save
119+
;; no-littering:
120+
;; - auto-save-list-file-prefix
123121
(use-package files
124122
:straight nil
125-
:demand t
126-
:init
127-
;; Enable Auto-save in separated file
128-
(customize-set-variable 'auto-save-default t)
129-
;; Disable 'real' auto-save (auto-save to the visited file)
130-
(if (version< "26.1" emacs-version)
131-
(customize-set-variable 'auto-save-visited-file-name nil)
132-
(customize-set-variable 'auto-save-visited-mode nil))
123+
:custom
124+
(auto-save-default t "Auto-save file-visiting buffer in a separate file")
133125
;; Save all files in `abz-cache-dir` instead of in the same directory as the visited file
134-
(customize-set-variable 'auto-save-file-name-transforms
135-
`((".*" ,(abz--locate-data-dir "auto-save/") t)))
136-
(customize-set-variable 'auto-save-interval 1000) ; Number of inputs between auto-saves
137-
(customize-set-variable 'auto-save-timeout 101) ; Idle time before auto-save
138-
(customize-set-variable 'delete-auto-save-files t)) ; Keep auto-save files
126+
(auto-save-file-name-transforms
127+
`((".*" ,(abz--locate-data-dir "auto-save/") sha256)))
128+
(auto-save-interval 600) ; Number of inputs between auto-saves
129+
(auto-save-timeout 101) ; Idle time before auto-save
130+
(delete-auto-save-files t) ; Keep auto-save files
131+
:config
132+
(abz--advice-inhibit-echo-area #'(save-buffer)))
139133

140134
;; List of recently visited files (built-in)
141135
(use-package recentf

0 commit comments

Comments
 (0)