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

1 files changed, 16 insertions, 5 deletions

@@ -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