mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-14 19:10:49 +02:00
Code Releases Activity

gnu: emacs-pulseaudio-control: Use search-input-file.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-pulseaudio-control):
  [arguments]<phases>: Improve 'patch-file-name style.

Signed-off-by: Ian Eure <ian@retrospec.tv>
This commit is contained in:
Nicolas Graves 2025-05-18 10:16:17 +02:00 • committed by Liliana Marie Prikler
parent fdb799491b
commit f5d71418b1
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/emacs-xyz.scm
View file

@ -27475,10 +27475,9 @@ orient yourself in the code, and tell which statements are at a given level.")
#:phases #~(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-file-name (add-after 'unpack 'patch-file-name
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((pulseaudio (assoc-ref inputs "pulseaudio"))) (emacs-substitute-variables "pulseaudio-control.el"
(emacs-substitute-variables "pulseaudio-control.el" ("pulseaudio-control-pactl-path"
("pulseaudio-control-pactl-path" (search-input-file inputs "bin/pactl"))))))))
(string-append pulseaudio "/bin/pactl")))))))))
(inputs (list pulseaudio)) (inputs (list pulseaudio))
(home-page "https://git.sr.ht/~flexibeast/pulseaudio-control") (home-page "https://git.sr.ht/~flexibeast/pulseaudio-control")
(synopsis "Control Pulseaudio from Emacs") (synopsis "Control Pulseaudio from Emacs")