diff options
| -rw-r--r-- | doc/build.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/doc/build.scm b/doc/build.scm index ae17a08a3c3..028dd24a615 100644 --- a/doc/build.scm +++ b/doc/build.scm | |||
| @@ -82,7 +82,7 @@ | |||
| 82 | 82 | ||
| 83 | (define %latest-guix-version | 83 | (define %latest-guix-version |
| 84 | ;; Latest released version. | 84 | ;; Latest released version. |
| 85 | "1.4.0") | 85 | "1.5.0") |
| 86 | 86 | ||
| 87 | (define (texinfo-manual-images source) | 87 | (define (texinfo-manual-images source) |
| 88 | "Return a directory containing all the images used by the user manual, taken | 88 | "Return a directory containing all the images used by the user manual, taken |
| @@ -777,7 +777,8 @@ in SOURCE." | |||
| 777 | (define version-links | 777 | (define version-links |
| 778 | (list (menu-item #$latest-version | 778 | (list (menu-item #$latest-version |
| 779 | (string-append | 779 | (string-append |
| 780 | "/manual/" language | 780 | "/manual/" #$latest-version |
| 781 | "/" language | ||
| 781 | (if split-node? "/html_node" ""))) | 782 | (if split-node? "/html_node" ""))) |
| 782 | (menu-item "development" | 783 | (menu-item "development" |
| 783 | (string-append | 784 | (string-append |
| @@ -942,7 +943,8 @@ makeinfo OPTIONS." | |||
| 942 | (let* ((texi (language->texi-file-name language)) | 943 | (let* ((texi (language->texi-file-name language)) |
| 943 | (opts `("--html" | 944 | (opts `("--html" |
| 944 | "-c" ,(string-append "TOP_NODE_UP_URL=/manual/" | 945 | "-c" ,(string-append "TOP_NODE_UP_URL=/manual/" |
| 945 | language) | 946 | #$%latest-guix-version |
| 947 | "/" language) | ||
| 946 | #$@options | 948 | #$@options |
| 947 | ,texi))) | 949 | ,texi))) |
| 948 | (format #t "building HTML manual for language '~a'...~%" | 950 | (format #t "building HTML manual for language '~a'...~%" |
