blob: 307cedaa76f1ea25ff5b3e3ec8a02dfb589ca390 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(define-module (px packages multimedia)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages music)
#:use-module (gnu packages video))
(define-public px-music-player
(package
(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))))))))
(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"))))))))))
|
