From 47b4c9c854915df93893dbaa993accfacf9027fe Mon Sep 17 00:00:00 2001 From: Franz Geffke Date: Mon, 6 Nov 2023 20:08:14 +0000 Subject: rewrite: apply guix-reference formatting; cleanup some module imports --- px/packages/multimedia.scm | 34 ++++++++++++++++------------------ 1 file changed, 16 insertions(+), 18 deletions(-) (limited to 'px/packages/multimedia.scm') diff --git a/px/packages/multimedia.scm b/px/packages/multimedia.scm index e43f50e..307ceda 100644 --- a/px/packages/multimedia.scm +++ b/px/packages/multimedia.scm @@ -9,28 +9,26 @@ (inherit strawberry) (name "px-music-player") (arguments - (substitute-keyword-arguments (package-arguments strawberry) - ((#:phases phases) - `(modify-phases ,phases - (add-after 'unpack 'patch-app-name - (lambda _ - (substitute* '("dist/unix/org.strawberrymusicplayer.strawberry.desktop") - (("Name=Strawberry\n") "Name=Music\n")) - #t)))))))) - + (substitute-keyword-arguments (package-arguments strawberry) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'unpack 'patch-app-name + (lambda _ + (substitute* '("dist/unix/org.strawberrymusicplayer.strawberry.desktop") + (("Name=Strawberry\n") + "Name=Music\n")) #t)))))))) (define-public px-video-player (package (inherit mpv) (name "px-video-player") (arguments - (substitute-keyword-arguments (package-arguments mpv) - ((#:phases phases) - `(modify-phases ,phases - (add-after 'unpack 'patch-paths - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "etc/mpv.desktop" - (("mpv Media Player") "Px Video Player")))))))) - )) - + (substitute-keyword-arguments (package-arguments mpv) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'unpack 'patch-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "etc/mpv.desktop" + (("mpv Media Player") + "Px Video Player")))))))))) -- cgit v1.2.3