initial commit

1 files changed, 36 insertions, 0 deletions

diff --git a/px/packages/multimedia.scm b/px/packages/multimedia.scm
new file mode 100644
index 0000000..e43f50e
--- /dev/null
+++ b/px/packages/multimedia.scm
@@ -0,0 +1,36 @@
+(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"))))))))
+  ))
+
+