From fa7dc25c2faa4769b3a053a41bb251dcc1233305 Mon Sep 17 00:00:00 2001 From: Michael Rohleder Date: Sun, 2 May 2021 14:41:12 +0200 Subject: gnu: pioneers: Patch path to beep. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes * gnu/packages/games.scm (pioneers): Patch path to beep. [inputs]: Add beep. [arguments]: Add phase patch-beep-path. Signed-off-by: Ludovic Courtès --- gnu/packages/games.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'gnu/packages/games.scm') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 8bd3c95ebb..f12f2bc53d 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -4711,7 +4711,18 @@ are only two levels to play with, but they are very addictive.") (base32 "07b3xdd81n8ybsb4fzc5lx0813y9crzp1hj69khncf4faj48sdcs")))) (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + ;; Fixes https://issues.guix.gnu.org/47131. + (add-after 'unpack 'patch-beep-path + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "client/gtk/audio.c" + (("\"beep\"") + (string-append "\"" (assoc-ref inputs "beep") "/bin/beep\""))) + #t))))) (inputs `(("avahi" ,avahi) + ("beep" ,beep) ("gtk+" ,gtk+) ("librsvg" ,librsvg))) (native-inputs `(("intltool" ,intltool) -- cgit v1.2.3