|
22 | 22 |
|
23 | 23 | ;;; Code: |
24 | 24 |
|
| 25 | +(require 'abz) |
25 | 26 | (require 'abz-settings) |
26 | 27 | (require 'cl-lib) |
27 | 28 | (require 'use-package) |
|
115 | 116 | ;; |
116 | 117 | ;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Auto-Save.html |
117 | 118 | ;; |
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 |
123 | 121 | (use-package files |
124 | 122 | :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") |
133 | 125 | ;; 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))) |
139 | 133 |
|
140 | 134 | ;; List of recently visited files (built-in) |
141 | 135 | (use-package recentf |
|
0 commit comments