From 3a9d71599d8abdbe8cb3459001e7e6b197c79e49 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 3 Mar 2019 09:34:50 -0800 Subject: [PATCH] Move delete-trailing-whitespace into init It's small enough that it doesn't require its own file. --- emacs/.emacs.d/init.el | 9 ++- .../destroy-trailing-whitespace.el | 66 ------------------- 2 files changed, 6 insertions(+), 69 deletions(-) delete mode 100644 emacs/.emacs.d/vendor-lisp/destroy-trailing-whitespace/destroy-trailing-whitespace.el diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 95a7469..274d2dc 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -43,7 +43,6 @@ ;;;; Dependencies -(require 'destroy-trailing-whitespace) (require 'diminish) ;;;; Settings @@ -84,8 +83,6 @@ (global-set-key (kbd "C-x f") 'ffap) (global-set-key (kbd "C-x C-b") 'ibuffer) -(global-destroy-trailing-whitespace-mode) - (setq require-final-newline t) (setq-default indent-tabs-mode nil) @@ -112,6 +109,12 @@ (with-eval-after-load 'browse-url (setq browse-url-browser-function 'browse-url-firefox)) +(defun init--destroy-trailing-whitespace () + "Delete trailing whitespace everywhere, except in Markdown buffers." + (if (not (eq major-mode 'markdown-mode)) + (delete-trailing-whitespace))) + +(add-hook 'before-save-hook #'init--destroy-trailing-whitespace) (add-hook 'minibuffer-setup-hook 'electric-pair-local-mode) (with-eval-after-load 'paredit diff --git a/emacs/.emacs.d/vendor-lisp/destroy-trailing-whitespace/destroy-trailing-whitespace.el b/emacs/.emacs.d/vendor-lisp/destroy-trailing-whitespace/destroy-trailing-whitespace.el deleted file mode 100644 index ed170df..0000000 --- a/emacs/.emacs.d/vendor-lisp/destroy-trailing-whitespace/destroy-trailing-whitespace.el +++ /dev/null @@ -1,66 +0,0 @@ -;;; destroy-trailing-whitespace.el --- Destroy all trailing whitespace -*- lexical-binding: t; -*- - -;; Copyright (C) 2016 Tom Willemse - -;; Author: Tom Willemse -;; Keywords: convenience - -;; 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 . - -;;; Commentary: - -;; This library offers a single mode that will delete all trailing -;; whitespace before saving any file. It tries to be intelligent -;; enough to only do this for modes where trailing whitespace is not -;; meaningful. Currently it only keeps whitespace around in -;; `markdown-mode' since it uses two spaces at the end of a line to -;; signify a line break. -;; -;; To use this mode in all buffers, add the following to your init -;; file: -;; -;; (require 'destroy-trailing-whitespace) -;; (global-destroy-trailing-whitespace-mode) -;; -;; To use this mode in just some buffers add it to your preferred -;; hook. For example, to use it only in `prog-mode' buffers: -;; -;; (require 'destroy-trailing-whitespace) -;; (add-hook 'prog-mode-hook 'destroy-trailing-whitespace-mode) - -;;; Code: - -(defun destroy-trailing-whitespace () - "Delete trailing whitespace everywhere, except in Markdown buffers." - (if (not (eq major-mode 'markdown-mode)) - (delete-trailing-whitespace))) - -;;;###autoload -(define-minor-mode destroy-trailing-whitespace-mode - "Destroy all trailing whitespace before saving the buffer." - :lighter "" - (if destroy-trailing-whitespace-mode - (add-hook 'before-save-hook 'delete-trailing-whitespace nil :local) - (remove-hook 'before-save-hook 'delete-trailing-whitespace :local))) - -;;;###autoload -(define-minor-mode global-destroy-trailing-whitespace-mode - "Destroy all trailing whitespace before saving any open buffer." - :lighter "" :global t - (if global-destroy-trailing-whitespace-mode - (add-hook 'before-save-hook 'destroy-trailing-whitespace) - (remove-hook 'before-save-hook 'destroy-trailing-whitespace))) - -(provide 'destroy-trailing-whitespace) -;;; destroy-trailing-whitespace.el ends here