From 8e48e6c7cefcde2f3f2f9bcaeb11b05b1480cd70 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sun, 2 Mar 2025 10:48:22 -0300
Subject: etc/guix/home.scm: Add improved and customizes mpv and ffmpeg

---
 etc/guix/home.scm | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index aa7c93f..2857889 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -30,7 +30,9 @@
   musl
   python-build
   wm
-  xdisorg)
+  video
+  xdisorg
+  xml)
 (heredoc:enable-syntax)
 
 
@@ -79,6 +81,26 @@
       (modify-inputs (package-native-inputs gcc-14)
         (append flex)))))
 
+(define ffmpeg-7-xml
+  (package
+    (inherit ffmpeg-7)
+    (arguments
+      (substitute-keyword-arguments (package-arguments ffmpeg-7)
+        ((#:configure-flags flags)
+         #~(append
+            #$flags
+            '("--enable-libxml2")))))
+    (inputs
+      (modify-inputs (package-inputs ffmpeg-7)
+        (append libxml2)))))
+
+(define mpv-ffmpeg-7-xml
+  (package
+    (inherit mpv)
+    (propagated-inputs
+      (modify-inputs (package-propagated-inputs mpv)
+        (replace "ffmpeg" ffmpeg-7-xml)))))
+
 
 (define (slurp name)
   (string-trim-both
@@ -485,7 +507,6 @@
             imagemagick
             cups
             libreoffice
-            mpv
             vlc
             font-openmoji
             syncthing-gtk
@@ -510,6 +531,7 @@
      (list
       gm2
       tiniercc
+      mpv-ffmpeg-7-xml
       q:go-full)
      (list
       (script "cronjob"
-- 
cgit v1.2.3