futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

locale: Shrink ‘%default-locale-definitions’ from 34 to 10 locales.

Browse Source 
This reduces the default set of locales from 92 MiB to 28 MiB.

* gnu/system/locale.scm (%default-locale-definitions): Reduce to 10
locales.

Change-Id: I3c092604301d69db591957bcfd62a062c3ac5ab0
This commit is contained in:
Ludovic Courtès 2024-04-08 15:28:20 +02:00
parent 0575933ac2
commit 6228a2b8ba
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
gnu/system/locale.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014-2017, 2019-2021, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014-2017, 2019-2021, 2023-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2023 Janneke Nieuwenhuizen <jannek@gnu.org> ;;; Copyright © 2023 Janneke Nieuwenhuizen <jannek@gnu.org>
;;; ;;;
@ -153,9 +153,10 @@ data format changes between libc versions."
(list glibc))) (list glibc)))
(define %default-locale-definitions (define %default-locale-definitions
;; Arbitrary set of locales that are built by default. They are here mostly ;; Arbitrary set of locales that are built by default. They come as a
;; to facilitate first-time use to some people, while others may have to add ;; "bonus" in addition to that specified in the 'locale' field of the
;; a specific <locale-definition>. ;; operating system, for the user's convenience, so they shouldn't take too
;; much space.
(letrec-syntax ((utf8-locale (syntax-rules () (letrec-syntax ((utf8-locale (syntax-rules ()
((_ name*) ((_ name*)
(locale-definition (locale-definition
@ -167,44 +168,18 @@ data format changes between libc versions."
(utf8-locales (syntax-rules () (utf8-locales (syntax-rules ()
((_ name ...) ((_ name ...)
(list (utf8-locale name) ...))))) (list (utf8-locale name) ...)))))
;; Add "en_US.UTF-8" for compatibility with Guix 0.8. ;; The six UN official languages plus Portuguese, with at most two
(cons (locale-definition ;; variants per language.
(name "en_US.UTF-8") (utf8-locales "ar_DZ"
(source "en_US") "en_GB"
(charset "UTF-8")) "en_US"
(utf8-locales "ca_ES" "es_AR"
"cs_CZ" "es_ES"
"da_DK" "fr_FR"
"de_DE" "pt_BR"
"el_GR" "pt_PT"
"en_AU" "ru_RU"
"en_CA" "zh_CN")))
"en_GB"
"en_US"
"es_AR"
"es_CL"
"es_ES"
"es_MX"
"fi_FI"
"fr_BE"
"fr_CA"
"fr_CH"
"fr_FR"
"ga_IE"
"it_IT"
"ja_JP"
"ko_KR"
"nb_NO"
"nl_NL"
"pl_PL"
"pt_PT"
"ro_RO"
"ru_RU"
"sv_SE"
"tr_TR"
"uk_UA"
"vi_VN"
"zh_CN"))))
;;; ;;;