gnu: glibmm: Enable documentation.

* gnu/packages/glib.scm (glibmm)[outputs]: New output "doc".
[arguments]<#:configure-flags>[-Dbuild-documentation]: New flag.
<#:phases>['move-doc]: New phase.
[native-inputs]: Add doxygen and graphviz.

Signed-off-by: Léo Le Bouter <lle-bout@zaclys.net>
This commit is contained in:
Raghav Gururajan 2021-03-25 03:04:01 -04:00
parent 4a69d20a53
commit 51bb94ffb3
No known key found for this signature in database
GPG key ID: 45A8B1E86BCD10A6

View file

@ -644,8 +644,12 @@ (define glibmm
(base32 (base32
"0xgkyhb2876mcyyib5rk3ya9aingyj68h02nl22yvkhx35rqbwy1")))) "0xgkyhb2876mcyyib5rk3ya9aingyj68h02nl22yvkhx35rqbwy1"))))
(build-system meson-build-system) (build-system meson-build-system)
(outputs '("out" "doc"))
(arguments (arguments
`(#:phases `(#:configure-flags
(list
"-Dbuild-documentation=true")
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'disable-failing-tests (add-after 'unpack 'disable-failing-tests
(lambda _ (lambda _
@ -656,9 +660,20 @@ (define glibmm
;; This test does a DNS lookup, and then expects to be able ;; This test does a DNS lookup, and then expects to be able
;; to open a TLS session; just skip it. ;; to open a TLS session; just skip it.
(("[ \t]*.*giomm_tls_client.*$") "")) (("[ \t]*.*giomm_tls_client.*$") ""))
#t))))) #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))))))
(native-inputs (native-inputs
`(("glib:bin" ,glib "bin") `(("dot" ,graphviz)
("doxygen" ,doxygen)
("glib:bin" ,glib "bin")
("m4" ,m4) ("m4" ,m4)
("mm-common" ,mm-common) ("mm-common" ,mm-common)
("perl" ,perl) ("perl" ,perl)