diff --git a/radix/packages/video.scm b/radix/packages/video.scm index 8b89c22..e7f78bd 100644 --- a/radix/packages/video.scm +++ b/radix/packages/video.scm @@ -1,5 +1,4 @@ (define-module (radix packages video) - #:use-module (ice-9 match) #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix utils) @@ -14,18 +13,15 @@ #~(list "-Dlibmpv=true" "-Dbuild-date=false")))) (propagated-inputs - (filter (match-lambda - ((package-name _) - (not (member package-name - `("jack" - "libbluray" - "libcdio-paranoia" - "libdvdnav" - "wayland" - "wayland-protocols" - "libdvdread" - "pulseaudio"))))) - (package-propagated-inputs mpv))) + (modify-inputs (package-propagated-inputs mpv) + (delete "jack") + (delete "libbluray") + (delete "libcdio-paranoia") + (delete "libdvdnav") + (delete "wayland") + (delete "wayland-protocols") + (delete "libdvdread") + (delete "pulseaudio"))) (synopsis "Audio and video player") (description "This package provides a minimal build of mpv, the general-purpose audio and video player, for X11."))) @@ -39,23 +35,20 @@ general-purpose audio and video player, for X11."))) #~(list "-Dlibmpv=true" "-Dbuild-date=false")))) (propagated-inputs - (filter (match-lambda - ((package-name _) - (not (member package-name - `("jack" - "libbluray" - "libcdio-paranoia" - "libdvdnav" - "libdvdread" - "libext" - "libx11" - "libxinerama" - "libxpresent" - "libxrandr" - "libxscrnsaver" - "libxv" - "pulseaudio"))))) - (package-propagated-inputs mpv))) + (modify-inputs (package-propagated-inputs mpv) + (delete "jack") + (delete "libbluray") + (delete "libcdio-paranoia") + (delete "libdvdnav") + (delete "libdvdread") + (delete "libext") + (delete "libx11") + (delete "libxinerama") + (delete "libxpresent") + (delete "libxrandr") + (delete "libxscrnsaver") + (delete "libxv") + (delete "pulseaudio"))) (synopsis "Audio and video player") (description "This package provides a minimal build of mpv, the general-purpose audio and video player, for wayland.")))