02/02: gnu: emacs-ewmctrl: Make sure wmctrl is in the right place.

[Oleg Pykhalov]

wigust pushed a commit to branch master
in repository guix.

commit 0bcb9258172eee531cec199ec0b33a8e622b3e06
Author: Oleg Pykhalov <address@hidden>
Date:   Fri May 11 11:06:10 2018 +0300

    gnu: emacs-ewmctrl: Make sure wmctrl is in the right place.
    
    * gnu/packages/emacs.scm (emacs-ewmctrl): Make sure 'wmctrl' is in the right
    place.
---
 gnu/packages/emacs.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index f7f5341..5788f54 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -105,6 +105,7 @@
   #:use-module (gnu packages gd)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages password-utils)
+  #:use-module (gnu packages xdisorg)
   #:use-module (guix utils)
   #:use-module (srfi srfi-1)
   #:use-module (ice-9 match))
@@ -8363,6 +8364,19 @@ arXiv, Google Scholar, Library of Congress, etc.
           (base32
            "0ilwvx0qryv3v6xf0gxqwnfm6pf96gxap8h9g3f6z6lk9ff4n1wi"))))
       (build-system emacs-build-system)
+      (arguments
+       '(#:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'patch-ewmctrl
+             ;; This build phase makes sure ‘ewmctrl’ looks
+             ;; for ‘wmctrl’ in the right place.
+             (lambda _
+               (let ((file "ewmctrl.el"))
+                 (chmod file #o644)
+                 (emacs-substitute-sexps file
+                   ("(defcustom ewmctrl-wmctrl-path" (which "wmctrl")))))))))
+      (inputs
+       `(("wmctrl" ,wmctrl)))
       (home-page "https://github.com/flexibeast/ewmctrl";)
       (synopsis "Emacs interface to @code{wmctrl}")
       (description "@code{ewmctrl} provides an Emacs interface to