Subject: [bug#29635] [PATCH] gnu: Add emacs-ws-butler.

From: Maxim Cournoyer <[email-masked]>
Date: Sat, 09 Dec 2017 22:01:12 -0500

Hello Guix!

This adds emacs-ws-butler, which is handy to keep whitespace characters in
check!

To enable it, you can put the following in your .emacs:

--8<---------------cut here---------------start------------->8---
;;; Automatically trim whitespace
(add-hook 'prog-mode-hook #'ws-butler-mode)
--8<---------------cut here---------------end--------------->8---

Thank you,

Maxim

From 7a70ad4969a0d2a2d21226e734edcd36d0f8a3e1 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <[email-masked]>
Date: Sat, 9 Dec 2017 18:48:11 -0500
Subject: [PATCH] gnu: Add emacs-ws-butler.

* gnu/packages/emacs.scm (emacs-ws-butler): New variable.
---
 gnu/packages/emacs.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 77da8f2f2..6dac913af 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -31,6 +31,7 @@
 ;;; Copyright © 2017 Peter Mikkelsen <[email-masked]>
 ;;; Copyright © 2017 Tobias Geerinckx-Rice <[email-masked]>
 ;;; Copyright © 2017 Mike Gerwitz <[email-masked]>
+;;; Copyright © 2017 Maxim Cournoyer <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -5955,6 +5956,35 @@ available key bindings that follow C-x (or as many as space allows given your
 settings).")
     (license license:gpl3+)))
 
+(define-public emacs-ws-butler
+  (package
+    (name "emacs-ws-butler")
+    (version "0.6")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/lewang/ws-butler.git")
+                    (commit "323b651dd70ee40a25accc940b8f80c3a3185205")))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "1a4b0lsmwq84qfx51c5xy4fryhb1ysld4fhgw2vr37izf53379sb"))))
+    (build-system emacs-build-system)
+    (native-inputs
+     `(("ert-runner" ,ert-runner)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'check
+           (lambda _
+             (zero? (system* "ert-runner" "tests")))))))
+    (home-page "https://github.com/lewang/ws-butler")
+    (synopsis "Trim spaces from end of lines")
+    (description
+     "This Emacs package automatically and unobtrusively trims whitespace
+characters from end of lines.")
+    (license license:gpl3+)))
+
 (define-public emacs-org-edit-latex
   (package
     (name "emacs-org-edit-latex")
-- 
2.14.1