futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: gtk-doc: Rewrite with G-Expressions.

Browse Source 
* gnu/packages/gtk.scm (gtk-doc): Rewrite with G-Expressions.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Bruno Victal 2023-10-09 21:06:42 +01:00 committed by Ludovic Courtès
parent ea6595badf
commit f9660a2cfa
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
gnu/packages/gtk.scm
View File

@ -2259,36 +2259,38 @@ information.")
(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")