diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-16 10:37:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-16 10:38:16 +0200 |
| commit | f309441b4962c6ced0ba7e201c3f8ca90825ccec (patch) | |
| tree | 4d4b06c07d7b6a3d6cec2fd6bec3fc1ac182ae23 | |
| parent | 0c04bdb948717775f6143f5b0e93fcc5c41b169b (diff) | |
| download | guix-f309441b4962c6ced0ba7e201c3f8ca90825ccec.tar.gz | |
doc: Add 'images' directory next to HTML pages.
* doc/build.scm (html-manual): Add images/ symlinks.
| -rw-r--r-- | doc/build.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/doc/build.scm b/doc/build.scm index a2f353a090..7ba9f57bc9 100644 --- a/doc/build.scm +++ b/doc/build.scm @@ -177,6 +177,9 @@ makeinfo OPTIONS." #:languages languages #:date date)) + (define images + (texinfo-manual-images source)) + (define build (with-imported-modules '((guix build utils)) #~(begin @@ -228,7 +231,15 @@ makeinfo OPTIONS." "" (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)) |