16/44: gnu: libsigc++-2: Remove patch-docbook-xml phase.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 71b596a928c3f94e0e295cb859ce02dd8944f176
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Thu Apr 20 15:45:45 2023 -0400

    gnu: libsigc++-2: Remove patch-docbook-xml phase.
    
    * gnu/packages/glib.scm (libsigc++-2) [arguments]: Remove patch-docbook-xml 
phase.
    Remove trailing #t.  Use gexps.
---
 gnu/packages/glib.scm | 31 ++++++++++---------------------
 1 file changed, 10 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index cb9640937c..6327d0c8b1 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -836,8 +836,8 @@ dissimilar callbacks and has an ease of use unmatched by 
other C++ callback
 libraries.")
     (license license:lgpl3+)))
 
- (define-public libsigc++-2
-   (package
+(define-public libsigc++-2
+  (package
     (inherit libsigc++)
     (name "libsigc++")
     (version "2.9.3")
@@ -852,25 +852,14 @@ libraries.")
         (base32 "0zq963d0sss82q62fdfjs7l9iwbdch51albck18cb631ml0v7y8b"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-docbook-xml
-           (lambda* (#:key inputs #:allow-other-keys)
-             (with-directory-excursion "docs"
-               (substitute* (find-files "." "\\.xml$")
-                 (("http://www.oasis-open.org/docbook/xml/4\\.1\\.2/";)
-                  (string-append (assoc-ref inputs "docbook-xml")
-                                 "/xml/dtd/docbook/"))))
-             #t))
-         (add-after 'install 'move-doc
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (doc (assoc-ref outputs "doc")))
-               (mkdir-p (string-append doc "/share"))
-               (rename-file
-                (string-append out "/share/doc")
-                (string-append doc "/share/doc"))
-               #t))))))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'move-doc
+                 (lambda _
+                   (mkdir-p (string-append #$output:doc "/share"))
+                   (rename-file
+                    (string-append #$output "/share/doc")
+                    (string-append #$output:doc "/share/doc")))))))))
 
 (define glibmm
   (package