From 989171268461a0069ecd53a49e6098ce08638102 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 5 May 2023 09:58:21 -0500 Subject: changes --- basics.el | 48 ++++++++++++++++++++++++++++-------------------- 1 file changed, 28 insertions(+), 20 deletions(-) (limited to 'basics.el') diff --git a/basics.el b/basics.el index 15831d3..1405c84 100644 --- a/basics.el +++ b/basics.el @@ -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 -- cgit 1.4.1-21-gabe81