Move from super-save -> auto-save-visited-mode

2 files changed, 24 insertions, 13 deletions

@@ -2434,14 +2434,14 @@
   (:with-mode ssh-authorized-keys-mode
     (:file-match (rx "/authorized_keys" (? "2") eos))))
 
-(setup (:straight super-save)
-  (:option auto-save-default nil
-           super-save-auto-save-when-idle t
-           super-save-idle-duration 30
-           super-save-exclude '(".gpg")
-           super-save-remote-files nil)
-  (auto-save-visited-mode -1)
-  (super-save-mode +1))
+;; (setup (:straight super-save)
+;;   (:option auto-save-default nil
+;;            super-save-auto-save-when-idle t
+;;            super-save-idle-duration 30
+;;            super-save-exclude '(".gpg")
+;;            super-save-remote-files nil)
+;;   (auto-save-visited-mode -1)
+;;   (super-save-mode +1))
 
 (setup (:straight systemd
          (executable-find "systemd"))
@@ -33,12 +33,14 @@ Do this only if the buffer is not visiting a file."
  async-shell-command-buffer 'new-buffer
  async-shell-command-display-buffer nil
  auto-hscroll-mode 'current-line
- auto-revert-verbose nil
- auto-save-file-name-transforms `((".*" ,(.etc "auto-save/" t) t))
- auto-save-interval 60
+ auto-revert-verbose t
+ auto-save-default nil
+ auto-save-file-name-transforms `((".*" ,(.etc "auto-save/") ,(car (secure-hash-algorithms)))
+                                  (".*" ,(.etc "auto-save/") t))
+ auto-save-interval 30
  auto-save-list-file-prefix (.etc "auto-save/.saves-" t)
- auto-save-timeout 60
- auto-save-visited-interval 60
+ auto-save-timeout 30
+ auto-save-visited-interval 5
  auto-window-vscroll nil
  backup-by-copying t
  backup-directory-alist `((".*" . ,(.etc "backup/" t)))
@@ -105,6 +107,7 @@ Do this only if the buffer is not visiting a file."
  regexp-search-ring-max 100
  regexp-search-ring-max 200
  save-interprogram-paste-before-kill t
+ save-some-buffers-default-predicate #'+save-some-buffers-p
  scroll-conservatively 101
  scroll-down-aggressively 0.01
  scroll-margin 2
@@ -190,6 +193,7 @@ Do this only if the buffer is not visiting a file."
                        file-name-shadow-mode
                        minibuffer-electric-default-mode
                        delete-selection-mode
+                       auto-save-visited-mode
                        ;; column-number-mode
                        ))
   (when (fboundp enable-mode)
@@ -292,6 +296,13 @@ ARG is passed to `backward-kill-word'."
 (advice-add #'yank-pop :after #'+yank@indent)
 
 
+;;; Extra functions
+
+(defun +save-some-buffers-p ()
+  "Predicate for `save-some-buffers-default-predicate'.
+It returns nil with remote files."
+  (not (file-remote-p (buffer-file-name))))
+
 ;;; Bindings
 
 ;; I need to place these bindings under `+key-mode-map' so that they aren't