summaryrefslogtreecommitdiff
path: root/gnu
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
parent33f4d14ab17096984404fc404b4539d784ecbf32 (diff)
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')
-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