diff options
Diffstat (limited to 'emacs/init.el')
| -rw-r--r-- | emacs/init.el | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/emacs/init.el b/emacs/init.el index 07bc75d..8eab92e 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -44,18 +44,27 @@ (set-frame-parameter nil 'alpha-background 100) (set-frame-parameter nil 'alpha-background alpha-transparency)))) +(defvar my/prog-cleanup-excluded-modes + '(makefile-gmake-mode makefile-mode makefile-imake-mode + makefile-makepp-mode makefile-bsdmake-mode makefile-automake-mode)) + +(defvar my/prog-cleanup-want-tabs-modes + '(makefile-gmake-mode makefile-mode makefile-imake-mode + makefile-makepp-mode makefile-bsdmake-mode makefile-automake-mode)) + +(defvar my/prog-cleanup-indent-max-lines 500) + (defun my/clean-prog-file (&optional buffer) "Fixes whitespace etc in BUFFER or current buffer." (unless buffer (setq buffer (current-buffer))) (with-current-buffer buffer - (indent-region (point-min) (point-max)) - (untabify (point-min) (point-max)) + (when (< (car (buffer-line-statistics buffer)) + my/prog-cleanup-indent-max-lines) + (indent-region (point-min) (point-max))) + (unless (member major-mode my/prog-cleanup-want-tabs-modes) + (untabify (point-min) (point-max))) (delete-trailing-whitespace))) -(defvar my/prog-cleanup-excluded-modes - '(makefile-gmake-mode makefile-mode makefile-imake-mode - makefile-makepp-mode makefile-bsdmake-mode makefile-automake-mode)) - (defun my/prog-buffer-setup () "Do setup in for mode buffers." (superword-mode 1) |