03/03: Use po4a-minimal for guix.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 7b0f145802f0c2c785014293d748721678fef824
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu May 9 15:35:42 2024 +0100

    Use po4a-minimal for guix.
    
    As this avoids the indirect dependency on nss, which has a testsuite that
    takes a long time to run.
    
    * gnu/packages/package-management.scm (guix)[native-inputs]: Use 
po4a-minimal.
    * guix/self.scm (%packages, translate-texi-manuals): Use po4a-minimal.
    
    Change-Id: Iac7555cc850c1618d3d54f1b290faa4f9cfb4f8a
---
 gnu/packages/package-management.scm | 2 +-
 guix/self.scm                       | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index c163415cb2..484a8478f5 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -493,7 +493,7 @@ $(prefix)/etc/openrc\n")))
                        ("graphviz" ,graphviz-minimal)
                        ("font-ghostscript" ,font-ghostscript) ;fonts for 'dot'
                        ("help2man" ,help2man)
-                       ("po4a" ,po4a)))
+                       ("po4a" ,po4a-minimal)))
       (inputs
        `(("bzip2" ,bzip2)
          ("gzip" ,gzip)
diff --git a/guix/self.scm b/guix/self.scm
index 19c6d08e01..8c85684090 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -71,7 +71,7 @@
       ("bzip2"              . ,(ref 'compression 'bzip2))
       ("xz"                 . ,(ref 'compression 'xz))
       ("git-minimal"        . ,(ref 'version-control 'git-minimal))
-      ("po4a"               . ,(ref 'gettext 'po4a))
+      ("po4a-minimal"       . ,(ref 'gettext 'po4a-minimal))
       ("gettext-minimal"    . ,(ref 'gettext 'gettext-minimal))
       ("gcc-toolchain"      . ,(ref 'commencement 'gcc-toolchain))
       ("glibc-utf8-locales" . ,(delay
@@ -291,8 +291,8 @@ DOMAIN, a gettext domain."
 
 (define (translate-texi-manuals source)
   "Return the translated texinfo manuals built from SOURCE."
-  (define po4a
-    (specification->package "po4a"))
+  (define po4a-minimal
+    (specification->package "po4a-minimal"))
 
   (define gettext-minimal
     (specification->package "gettext-minimal"))
@@ -317,7 +317,7 @@ DOMAIN, a gettext domain."
           (define (translate-tmp-texi po source output)
             "Translate Texinfo file SOURCE using messages from PO, and write
 the result to OUTPUT."
-            (invoke #+(file-append po4a "/bin/po4a-translate")
+            (invoke #+(file-append po4a-minimal "/bin/po4a-translate")
               "-M" "UTF-8" "-L" "UTF-8" "-k" "0" "-f" "texinfo"
               "-m" source "-p" po "-l" output))