doc: Add 'images' directory next to HTML pages.

* doc/build.scm (html-manual): Add images/ symlinks.
This commit is contained in:
Ludovic Courtès 2019-07-16 10:37:12 +02:00
parent 4fde0030d4
commit e3e9c191ed
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -177,6 +177,9 @@ (define manual-source
#:languages languages
#:date date))
(define images
(texinfo-manual-images source))
(define build
(with-imported-modules '((guix build utils))
#~(begin
@ -228,7 +231,15 @@ (define (normalize language)
""
(string-append "." language))
".html")
opts)))
opts)
;; Make sure images are available.
(symlink #$images
(string-append #$output "/" (normalize language)
"/images"))
(symlink #$images
(string-append #$output "/" (normalize language)
"/html_node/images"))))
'#$languages))))
(computed-file (string-append manual "-html-manual") build))