doc: Add 'images' directory next to HTML pages.
* doc/build.scm (html-manual): Add images/ symlinks.
This commit is contained in:
parent
4fde0030d4
commit
e3e9c191ed
|
@ -177,6 +177,9 @@ makeinfo OPTIONS."
|
||||||
#:languages languages
|
#:languages languages
|
||||||
#:date date))
|
#:date date))
|
||||||
|
|
||||||
|
(define images
|
||||||
|
(texinfo-manual-images source))
|
||||||
|
|
||||||
(define build
|
(define build
|
||||||
(with-imported-modules '((guix build utils))
|
(with-imported-modules '((guix build utils))
|
||||||
#~(begin
|
#~(begin
|
||||||
|
@ -228,7 +231,15 @@ makeinfo OPTIONS."
|
||||||
""
|
""
|
||||||
(string-append "." language))
|
(string-append "." language))
|
||||||
".html")
|
".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))))
|
'#$languages))))
|
||||||
|
|
||||||
(computed-file (string-append manual "-html-manual") build))
|
(computed-file (string-append manual "-html-manual") build))
|
||||||
|
|
Loading…
Reference in New Issue