09/11: gnu: emacs-pulseaudio-control: Record the file name of 'pactl'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a14a80da2e5c4daf88870518f1cb9e7d14cb338a
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jul 16 17:07:00 2018 +0200

    gnu: emacs-pulseaudio-control: Record the file name of 'pactl'.
    
    * gnu/packages/emacs.scm (emacs-pulseaudio-control)[arguments, inputs]:
    New fields.
---
 gnu/packages/emacs.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 64064ec..a57f246 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -107,6 +107,7 @@
   #:use-module (gnu packages gd)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages password-utils)
+  #:use-module (gnu packages pulseaudio)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages shells)
   #:use-module (gnu packages gnupg)
@@ -8836,6 +8837,17 @@ navigate and display hierarchy structures.")
           (base32
            "10cgg1r00kz2fsnnryvzay5pf8s1pwb1dzlds1fbjdnyfvdgammv"))))
       (build-system emacs-build-system)
+      (arguments
+       '(#:phases (modify-phases %standard-phases
+                    (add-after 'unpack 'patch-file-name
+                      (lambda* (#:key inputs #:allow-other-keys)
+                        (let ((pulseaudio (assoc-ref inputs "pulseaudio")))
+                          (chmod "pulseaudio-control.el" #o600)
+                          (emacs-substitute-variables "pulseaudio-control.el"
+                            ("pulseaudio-control-pactl-path"
+                             (string-append pulseaudio "/bin/pactl")))
+                          #t))))))
+      (inputs `(("pulseaudio" ,pulseaudio)))
       (home-page "https://github.com/flexibeast/pulseaudio-control";)
       (synopsis "Control @code{pulseaudio} from Emacs")
       (description