From 2d337760501662f9a380a117312934e489bd5f1d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 2 Dec 2018 22:53:22 +0100
Subject: [PATCH] self: Provide UTF-8 locales when building the manual.

Fixes <https://bugs.gnu.org/33580>.
Reported by <znavko@tutanota.com>.

* guix/self.scm (info-manual)[glibc-utf8-locales]: New variable.
[build]: Add call to 'setenv' for "GUIX_LOCPATH".
---
 guix/self.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/guix/self.scm b/guix/self.scm
index 96fef44e78..efbf9ec9ac 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -273,6 +273,10 @@ DOMAIN, a gettext domain."
     (module-ref (resolve-interface '(gnu packages graphviz))
                 'graphviz))
 
+  (define glibc-utf8-locales
+    (module-ref (resolve-interface '(gnu packages base))
+                'glibc-utf8-locales))
+
   (define documentation
     (file-append* source "doc"))
 
@@ -336,6 +340,10 @@ DOMAIN, a gettext domain."
           (delete-file-recursively "images")
           (symlink (string-append #$output "/images") "images")
 
+          ;; Provide UTF-8 locales needed by the 'xspara.c' code in makeinfo.
+          (setenv "GUIX_LOCPATH"
+                  #+(file-append glibc-utf8-locales "/lib/locale"))
+
           (for-each (lambda (texi)
                       (unless (string=? "guix.texi" texi)
                         ;; Create 'version-LL.texi'.