diff options
Diffstat (limited to 'px/packages/multimedia.scm')
| -rw-r--r-- | px/packages/multimedia.scm | 34 |
1 files changed, 16 insertions, 18 deletions
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")))))))))) |