From 2b7e7a0165dc957b90af90b94b712e68bf549b66 Mon Sep 17 00:00:00 2001
From: Anderson Torres <anderson.torres.8519@gmail.com>
Date: Mon, 24 Nov 2025 17:19:28 -0300
Subject: [PATCH] gnu: livemedia-utils: Use gexps.

* gnu/packages/video.scm (livemedia-utils): Clean up.
[source]: Explain the origin.
[arguments]: Convert to gexp style.

Change-Id: I0c3b52890bed71be729d24c4dc24f2d2e583177c
Signed-off-by: Andreas Enge <andreas@enge.fr>
---
 gnu/packages/video.scm | 54 +++++++++++++++++++++++-------------------
 1 file changed, 29 insertions(+), 25 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 5f4d3b4d54b45b6c6583aea3aa6d9698b2c90684..545c3f6529a09cfceb708792b5233acfee856cda 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -5521,33 +5521,37 @@ iTunes-style metadata.")
   (package
     (name "livemedia-utils")
     (version "2020.11.19")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append
-                    "https://download.videolan.org/contrib/live555/live."
-                    version ".tar.gz"))
-              (sha256
-               (base32
-                "16w6yxdbmjdhvffnrb752dn4llf3l0wb00dgdkyia0vqsv2qqyn7"))))
+    (source
+     (origin
+       (method url-fetch)
+       ;; live555 home-page provides only the latest release; see
+       ;; <http://lists.live555.com/pipermail/live-devel/2011-November/014131.html>.
+       ;; Let's use a set of unofficial mirrors for now.
+       (uri (string-append
+             "https://download.videolan.org/contrib/live555/live."
+             version ".tar.gz"))
+       (sha256
+        (base32
+         "16w6yxdbmjdhvffnrb752dn4llf3l0wb00dgdkyia0vqsv2qqyn7"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f                      ; no tests
-       #:make-flags (list (string-append "CC=" ,(cc-for-target))
-                          (string-append "CXX=" ,(cxx-for-target))
-                          (string-append "LDFLAGS=-Wl,-rpath="
-                                         (assoc-ref %outputs "out") "/lib")
-                          (string-append "PREFIX="
-                                         (assoc-ref %outputs "out")))
-       #:phases (modify-phases %standard-phases
-                  (add-before 'configure 'fix-makefiles-generation
-                    (lambda _
-                      (substitute* "genMakefiles"
-                        (("/bin/rm") "rm"))
-                      #t))
-                  (replace 'configure
-                    (lambda _
-                      (invoke "./genMakefiles"
-                              "linux-with-shared-libraries"))))))
+     (list
+      #:tests? #f                       ; No tests.
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "CXX=" #$(cxx-for-target))
+              (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib")
+              (string-append "PREFIX=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'fix-makefiles-generation
+            (lambda _
+              (substitute* "genMakefiles"
+                (("/bin/rm") "rm"))
+              #t))
+          (replace 'configure
+            (lambda _
+              (invoke "./genMakefiles" "linux-with-shared-libraries"))))))
     (inputs
      (list openssl))
     (home-page "http://www.live555.com/liveMedia/")