summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-16 17:07:00 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-16 17:14:39 +0200
commita14a80da2e5c4daf88870518f1cb9e7d14cb338a (patch)
treefe5b9d530702f9229c558c41df15301961217ca6 /gnu/packages
parent33f4d14ab17096984404fc404b4539d784ecbf32 (diff)
downloadguix-a14a80da2e5c4daf88870518f1cb9e7d14cb338a.tar.gz
gnu: emacs-pulseaudio-control: Record the file name of 'pactl'.
* gnu/packages/emacs.scm (emacs-pulseaudio-control)[arguments, inputs]:
New fields.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/emacs.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 64064ec513..a57f246547 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