03/05: gnu: Add libpng-apng-for-librewolf.

[guix-commits]

ieure pushed a commit to branch master
in repository guix.

commit dafdca07eac850c0337ae99f9c2c83c538896127
Author: Ian Eure <i...@retrospec.tv>
AuthorDate: Tue Mar 11 21:24:00 2025 -0700

    gnu: Add libpng-apng-for-librewolf.
    
    * gnu/packages/image.scm (libpng-apng-for-librewolf): New variable.
    
    Change-Id: I2cb700c28478fe30dd750dedf07bde73f6b2ceab
---
 gnu/packages/image.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index 5d29417627..166b2d93a0 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -291,6 +291,39 @@ APNG patch provides APNG support to libpng.")
     (home-page "https://sourceforge.net/projects/libpng-apng/";)
     (license license:zlib)))
 
+;; Temporary, until 76798 merges into core-packages-team, and that merges into
+;; master.
+(define-public libpng-apng-for-librewolf
+  (hidden-package
+   (package
+     (inherit libpng-apng)
+     (version "1.6.46")
+     (source
+      (origin
+        (method url-fetch)
+        (uri (list (string-append "mirror://sourceforge/libpng/libpng16/"
+                                  version "/libpng-" version ".tar.xz")
+                   (string-append
+                    "ftp://ftp.simplesystems.org/pub/libpng/png/src";
+                    "/libpng16/libpng-" version ".tar.xz")
+                   (string-append
+                    "ftp://ftp.simplesystems.org/pub/libpng/png/src/history";
+                    "/libpng16/libpng-" version ".tar.xz")))
+        (sha256
+         (base32
+          "1cbwf20zlm4gcv8rpjivkngrjgl5366w21lr9qmbk2lr0dq8papk"))))
+     (inputs
+      (modify-inputs (package-inputs libpng-apng)
+        (replace "apng"
+          (origin
+            (method url-fetch)
+            (uri
+             (string-append "mirror://sourceforge/libpng-apng/libpng16/"
+                            version "/libpng-" version "-apng.patch.gz"))
+            (sha256
+             (base32
+              "00ykl1bzb79xsjwrq7dl0yz9dz5g3zwj0lry5zam3vs6s3gw5gi9")))))))))
+
 (define-public pngcrush
   (package
    (name "pngcrush")