From e9d073dbf37323d11bddae32a1c54d65864959be Mon Sep 17 00:00:00 2001
Message-Id: <e9d073dbf37323d11bddae32a1c54d65864959be.1678010569.git.tsyesika@tsyesika.se>
In-Reply-To: <cover.1678010569.git.tsyesika@tsyesika.se>
References: <cover.1678010569.git.tsyesika@tsyesika.se>
From: Jessica Tallon <tsyesika@tsyesika.se>
Date: Sun, 5 Mar 2023 10:43:58 +0100
Subject: [PATCH 1/2] gnu: fix svtplay-dl wrapping to use ffmpeg

* gnu/packages/video.scm (svtplay-dl): Wrap program to give access to ffmpeg.
---
 gnu/packages/video.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 13299fdf06..721f7c4d4e 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -64,6 +64,7 @@
 ;;; Copyright © 2022 Chadwain Holness <chadwainholness@gmail.com>
 ;;; Copyright © 2022 Andy Tai <atai@atai.org>
 ;;; Copyright © 2023 Ott Joon <oj@vern.cc>
+;;; Copyright © 2023 Jessica Tallon <tsyesika@tsyesika.se>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -5690,8 +5691,19 @@ (define-public svtplay-dl
                (base32
                 "0yjxmvldskw4pji3lg69pbx05izvxahz9my7z5p31mkiz6v33dmx"))))
     (build-system python-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'wrap-executable
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out"))
+                    (ffmpeg (assoc-ref inputs "ffmpeg")))
+                (wrap-program (string-append out "/bin/svtplay-dl")
+                  `("PATH" ":" prefix
+                    ,(list (string-append ffmpeg "/bin"))))))))))
     (inputs (list ffmpeg python-pyaml python-requests python-pysocks
-                  python-cryptography))
+                  python-cryptography bash-minimal))
     (home-page "https://svtplay-dl.se/")
     (synopsis "Download or stream SVT Play's (and others) TV programmes")
     (description
-- 
2.39.1