me
/
guix
Archived
1
0
Fork 0
Code

self: Use po4a instead of po4a-translate. 

* guix/self.scm (translate-tmp-texi): Use po4a instead of po4a-translate.
This eliminates the po4a-translate warning; "po4a-translate is deprecated.
The unified po4a(1) program is more convenient and less error prone."

Change-Id: Id85c7478b1b237f31010994fcd2d38765993c1ad
Signed-off-by: Florian Pelz <pelzflorian@pelzflorian.de>
master
gemmaro 2024-04-14 16:18:53 +09:00 committed by Florian Pelz
parent f65bd477b0
commit 368e58afcb
No known key found for this signature in database
GPG Key ID: 300888CB39C63817
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/self.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2017-2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net> ;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2024 gemmaro <gemmaro.dev@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -317,9 +318,15 @@ DOMAIN, a gettext domain."
(define (translate-tmp-texi po source output) (define (translate-tmp-texi po source output)
"Translate Texinfo file SOURCE using messages from PO, and write "Translate Texinfo file SOURCE using messages from PO, and write
the result to OUTPUT." the result to OUTPUT."
(invoke #+(file-append po4a-minimal "/bin/po4a-translate") (invoke #+(file-append po4a-minimal "/bin/po4a")
"-M" "UTF-8" "-L" "UTF-8" "-k" "0" "-f" "texinfo" "--no-update"
"-m" source "-p" po "-l" output)) "--variable" (string-append "localized=" output)
"--variable" (string-append "master=" source)
"--variable" (string-append "po=" po)
"--variable" (string-append "pot=" (string-append (tmpnam) ".pot"))
(string-append "--srcdir=" #$source)
"--destdir=."
#+(file-append documentation-po "/po4a.cfg")))
(define (canonicalize-whitespace str) (define (canonicalize-whitespace str)
;; Change whitespace (newlines, etc.) in STR to #\space. ;; Change whitespace (newlines, etc.) in STR to #\space.