gnu: glibc-utf8-locales: Use the normalized codeset.
* gnu/packages/base.scm (glibc-utf8-locales)[argument]: Use the normalized codeset by default.
This commit is contained in:
parent
b6ac54517c
commit
8a55e217ad
|
@ -689,12 +689,22 @@ the 'share/locale' sub-directory of this package.")
|
||||||
|
|
||||||
(mkdir-p localedir)
|
(mkdir-p localedir)
|
||||||
(every (lambda (locale)
|
(every (lambda (locale)
|
||||||
(zero? (system* "localedef" "--no-archive"
|
(define file
|
||||||
"--prefix" localedir "-i" locale
|
;; Use the "normalized codeset" by
|
||||||
"-f" "UTF-8"
|
;; 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 "/"
|
(string-append localedir "/"
|
||||||
locale
|
locale ".UTF-8"))
|
||||||
".UTF-8"))))
|
#t)))
|
||||||
|
|
||||||
;; These are the locales commonly used for
|
;; These are the locales commonly used for
|
||||||
;; tests---e.g., in Guile's i18n tests.
|
;; tests---e.g., in Guile's i18n tests.
|
||||||
|
|
Loading…
Reference in New Issue