mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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.
This commit is contained in:
parent
00850bb836
commit
208cc522b9
1 changed files with 6 additions and 4 deletions
|
@ -584,6 +584,9 @@ (define* (html-manual-indexes source
|
|||
#:key (languages %languages)
|
||||
(version "0.0")
|
||||
(manual %manual)
|
||||
(title (if (string=? "guix" manual)
|
||||
"GNU Guix Reference Manual"
|
||||
"GNU Guix Cookbook"))
|
||||
(date 1))
|
||||
(define build
|
||||
(with-extensions (list guile-json-3)
|
||||
|
@ -687,7 +690,7 @@ (define (sxml-index language title body)
|
|||
|
||||
(define (language-index language)
|
||||
(define title
|
||||
(translate "GNU Guix Reference Manual" language))
|
||||
(translate #$title language))
|
||||
|
||||
(sxml-index
|
||||
language title
|
||||
|
@ -745,8 +748,7 @@ (define (language-code->name code)
|
|||
%iso639-languages)))
|
||||
|
||||
(define (top-level-index languages)
|
||||
(define title
|
||||
"GNU Guix Reference Manual")
|
||||
(define title #$title)
|
||||
(sxml-index
|
||||
"en" title
|
||||
`(main
|
||||
|
@ -754,7 +756,7 @@ (define title
|
|||
(@ (class "page centered-block limit-width"))
|
||||
(h2 ,title)
|
||||
(div
|
||||
"The GNU Guix Reference Manual is available in the following
|
||||
"This document is available in the following
|
||||
languages:\n"
|
||||
(ul
|
||||
,@(map (lambda (language)
|
||||
|
|
Loading…
Reference in a new issue