Safer whitespace cleanup

This commit is contained in:
2025-06-20 12:46:41 -07:00
parent 726d619d3b
commit a880de8acf

View File

@@ -598,14 +598,9 @@
;; Don't clobber the OS clipboard completely ;; Don't clobber the OS clipboard completely
(setq save-interprogram-paste-before-kill t) (setq save-interprogram-paste-before-kill t)
;; automatically cleanup whitespace on save (use-package ws-butler
(defun my-whitespace-cleanup () :ensure t
"Run `whitespace-cleanup' except for TSV files." :hook (prog-mode . ws-butler-mode))
(unless (or (derived-mode-p 'text-mode) ; Adjust this check if necessary
(string-match "\\.tsv\\'" buffer-file-name))
(whitespace-cleanup)))
(add-hook 'before-save-hook 'my-whitespace-cleanup)
;; clean up backup file spam ;; clean up backup file spam
(setq backup-directory-alist `(("." . "~/.saves") (setq backup-directory-alist `(("." . "~/.saves")