summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoman Scherer <roman@burningswell.com>2024-09-27 11:14:44 +0200
committerLudovic Courtès <ludo@gnu.org>2024-09-28 12:55:54 +0200
commite076b8b88453a2880bc32daeae0bc774149eba92 (patch)
treea57dc25467172262b83024dcf9b6ea9c33145ba2
parent2ae666c471fae8a30cb66fdfd47420ff871d89a9 (diff)
installer: Use the latest ‘iso-codes’.
Fixes <https://issues.guix.gnu.org/73081>. * gnu/installer.scm (compute-locale-step): Use Use iso-codes. Change-Id: I9a69f7accee965cf5deb2c1b23ce3fda579d465a Signed-off-by: Ludovic Courtès <ludo@gnu.org> Reported-by: Ricardo Wurmus <rekado@elephly.net>
-rw-r--r--gnu/installer.scm16
1 files changed, 10 insertions, 6 deletions
diff --git a/gnu/installer.scm b/gnu/installer.scm
index 53af01261eb..5cd99e40131 100644
--- a/gnu/installer.scm
+++ b/gnu/installer.scm
@@ -146,10 +146,14 @@ been performed at build time."
146 146
147 (let* ((supported-locales #~(supported-locales->locales 147 (let* ((supported-locales #~(supported-locales->locales
148 #+(glibc-supported-locales))) 148 #+(glibc-supported-locales)))
149 (iso-codes #~(string-append #$iso-codes/pinned "/share/iso-codes/json/")) 149
150 (iso639-3 #~(string-append #$iso-codes/pinned "iso_639-3.json")) 150 ;; Note: Use the latest version of 'iso-codes', including
151 (iso639-5 #~(string-append #$iso-codes/pinned "iso_639-5.json")) 151 ;; Guix-specific changes, so that all languages known to glibc and
152 (iso3166 #~(string-append #$iso-codes/pinned "iso_3166-1.json")) 152 ;; returned by 'glibc-supported-locales'.
153 (iso-codes #~(string-append #$iso-codes "/share/iso-codes/json/"))
154 (iso639-3 #~(string-append #$iso-codes "iso_639-3.json"))
155 (iso639-5 #~(string-append #$iso-codes "iso_639-5.json"))
156 (iso3166 #~(string-append #$iso-codes "iso_3166-1.json"))
153 (locales-file (build-compiled-file 157 (locales-file (build-compiled-file
154 locales-name 158 locales-name
155 #~`(quote ,#$supported-locales))) 159 #~`(quote ,#$supported-locales)))
@@ -437,9 +441,9 @@ purposes."
437 ;; (e.g., "French" is always displayed as "français", but 441 ;; (e.g., "French" is always displayed as "français", but
438 ;; "Belgium" could be translated to Dutch, French, or German.) 442 ;; "Belgium" could be translated to Dutch, French, or German.)
439 (bindtextdomain "iso_639-3" ;languages 443 (bindtextdomain "iso_639-3" ;languages
440 #+(file-append iso-codes/pinned "/share/locale")) 444 #+(file-append iso-codes "/share/locale"))
441 (bindtextdomain "iso_3166-1" ;territories 445 (bindtextdomain "iso_3166-1" ;territories
442 #+(file-append iso-codes/pinned "/share/locale")) 446 #+(file-append iso-codes "/share/locale"))
443 447
444 ;; Likewise for XKB keyboard layout names. 448 ;; Likewise for XKB keyboard layout names.
445 (bindtextdomain "xkeyboard-config" 449 (bindtextdomain "xkeyboard-config"