diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-02-02 23:14:57 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-02-02 23:14:57 -0500 |
| commit | b7e27beccadd38ae81bd0b2861bcdb51b329caef (patch) | |
| tree | 9e8c5595865219bf1d6f5645cbc00a300ace1a27 /lisp | |
| parent | 40c403b7e4fff953254e5333e3354666f549c1fa (diff) | |
| download | emacs.d-b7e27beccadd38ae81bd0b2861bcdb51b329caef.tar.gz | |
Use whitespace-mode as indicator for cleanup
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-buffer-cleanup.el | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/lisp/km-buffer-cleanup.el b/lisp/km-buffer-cleanup.el deleted file mode 100644 index ac0b008..0000000 --- a/lisp/km-buffer-cleanup.el +++ /dev/null @@ -1,52 +0,0 @@ -;;; km-buffer-cleanup.el --- Clean up buffer on save - -;; Copyright (C) 2012-2016 Kyle Meyer <kyle@kyleam.com> - -;; Author: Kyle Meyer <kyle@kyleam.com> -;; URL: https://github.com/kyleam/emacs.d - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <http://www.gnu.org/licenses/>. - -;;; Code: - -(require 'whitespace) - -(defvar-local km/prevent-cleanup nil - "If set, `km/cleanup-buffer' does not perform clean up on save.") - -(defun km/toggle-prevent-cleanup () - "Toggle state of `km/prevent-cleanup'." - (interactive) - (if km/prevent-cleanup - (progn - (message "Allowing cleanup on save") - (kill-local-variable 'whitespace-style) - (global-whitespace-mode 0) - (global-whitespace-mode 1)) - (message "Preventing cleanup on save") - (setq-local whitespace-style - '(face trailing indentation - tab-mark space-mark newline-mark)) - (global-whitespace-mode 0) - (global-whitespace-mode 1)) - (setq km/prevent-cleanup (not km/prevent-cleanup))) - -(defun km/cleanup-buffer () - (interactive) - (unless km/prevent-cleanup - (whitespace-cleanup) - (delete-trailing-whitespace))) - -(provide 'km-buffer-cleanup) -;;; km-buffer-cleanup.el ends here |