From 2421e68495ffe151ad05b64aea2199a5f7bd7a86 Mon Sep 17 00:00:00 2001
From: Bruno Victal <mirai@makinata.eu>
Date: Mon, 9 Oct 2023 21:05:55 +0100
Subject: [PATCH] gnu: docbook-xml-5.1: Fix URIs in catalog.xml.

* gnu/packages/docbook.scm (docbook-xml-5.1)[source]: Patch version in URI.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 gnu/packages/docbook.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm
index 3175d03539f4e112169b6b37a353dd4784e96e6b..97794f580c668a3ada5daca2e99e74c3ddcfcb97 100644
--- a/gnu/packages/docbook.scm
+++ b/gnu/packages/docbook.scm
@@ -109,7 +109,13 @@ by no means limited to these applications.)  This package provides XML DTDs.")
                                        "/docbook-v" version "-os.zip"))
                    (sha256
                     (base32
-                     "0zqy9prj9wam9dn7v3mgr7ld1axqxdhgrmv06dviwg00ahv43wxk"))))
+                     "0zqy9prj9wam9dn7v3mgr7ld1axqxdhgrmv06dviwg00ahv43wxk"))
+                   (modules '((guix build utils)))
+                   (snippet
+                    ;; The .zip release mistakenly uses '5.1CR4' instead of
+                    ;; '5.1' as intended by <https://docbook.org/xml/5.1/catalog.xml>.
+                    #~(substitute* "schemas/catalog.xml"
+                        (("5\\.1CR4") #$version)))))
          (template (docbook-xml-package source version)))
     (package
       (inherit template)