me
/
guix
Archived
1
0
Fork 0
Code

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

* gnu/packages/base.scm (glibc-utf8-locales)[argument]: Use the
  normalized codeset by default.
master
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 @@ the 'share/locale' sub-directory of this package.")
(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.