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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e3e9c191ed045234aa2929c12f6916eeb201744e
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jul 16 10:37:12 2019 +0200

    doc: Add 'images' directory next to HTML pages.
    
    * doc/build.scm (html-manual): Add images/ symlinks.
---
 doc/build.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/doc/build.scm b/doc/build.scm
index a2f353a..7ba9f57 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))