From 39e9f95d059e61a735a52f866d4c175906826744 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 12 Oct 2013 16:37:28 +0200 Subject: guix: Add missing call to 'bindtextdomain'. * scripts/guix.in (config-lookup): Add "localedir" entry. (run-guix-main): Add call to 'bindtextdomain'. * guix/ui.scm (initialize-guix): Use %GETTEXT-DOMAIN instead of a literal. --- scripts/guix.in | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'scripts') diff --git a/scripts/guix.in b/scripts/guix.in index c99e866361..673036f6cb 100644 --- a/scripts/guix.in +++ b/scripts/guix.in @@ -31,7 +31,8 @@ (define config-lookup (let ((config '(("prefix" . "@prefix@") ("datarootdir" . "@datarootdir@") - ("guilemoduledir" . "@guilemoduledir@"))) + ("guilemoduledir" . "@guilemoduledir@") + ("localedir" . "@localedir@"))) (var-ref-regexp (make-regexp "\\$\\{([a-z]+)\\}"))) (define (expand-var-ref match) (lookup (match:substring match 1))) @@ -58,6 +59,7 @@ (define (run-guix-main) (let ((guix-main (module-ref (resolve-interface '(guix ui)) 'guix-main))) + (bindtextdomain "guix" (config-lookup "localedir")) (apply guix-main (command-line)))) (maybe-augment-load-paths!) -- cgit v1.2.3