ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: glibc-utf8-locales: Use the normalized codeset.

Browse source 
* gnu/packages/base.scm (glibc-utf8-locales)[argument]: Use the
  normalized codeset by default.
This commit is contained in:
Ludovic Courtès 2015-10-03 20:06:24 +02:00
parent b6ac54517c
commit 8a55e217ad
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/base.scm
View file

@ -689,12 +689,22 @@ (define-public glibc-utf8-locales
(mkdir-p localedir)
(every (lambda (locale)
(zero? (system* "localedef" "--no-archive"
"--prefix" localedir "-i" locale
"-f" "UTF-8"
(define file
;; Use the "normalized codeset" by
;; default--e.g., "en_US.utf8".
(string-append localedir "/" locale ".utf8"))
(and (zero? (system* "localedef" "--no-archive"
"--prefix" localedir
"-i" locale
"-f" "UTF-8" file))
(begin
;; For backward compatibility with Guix
;; <= 0.8.3, add "xx_YY.UTF-8".
(symlink (string-append locale ".utf8")
(string-append localedir "/"
locale
".UTF-8"))))
locale ".UTF-8"))
#t)))
;; These are the locales commonly used for
;; tests---e.g., in Guile's i18n tests.