[bug#78315,v3,18/53] gnu: emacs-pulseaudio-control: Use search-input-file.

Message ID 20250518081658.11362-18-ngraves@ngraves.fr
State New
Headers
Series [bug#78315,v3,01/53] gnu: emacs-emms: Fix build. |

Commit Message

Nicolas Graves May 18, 2025, 8:16 a.m. UTC
  * gnu/packages/emacs-xyz.scm (emacs-pulseaudio-control):
  [arguments]<phases>: Improve 'patch-file-name style.
---
 gnu/packages/emacs-xyz.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)
  

Patch

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 58611b000b..79bb917a7b 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27200,10 +27200,9 @@  (define-public emacs-pulseaudio-control
         #:phases #~(modify-phases %standard-phases
                      (add-after 'unpack 'patch-file-name
                        (lambda* (#:key inputs #:allow-other-keys)
-                         (let ((pulseaudio (assoc-ref inputs "pulseaudio")))
-                           (emacs-substitute-variables "pulseaudio-control.el"
-                             ("pulseaudio-control-pactl-path"
-                              (string-append pulseaudio "/bin/pactl")))))))))
+                         (emacs-substitute-variables "pulseaudio-control.el"
+                           ("pulseaudio-control-pactl-path"
+                            (search-input-file inputs "bin/pactl"))))))))
       (inputs (list pulseaudio))
       (home-page "https://git.sr.ht/~flexibeast/pulseaudio-control")
       (synopsis "Control Pulseaudio from Emacs")