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

* doc/build.scm (html-manual): Add images/ symlinks.
2019-07-16 10:37:12 +02:00 · 2019-07-16 10:37:12 +02:00 · e3e9c191ed
parent 4fde0030d4
commit e3e9c191ed
1 changed files with 12 additions and 1 deletions
--- 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))