me
/
guix
Archived
1
0
Fork 0
Code

doc: Use the right title in HTML indices for the cookbook. 

* doc/build.scm (html-manual-indexes): Add #:title.
[build]: Replace "GNU Guix Reference Manual" by references to TITLE.
master
Ludovic Courtès 2019-10-22 17:45:19 +02:00
parent 00850bb836
commit 208cc522b9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
doc/build.scm
View File

@ -584,6 +584,9 @@ from SOURCE."
#:key (languages %languages) #:key (languages %languages)
(version "0.0") (version "0.0")
(manual %manual) (manual %manual)
(title (if (string=? "guix" manual)
"GNU Guix Reference Manual"
"GNU Guix Cookbook"))
(date 1)) (date 1))
(define build (define build
(with-extensions (list guile-json-3) (with-extensions (list guile-json-3)
@ -687,7 +690,7 @@ from SOURCE."
(define (language-index language) (define (language-index language)
(define title (define title
(translate "GNU Guix Reference Manual" language)) (translate #$title language))
(sxml-index (sxml-index
language title language title
@ -745,8 +748,7 @@ from SOURCE."
%iso639-languages))) %iso639-languages)))
(define (top-level-index languages) (define (top-level-index languages)
(define title (define title #$title)
"GNU Guix Reference Manual")
(sxml-index (sxml-index
"en" title "en" title
`(main `(main
@ -754,7 +756,7 @@ from SOURCE."
(@ (class "page centered-block limit-width")) (@ (class "page centered-block limit-width"))
(h2 ,title) (h2 ,title)
(div (div
"The GNU Guix Reference Manual is available in the following "This document is available in the following
languages:\n" languages:\n"
(ul (ul
,@(map (lambda (language) ,@(map (lambda (language)