@@ 82,7 82,7 @@
(define %latest-guix-version
;; Latest released version.
- "1.4.0")
+ "1.5.0")
(define (texinfo-manual-images source)
"Return a directory containing all the images used by the user manual, taken
@@ 777,7 777,8 @@ in SOURCE."
(define version-links
(list (menu-item #$latest-version
(string-append
- "/manual/" language
+ "/manual/" #$latest-version
+ "/" language
(if split-node? "/html_node" "")))
(menu-item "development"
(string-append
@@ 942,7 943,8 @@ makeinfo OPTIONS."
(let* ((texi (language->texi-file-name language))
(opts `("--html"
"-c" ,(string-append "TOP_NODE_UP_URL=/manual/"
- language)
+ #$%latest-guix-version
+ "/" language)
#$@options
,texi)))
(format #t "building HTML manual for language '~a'...~%"