diff mbox series

[bug#65479,core-updates,v3,54/63] gnu: gtk-doc: Rewrite with G-Expressions.

Message ID 44e2151eb152fa73de986d4e46f612351d012007.1696881354.git.mirai@makinata.eu
State New
Headers show
Series Docbook & XML/SGML improvements | expand

Commit Message

Bruno Victal Oct. 9, 2023, 8:06 p.m. UTC 
* gnu/packages/gtk.scm (gtk-doc): Rewrite with G-Expressions.
---
 gnu/packages/gtk.scm | 46 +++++++++++++++++++++++---------------------
 1 file changed, 24 insertions(+), 22 deletions(-)
diff mbox series

Patch

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index dcb503fb6a..f4c9ac6e9e 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -2170,36 +2170,38 @@  (define-public gtk-doc
                (search-patches "gtk-doc-respect-xml-catalog.patch"))))
     (build-system meson-build-system)
     (arguments
-     `(#:parallel-tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-gtk-doc-scan
-           (lambda* (#:key inputs #:allow-other-keys)
+     (list
+      #:parallel-tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-gtk-doc-scan
+            ;; Use a substitution to avoid setting docbook-xsl as a
+            ;; propagated input.
+            (lambda _
              (substitute* "gtk-doc.xsl"
                (("http://docbook.sourceforge.net/release/xsl/current/html/chunk.xsl")
-                (string-append (assoc-ref inputs "docbook-xsl")
-                               "/xml/xsl/docbook-xsl-"
-                               ,(package-version docbook-xsl)
-                               "/html/chunk.xsl"))
+                #$(let ((docbook-xsl (this-package-input "docbook-xsl")))
+                    (file-append docbook-xsl
+                                 "/xml/xsl/" (package-name docbook-xsl)
+                                 "-" (package-version docbook-xsl)
+                                 "/html/chunk.xsl")))
                (("http://docbook.sourceforge.net/release/xsl/current/common/en.xml")
-                (string-append (assoc-ref inputs "docbook-xsl")
-                               "/xml/xsl/docbook-xsl-"
-                               ,(package-version docbook-xsl)
-                               "/common/en.xml")))
-             #t))
+                #$(let ((docbook-xsl (this-package-input "docbook-xsl")))
+                    (file-append docbook-xsl
+                                 "/xml/xsl/" (package-name docbook-xsl)
+                                 "-" (package-version docbook-xsl)
+                                 "/common/en.xsl"))))))
          (add-after 'unpack 'disable-failing-tests
            (lambda _
              (substitute* "tests/Makefile.am"
                (("annotations.sh bugs.sh empty.sh fail.sh gobject.sh program.sh")
-                ""))
-             #t))
+                ""))))
          (add-after 'install 'wrap-executables
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (for-each (lambda (prog)
-                           (wrap-program prog
-                             `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))))
-                         (find-files (string-append out "/bin")))))))))
+           (lambda _
+             (for-each (lambda (prog)
+                         (wrap-program prog
+                           `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))))
+                       (find-files (string-append #$output "/bin"))))))))
     (native-inputs
      (list gettext-minimal
            `(,glib "bin")