summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/self.scm31
1 files changed, 15 insertions, 16 deletions
diff --git a/guix/self.scm b/guix/self.scm
index 39dfbaadc0..12727ddbae 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -293,22 +293,6 @@ DOMAIN, a gettext domain."
(ice-9 vlist)
(srfi srfi-1))
- (mkdir #$output)
-
- (copy-recursively #$documentation "."
- #:log (%make-void-port "w"))
-
- (for-each
- (lambda (file)
- (copy-file file (basename file)))
- (find-files #$documentation-po ".*.po$"))
-
- (setenv "GUIX_LOCPATH"
- #+(file-append glibc-utf8-locales "/lib/locale"))
- (setenv "PATH" #+(file-append gettext "/bin"))
- (setenv "LC_ALL" "en_US.UTF-8")
- (setlocale LC_ALL "en_US.UTF-8")
-
(define (translate-tmp-texi po source output)
"Translate Texinfo file SOURCE using messages from PO, and write
the result to OUTPUT."
@@ -414,6 +398,21 @@ a list of extra files, such as '(\"contributing\")."
(find-files directory
"\\.[a-z]{2}(_[A-Z]{2})?\\.po$")))
+ (mkdir #$output)
+ (copy-recursively #$documentation "."
+ #:log (%make-void-port "w"))
+
+ (for-each
+ (lambda (file)
+ (copy-file file (basename file)))
+ (find-files #$documentation-po ".*.po$"))
+
+ (setenv "GUIX_LOCPATH"
+ #+(file-append glibc-utf8-locales "/lib/locale"))
+ (setenv "PATH" #+(file-append gettext "/bin"))
+ (setenv "LC_ALL" "en_US.UTF-8")
+ (setlocale LC_ALL "en_US.UTF-8")
+
(for-each (match-lambda
((language . po)
(translate-texi "guix" po language