diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 0f727a6e9e..0e037fb24b 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -3836,7 +3836,41 @@ programmers to access a standard API to open and decompress media files.") ("hunspell" ,hunspell) ("mesa" ,mesa) ("libass" ,libass) - ("alsa-lib" ,alsa-lib) + ("alsa-lib-with-pulseaudio-plugin" + ,(package + (inherit alsa-lib) + (name "alsa-lib-with-pulseaudio-plugin") + (source #f) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build union) + (guix build utils)) + #:builder + (begin + (use-modules (ice-9 match) + (guix build union) + (guix build utils)) + (let ((out (assoc-ref %outputs "out"))) + (match %build-inputs + (((names . directories) ...) + (union-build out + directories + #:create-all-directories? #f) + #t)) + ;; do stuff here + (find-files (string-append out "/lib/alsa-lib/") + (lambda (found stat) + (symlink-relative + found + (string-append + out + "/lib/" + (basename found))) + #t))) + #t))) + (inputs + `(("alsa-lib" ,alsa-lib) + ("alsa-plugins:pulseaudio" ,alsa-plugins "pulseaudio"))))) ("pulseaudio" ,pulseaudio) ("libx11" ,libx11) ("freetype" ,freetype)