From 65cdd4287b62d69bff6526f2d05536336c1d4cb3 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Sun, 2 Apr 2023 22:05:20 -0400 Subject: gnu: strawberry: Use gexps and remove input labels. * gnu/packages/music.scm (strawberry) [arguments]: Use gexps. Use search-input-file in wrap-program and pre-check phases. --- gnu/packages/music.scm | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 50dacf3b23..ae57600c22 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -569,8 +569,8 @@ you create custom user interfaces for your MIDI hardware.") (let ((bundled '("singleapplication"))) (if (not (string-match - (string-append ".?*(" (string-join bundled "|") ")") - dir)) + (string-append ".?*(" (string-join bundled "|") ")") + dir)) (delete-file-recursively dir)))) (find-files "3rdparty" (lambda (file stat) @@ -582,23 +582,23 @@ you create custom user interfaces for your MIDI hardware.") #:phases (modify-phases %standard-phases (add-after 'install 'wrap-program - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) - (wrap-program (string-append out "/bin/strawberry") - `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))))) + (lambda* (#:key outputs #:allow-other-keys) + (wrap-program (search-input-file outputs "bin/strawberry") + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix + (,(getenv "GST_PLUGIN_SYSTEM_PATH")))))) (add-before 'check 'pre-check - (lambda* (#:key inputs #:allow-other-keys) - (let ((xorg-server (assoc-ref inputs "xorg-server"))) - (system (format #f "~a/bin/Xvfb :1 &" xorg-server)) - (setenv "DISPLAY" ":1") - (setenv "HOME" (getcwd)))))))) + (lambda* (#:key native-inputs inputs #:allow-other-keys) + (system (format #f "~a :1 &" + (search-input-file (or native-inputs inputs) + "bin/Xvfb"))) + (setenv "DISPLAY" ":1") + (setenv "HOME" (getcwd))))))) (native-inputs - `(("gettext" ,gettext-minimal) - ("googletest" ,googletest) - ("pkg-config" ,pkg-config) - ("qtlinguist" ,qttools) - ("xorg-server" ,xorg-server-for-tests))) + (list gettext-minimal + googletest + pkg-config + qttools + xorg-server-for-tests)) (inputs (list alsa-lib boost -- cgit 1.4.1