TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

self: Build and install 'guix-cookbook.info' and its translations.

Browse source 
* guix/self.scm (translate-texi-manuals)[build]: Translate and install
guix-cookbook.texi.
(info-manual)[build]: Handle "guix-cookbook*.texi".
This commit is contained in:
Ludovic Courtès 2020-04-21 23:05:02 +02:00
parent 84c37e6368
commit e1e6491226
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
guix/self.scm
View file

@ -383,12 +383,17 @@ (define (available-translations directory domain)
#:extras '("contributing"))))
(available-translations "." "guix-manual"))
(for-each
(lambda (file)
(copy-file file (string-append #$output "/" file)))
(append
(find-files "." "contributing\\..*\\.texi$")
(find-files "." "guix\\..*\\.texi$"))))))
(for-each (match-lambda
((language . po)
(translate-texi "guix-cookbook" po language)))
(available-translations "." "guix-cookbook"))
(for-each (lambda (file)
(install-file file #$output))
(append
(find-files "." "contributing\\..*\\.texi$")
(find-files "." "guix\\..*\\.texi$")
(find-files "." "guix-cookbook\\..*\\.texi$"))))))
(computed-file "guix-translated-texinfo" build))
@ -415,7 +420,8 @@ (define examples
(define build
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(use-modules (guix build utils)
(ice-9 match))
(mkdir #$output)
@ -476,13 +482,13 @@ (define build
#+(file-append glibc-utf8-locales "/lib/locale"))
(for-each (lambda (texi)
(unless (string=? "guix.texi" texi)
;; Create 'version-LL.texi'.
(let* ((base (basename texi ".texi"))
(dot (string-index base #\.))
(tag (string-drop base (+ 1 dot))))
(symlink "version.texi"
(string-append "version-" tag ".texi"))))
(match (string-split (basename texi) #\.)
(("guix" language "texi")
;; Create 'version-LL.texi'.
(symlink "version.texi"
(string-append "version-" language
".texi")))
(_ #f))
(invoke #+(file-append texinfo "/bin/makeinfo")
texi "-I" #$documentation
@ -491,7 +497,10 @@ (define build
(basename texi ".texi")
".info")))
(cons "guix.texi"
(find-files "." "^guix\\.[a-z]{2}(_[A-Z]{2})?\\.texi$")))
(append (find-files "."
"^guix\\.[a-z]{2}(_[A-Z]{2})?\\.texi$")
(find-files "."
"^guix-cookbook.*\\.texi$"))))
;; Compress Info files.
(setenv "PATH"