1 files changed, 28 insertions, 20 deletions

@@ -192,7 +192,7 @@
               auto-save-interval 1
               auto-save-no-message t
               auto-save-timeout 1
-              auto-save-visited-interval 10
+              auto-save-visited-interval 1
               remote-file-name-inhibit-auto-save-visited t)
 (add-to-list 'auto-save-file-name-transforms
              `(".*" ,(etc/ "auto-save/" t) t))
@@ -202,7 +202,12 @@
               version-control t
               kept-new-versions 8
               kept-old-versions 8
-              delete-old-versions t)
+              delete-old-versions t
+              backup-directory-alist
+              `(("^/dev/shm" . nil)
+                ("^/tmp" . nil)
+                (,(getenv "XDG_RUNTIME_DIR") . nil)
+                ("." . ,(no-littering-expand-etc-file-name "backup"))))
 
 (require 'recentf)
 (setq-default ;; recentf-save-file (etc/ "recentf" t)
@@ -213,6 +218,7 @@
 (add-to-list 'recentf-exclude etc/)
 (add-to-list 'recentf-exclude "-autoloads.el\\'")
 (add-hook 'buffer-list-update-hook #'recentf-track-opened-file)
+(add-hook 'after-save-hook #'recentf-save-list)
 (recentf-mode)
 
 (require 'saveplace)
@@ -247,7 +253,8 @@
 (setq-default native-comp-async-report-warnings-errors 'silent
               native-comp-deferred-compilation t
               native-compile-target-directory (etc/ "eln" t))
-(add-to-list 'native-comp-eln-load-path native-compile-target-directory)
+(when (boundp 'native-comp-eln-load-path)
+  (add-to-list 'native-comp-eln-load-path native-compile-target-directory))
 (when (fboundp 'startup-redirect-eln-cache)
   (startup-redirect-eln-cache native-compile-target-directory))
 
@@ -373,19 +380,19 @@ When at the beginning of a line, delete blank lines before point."
 (when (fboundp '+lisp-comment-or-uncomment-sexp)
   (define-key lisp-mode-map (kbd "C-M-;") #'+lisp-comment-or-uncomment-sexp)
   (define-key emacs-lisp-mode-map (kbd "C-M-;")
-              #'+lisp-comment-or-uncomment-sexp)
+    #'+lisp-comment-or-uncomment-sexp)
   (with-eval-after-load 'scheme
     (define-key scheme-mode-map (kbd "C-M-;")
-                #'+lisp-comment-or-uncomment-sexp)))
+      #'+lisp-comment-or-uncomment-sexp)))
 
 (define-key emacs-lisp-mode-map (kbd "C-c C-c")
-            #'eval-defun)
+  #'eval-defun)
 (define-key emacs-lisp-mode-map (kbd "C-c C-k")
-            #'elisp-eval-region-or-buffer)
+  #'elisp-eval-region-or-buffer)
 (define-key lisp-interaction-mode-map (kbd "C-c C-c")
-            #'eval-defun)
+  #'eval-defun)
 (define-key lisp-interaction-mode-map (kbd "C-c C-k")
-            #'elisp-eval-region-or-buffer)
+  #'elisp-eval-region-or-buffer)
 (define-advice eval-region (:around (orig start end &rest args) pulse)
   (apply orig start end args)
   (pulse-momentary-highlight-region start end))
@@ -432,7 +439,7 @@ When at the beginning of a line, delete blank lines before point."
   :load-path private/)
 
 (use-package custom-allowed
-  :load-path "/home/case/src/emacs/custom-allowed/"
+  :load-path "~/src/custom-allowed.el/"
   :config
   (add-to-list 'custom-allowed-variables 'safe-local-variable-values)
   (add-to-list 'custom-allowed-variables 'ispell-buffer-session-localwords)
@@ -445,7 +452,7 @@ When at the beginning of a line, delete blank lines before point."
   (after-init-hook . custom-allowed-load-custom-file))
 
 (use-package sophomore
-  :load-path "/home/case/src/emacs/sophomore/"
+  :load-path "~/src/sophomore.el/"
   :config
   (sophomore-enable-all)
   (sophomore-disable 'view-hello-file
@@ -463,7 +470,7 @@ When at the beginning of a line, delete blank lines before point."
   (setq vertico-cycle t)
   (add-hook 'vertico-mode-hook
             (defun vertico-mode@fix-completions ()
-              (setopt completion-in-region-function
+              (setq completion-in-region-function
                       (if vertico-mode
                           #'consult-completion-in-region
                         #'completion--in-region))))
@@ -596,15 +603,15 @@ When at the beginning of a line, delete blank lines before point."
   ;; Optionally make narrowing help available in the minibuffer.
   ;; You may want to use `embark-prefix-help-command' or which-key instead.
   (define-key consult-narrow-map (vconcat consult-narrow-key "?")
-              #'consult-narrow-help))
+    #'consult-narrow-help))
 
 (use-package orderless
   :ensure t :demand t
   :init
-  (setopt completion-styles '(orderless substring basic)
-          completion-category-defaults nil
-          completion-category-overrides
-          '((file (styles basic partial-completion orderless)))))
+  (setq completion-styles '(orderless substring basic)
+        completion-category-defaults nil
+        completion-category-overrides
+        '((file (styles basic partial-completion orderless)))))
 
 (use-package marginalia
   :ensure t :demand t
@@ -618,7 +625,7 @@ When at the beginning of a line, delete blank lines before point."
    ("M-." . embark-dwim)
    ("C-h B" . embark-bindings))
   :init
-  (setopt prefix-help-command #'embark-prefix-help-command)
+  (setq prefix-help-command #'embark-prefix-help-command)
   :config
   (add-to-list 'display-buffer-alist
                '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
@@ -642,7 +649,7 @@ When at the beginning of a line, delete blank lines before point."
 (use-package undo-fu-session
   :ensure t
   :config
-  (setopt undo-fu-session-compression (cond
+  (setq undo-fu-session-compression (cond
                                        ((executable-find "gunzip") 'gz)
                                        ((executable-find "bzip2") 'bz2))
           undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'"
@@ -667,6 +674,7 @@ When at the beginning of a line, delete blank lines before point."
          ([right-margin double-wheel-up] . pixel-scroll-precision)
          ([right-margin triple-wheel-up] . pixel-scroll-precision))
   :config
-  (pixel-scroll-precision-mode))
+  (when (fboundp 'pixel-scroll-precision-mode)
+    (pixel-scroll-precision-mode)))
 
 ;;; basics.el ends here