427/478: gnu: emacs-pulseaudio-control: Use search-input-file.

2025-06-15 Thread guix-commits 
guix_mirror_bot pushed a commit to branch emacs-team
in repository guix.

commit 9932623dc0b1f300273290223566587edf9b8c0f
Author: Nicolas Graves 
AuthorDate: Sun May 18 10:16:17 2025 +0200

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

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

Signed-off-by: Ian Eure 
---
 gnu/packages/emacs-xyz.scm | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index e102b30e1a..bb3613a557 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27475,10 +27475,9 @@ orient yourself in the code, and tell which statements 
are at a given level.")
 #: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")

427/478: gnu: emacs-pulseaudio-control: Use search-input-file.

2025-06-15 Thread guix-commits 
guix_mirror_bot pushed a commit to branch master
in repository guix.

commit f5d71418b1ce035dd9f341d95b042411dff12ccc
Author: Nicolas Graves 
AuthorDate: Sun May 18 10:16:17 2025 +0200

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

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

Signed-off-by: Ian Eure 
---
 gnu/packages/emacs-xyz.scm | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index e102b30e1a..bb3613a557 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -27475,10 +27475,9 @@ orient yourself in the code, and tell which statements 
are at a given level.")
 #: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")