branch staging updated: gnu: libical: Use local docbook-xml package.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

efraim pushed a commit to branch staging
in repository guix.

The following commit(s) were added to refs/heads/staging by this push:
     new 17e8816  gnu: libical: Use local docbook-xml package.
17e8816 is described below

commit 17e88168c3abb87ede709b18e376cdd4fe643b27
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Sep 21 23:09:33 2020 +0300

    gnu: libical: Use local docbook-xml package.
    
    * gnu/packages/calendar.scm (libical)[native-inputs]: Add
    docbook-xml-4.3.
    [arguments]: Add phase to substitute docbook location.
---
 gnu/packages/calendar.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/calendar.scm b/gnu/packages/calendar.scm
index 78f0c98..b7b1ab0 100644
--- a/gnu/packages/calendar.scm
+++ b/gnu/packages/calendar.scm
@@ -37,6 +37,7 @@
   #:use-module (gnu packages base)
   #:use-module (gnu packages check)
   #:use-module (gnu packages dav)
+  #:use-module (gnu packages docbook)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
@@ -131,6 +132,13 @@ the <tz.h> library for handling time zones and leap 
seconds.")
                            "-DICAL_GLIB_VAPI=true")
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'patch-docbook-reference
+           (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* 
"doc/reference/libical-glib/libical-glib-docs.sgml.in"
+               (("http://www.oasis-open.org/docbook/xml/4.3/";)
+                (string-append (assoc-ref inputs "docbook-xml")
+                               "/xml/dtd/docbook/")))
+             #t))
          (add-before 'configure 'patch-paths
            (lambda* (#:key inputs #:allow-other-keys)
              ;; TODO: libical 3.1.0 supports using TZDIR instead of a 
hard-coded
@@ -145,7 +153,8 @@ the <tz.h> library for handling time zones and leap 
seconds.")
                  (("\\\"/usr/share/lib/zoneinfo\\\"") "")))
              #t)))))
     (native-inputs
-     `(("gobject-introspection" ,gobject-introspection)
+     `(("docbook-xml" ,docbook-xml-4.3)
+       ("gobject-introspection" ,gobject-introspection)
        ("gtk-doc" ,gtk-doc)
        ("perl" ,perl)
        ("pkg-config" ,pkg-config)