guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues 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 @@ a list of extra files, such as '(\"contributing\")."
#:extras '("contributing")))) #:extras '("contributing"))))
(available-translations "." "guix-manual")) (available-translations "." "guix-manual"))
(for-each (for-each (match-lambda
(lambda (file) ((language . po)
(copy-file file (string-append #$output "/" file))) (translate-texi "guix-cookbook" po language)))
(append (available-translations "." "guix-cookbook"))
(find-files "." "contributing\\..*\\.texi$")
(find-files "." "guix\\..*\\.texi$")))))) (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)) (computed-file "guix-translated-texinfo" build))
@ -415,7 +420,8 @@ a list of extra files, such as '(\"contributing\")."
(define build (define build
(with-imported-modules '((guix build utils)) (with-imported-modules '((guix build utils))
#~(begin #~(begin
(use-modules (guix build utils)) (use-modules (guix build utils)
(ice-9 match))
(mkdir #$output) (mkdir #$output)
@ -476,13 +482,13 @@ a list of extra files, such as '(\"contributing\")."
#+(file-append glibc-utf8-locales "/lib/locale")) #+(file-append glibc-utf8-locales "/lib/locale"))
(for-each (lambda (texi) (for-each (lambda (texi)
(unless (string=? "guix.texi" texi) (match (string-split (basename texi) #\.)
;; Create 'version-LL.texi'. (("guix" language "texi")
(let* ((base (basename texi ".texi")) ;; Create 'version-LL.texi'.
(dot (string-index base #\.)) (symlink "version.texi"
(tag (string-drop base (+ 1 dot)))) (string-append "version-" language
(symlink "version.texi" ".texi")))
(string-append "version-" tag ".texi")))) (_ #f))
(invoke #+(file-append texinfo "/bin/makeinfo") (invoke #+(file-append texinfo "/bin/makeinfo")
texi "-I" #$documentation texi "-I" #$documentation
@ -491,7 +497,10 @@ a list of extra files, such as '(\"contributing\")."
(basename texi ".texi") (basename texi ".texi")
".info"))) ".info")))
(cons "guix.texi" (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. ;; Compress Info files.
(setenv "PATH" (setenv "PATH"