mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
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
1 changed files with 12 additions and 1 deletions
|
@ -177,6 +177,9 @@ (define manual-source
|
||||||
#: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 @@ (define (normalize language)
|
||||||
""
|
""
|
||||||
(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 a new issue