ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: qemu: Move HTML documentation to the doc output.

Browse source 
* gnu/packages/virtualization.scm (qemu)[outputs]: Add "doc" output.
[phases]{create-samba-wrapper}: Correctly refer to the outputs keyword
argument.
{move-html-doc}: Add phase.
This commit is contained in:
Maxim Cournoyer 2020-09-18 09:35:13 -04:00
parent 38197bb509
commit 4d82e8e5c5
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/virtualization.scm
View file

@ -139,6 +139,7 @@ (define-public qemu
(base32 (base32
"1rd41wwlvp0vpialjp2czs6i3lsc338xc72l3zkbb7ixjfslw5y9")) "1rd41wwlvp0vpialjp2czs6i3lsc338xc72l3zkbb7ixjfslw5y9"))
(patches (search-patches "qemu-build-info-manual.patch")))) (patches (search-patches "qemu-build-info-manual.patch"))))
(outputs '("out" "doc")) ;4.7 MiB of HTML docs
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(;; FIXME: Disable tests on i686 to work around `(;; FIXME: Disable tests on i686 to work around
@ -239,7 +240,7 @@ (define-public qemu
;; Samba in your Guix profile for Samba support. ;; Samba in your Guix profile for Samba support.
(add-after 'install 'create-samba-wrapper (add-after 'install 'create-samba-wrapper
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref %outputs "out")) (let* ((out (assoc-ref outputs "out"))
(libexec (string-append out "/libexec"))) (libexec (string-append out "/libexec")))
(call-with-output-file "samba-wrapper" (call-with-output-file "samba-wrapper"
(lambda (port) (lambda (port)
@ -247,6 +248,15 @@ (define-public qemu
exec smbd $@"))) exec smbd $@")))
(chmod "samba-wrapper" #o755) (chmod "samba-wrapper" #o755)
(install-file "samba-wrapper" libexec)) (install-file "samba-wrapper" libexec))
#t))
(add-after 'install 'move-html-doc
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (assoc-ref outputs "doc"))
(qemu-doc (string-append doc "/share/doc/qemu-" ,version)))
(mkdir-p qemu-doc)
(rename-file (string-append out "/share/doc/qemu")
(string-append qemu-doc "/html")))
#t))))) #t)))))
(inputs ; TODO: Add optional inputs. (inputs ; TODO: Add optional inputs.
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)