diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-07-16 17:07:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-07-16 17:14:39 +0200 |
| commit | a14a80da2e5c4daf88870518f1cb9e7d14cb338a (patch) | |
| tree | fe5b9d530702f9229c558c41df15301961217ca6 | |
| parent | 33f4d14ab17096984404fc404b4539d784ecbf32 (diff) | |
| download | guix-a14a80da2e5c4daf88870518f1cb9e7d14cb338a.tar.gz | |
gnu: emacs-pulseaudio-control: Record the file name of 'pactl'.
* gnu/packages/emacs.scm (emacs-pulseaudio-control)[arguments, inputs]: New fields.
| -rw-r--r-- | gnu/packages/emacs.scm | 12 |
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 |