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

gnu: Add glibc-utf8-locales.

Browse source 
* gnu/packages/base.scm (glibc-utf8-locales): New variable.
This commit is contained in:
Ludovic Courtès 2015-02-25 13:58:15 +01:00
parent 5e5784a91d
commit c9505f3ffa
1 changed files with 43 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/base.scm
View file

@ -29,6 +29,7 @@ (define-module (gnu packages base)
#:use-module (gnu packages ed)
#:use-module (gnu packages guile)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages compression)
#:use-module (gnu packages perl)
#:use-module (gnu packages linux)
#:use-module (gnu packages texinfo)
@ -36,7 +37,8 @@ (define-module (gnu packages base)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu))
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial))
;;; Commentary:
;;;
@ -556,6 +558,46 @@ (define-public glibc-locales
(assoc-ref %outputs "out")
"/lib/locale")))))))))
(define-public glibc-utf8-locales
(package
(name "glibc-utf8-locales")
(version (package-version glibc))
(source #f)
(build-system trivial-build-system)
(arguments
'(#:modules ((guix build utils))
#:builder (begin
(use-modules (srfi srfi-1)
(guix build utils))
(let* ((libc (assoc-ref %build-inputs "glibc"))
(gzip (assoc-ref %build-inputs "gzip"))
(out (assoc-ref %outputs "out"))
(localedir (string-append out "/lib/locale")))
;; 'localedef' needs 'gzip'.
(setenv "PATH" (string-append libc "/bin:" gzip "/bin"))
(mkdir-p localedir)
(every (lambda (locale)
(zero? (system* "localedef" "--no-archive"
"--prefix" localedir "-i" locale
"-f" "UTF-8"
(string-append localedir "/"
locale
".UTF-8"))))
;; These are the locales commonly used for
;; tests---e.g., in Guile's i18n tests.
'("de_DE" "el_GR" "en_US" "fr_FR" "tr_TR"))))))
(inputs `(("glibc" ,glibc)
("gzip" ,gzip)))
(synopsis "Small sample of UTF-8 locales")
(description
"This package provides a small sample of UTF-8 locales mostly useful in
test environments.")
(home-page (package-home-page glibc))
(license (package-license glibc))))
(define-public tzdata
(package
(name "tzdata")