Safer whitespace cleanup
This commit is contained in:
@@ -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")
|
||||||
|
|||||||
Reference in New Issue
Block a user