gnu: Add icecat-l10n and icedove-l10n.
* gnu/packages/gnuzilla.scm (%icecat-locales, %icedove-locales): New variable. (make-l10n-package): New procedure. (icecat-l10n, icedove-l10n): New variables.
Maxim Cournoyer
parent
d3fcbefad1
commit
efd9f326ae
|
|
@ -17,7 +17,7 @@
|
||||||
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
|
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
|
||||||
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
|
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
|
||||||
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
|
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
|
||||||
;;; Copyright © 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||||||
;;; Copyright © 2021 Baptiste Strazzul <bstrazzull@hotmail.fr>
|
;;; Copyright © 2021 Baptiste Strazzul <bstrazzull@hotmail.fr>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
|
|
@ -1115,6 +1115,16 @@ standards of the IceCat project.")
|
||||||
(cpe-name . "firefox_esr")
|
(cpe-name . "firefox_esr")
|
||||||
(cpe-version . ,(first (string-split version #\-)))))))
|
(cpe-version . ,(first (string-split version #\-)))))))
|
||||||
|
|
||||||
|
(define %icecat-locales
|
||||||
|
'("ach" "af" "an" "ar" "ast" "az" "be" "bg" "bn" "br" "bs" "ca" "cak"
|
||||||
|
"ca-valencia" "cs" "cy" "da" "de" "dsb" "el" "en-CA" "en-GB" "eo" "es-AR"
|
||||||
|
"es-CL" "es-ES" "es-MX" "et" "eu" "fa" "ff" "fi" "fr" "fy-NL" "ga-IE" "gd"
|
||||||
|
"gl" "gn" "gu-IN" "he" "hi-IN" "hr" "hsb" "hu" "hy-AM" "ia" "id" "is" "it"
|
||||||
|
"ja" "ja-JP-mac" "ka" "kab" "kk" "km" "kn" "ko" "lij" "lt" "lv" "mk" "mr" "ms"
|
||||||
|
"my" "nb-NO" "ne-NP" "nl" "nn-NO" "oc" "pa-IN" "pl" "pt-BR" "pt-PT" "rm" "ro"
|
||||||
|
"ru" "sco" "si" "sk" "sl" "son" "sq" "sr" "sv-SE" "szl" "ta" "te" "th" "tl"
|
||||||
|
"tr" "trs" "uk" "ur" "uz" "vi" "xh" "zh-CN" "zh-TW"))
|
||||||
|
|
||||||
(define %icedove-build-id "20230207000000") ;must be of the form YYYYMMDDhhmmss
|
(define %icedove-build-id "20230207000000") ;must be of the form YYYYMMDDhhmmss
|
||||||
(define %icedove-version "102.7.2")
|
(define %icedove-version "102.7.2")
|
||||||
|
|
||||||
|
|
@ -1139,6 +1149,15 @@ list of languages supported as well as the currently used changeset."
|
||||||
(((_ changeset locale) ...)
|
(((_ changeset locale) ...)
|
||||||
(values locale (first changeset)))))
|
(values locale (first changeset)))))
|
||||||
|
|
||||||
|
;;; Generated with comm-source->locales+changeset.
|
||||||
|
(define %icedove-locales
|
||||||
|
'("af" "ar" "ast" "be" "bg" "br" "ca" "cak" "cs" "cy" "da" "de" "dsb" "el"
|
||||||
|
"en-CA" "en-GB" "es-AR" "es-ES" "es-MX" "et" "eu" "fi" "fr" "fy-NL" "ga-IE"
|
||||||
|
"gd" "gl" "he" "hr" "hsb" "hu" "hy-AM" "id" "is" "it" "ja" "ja-JP-mac" "ka"
|
||||||
|
"kab" "kk" "ko" "lt" "lv" "ms" "nb-NO" "nl" "nn-NO" "pa-IN" "pl" "pt-BR"
|
||||||
|
"pt-PT" "rm" "ro" "ru" "sk" "sl" "sq" "sr" "sv-SE" "th" "tr" "uk" "uz" "vi"
|
||||||
|
"zh-CN" "zh-TW"))
|
||||||
|
|
||||||
;;; To find out which changeset to use for the comm-l10n repo, use the
|
;;; To find out which changeset to use for the comm-l10n repo, use the
|
||||||
;;; 'comm-source->locales+changeset' procedure on the thunderbird-comm-source
|
;;; 'comm-source->locales+changeset' procedure on the thunderbird-comm-source
|
||||||
;;; checkout directory. The complete localization data should be released as
|
;;; checkout directory. The complete localization data should be released as
|
||||||
|
|
@ -1547,6 +1566,128 @@ Thunderbird. It supports email, news feeds, chat, calendar and contacts.")
|
||||||
(native-inputs '())
|
(native-inputs '())
|
||||||
(inputs '())))
|
(inputs '())))
|
||||||
|
|
||||||
|
(define (make-l10n-package project version source locales)
|
||||||
|
"Return a package for PROJECT, a symbol (either icecat or icedove), with
|
||||||
|
their corresponding VERSION, SOURCE and LOCALES variables."
|
||||||
|
(unless (member project '(icecat icedove))
|
||||||
|
(error "only icecat or icedove components are currently supported"))
|
||||||
|
|
||||||
|
(let ((name (if (eq? 'icecat project)
|
||||||
|
"IceCat"
|
||||||
|
"Icedove")))
|
||||||
|
(package
|
||||||
|
(name (format #f "~a-l10n" project))
|
||||||
|
(version version)
|
||||||
|
(source source)
|
||||||
|
(outputs (cons "out" locales))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
(list
|
||||||
|
#:modules '((guix build gnu-build-system)
|
||||||
|
(guix build utils)
|
||||||
|
(ice-9 format)
|
||||||
|
(ice-9 ftw)
|
||||||
|
(srfi srfi-1)
|
||||||
|
(srfi srfi-26))
|
||||||
|
#:tests? #f ;no tests, this is data
|
||||||
|
#:phases
|
||||||
|
#~(modify-phases %standard-phases
|
||||||
|
(delete 'bootstrap)
|
||||||
|
(delete 'install)
|
||||||
|
(replace 'configure
|
||||||
|
(lambda _
|
||||||
|
;; The following configuration is inspired by guidance at
|
||||||
|
;; https://firefox-source-docs.mozilla.org/build/buildsystem/locales.html.
|
||||||
|
(call-with-output-file ".mozconfig"
|
||||||
|
(lambda (p)
|
||||||
|
(format p "~{~a~%~}"
|
||||||
|
(list (if (eq? 'icecat '#$project)
|
||||||
|
"ac_add_options --enable-project=browser"
|
||||||
|
"ac_add_options --enable-project=comm/mail")
|
||||||
|
"ac_add_options --disable-compile-environment"
|
||||||
|
(string-append
|
||||||
|
"ac_add_options --with-l10n-base="
|
||||||
|
(getcwd) "/l10n")
|
||||||
|
;; Hack, otherwise the build system throws:
|
||||||
|
;; 'RuntimeError: File "brand.dtd" not found'.
|
||||||
|
"ac_add_options --enable-official-branding"
|
||||||
|
"mk_add_options MOZ_OBJDIR=obj"))))
|
||||||
|
(setenv "CONFIG_SHELL" (which "bash"))
|
||||||
|
(setenv "MOZBUILD_STATE_PATH"
|
||||||
|
(string-append (getcwd) "/mach_state"))
|
||||||
|
(setenv "MOZCONFIG" (string-append (getcwd) "/.mozconfig"))
|
||||||
|
(setenv "MACH_BUILD_PYTHON_NATIVE_PACKAGE_SOURCE" "system")
|
||||||
|
(setenv "BUILD_BACKENDS" "FasterMake,RecursiveMake")))
|
||||||
|
(replace 'build ;build and install data files
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(define (find-file dir name)
|
||||||
|
(let ((files (find-files dir name)))
|
||||||
|
(when (null? files)
|
||||||
|
(error "could not find file in dir" name dir))
|
||||||
|
(car files)))
|
||||||
|
|
||||||
|
(for-each
|
||||||
|
(lambda (l)
|
||||||
|
(let* ((out (assoc-ref outputs l))
|
||||||
|
;; The older lib/$project/distribution/extensions
|
||||||
|
;; directory is deprecated. Use the newer app-global
|
||||||
|
;; directory, which is lib/$project/extensions.
|
||||||
|
(ext-dir-prefix
|
||||||
|
(format
|
||||||
|
#f "lib/~a/~:[~;browser/~]extensions"
|
||||||
|
'#$project (eq? 'icecat '#$project)))
|
||||||
|
(all-ext (string-append #$output "/" ext-dir-prefix))
|
||||||
|
(ext-dir (string-append out "/" ext-dir-prefix))
|
||||||
|
;; XXX: Because Icedove doesn't have a makeicedove
|
||||||
|
;; script that substitutes all the Thunderbird
|
||||||
|
;; references to Icedove, the MOZ_LANGPACK_EID
|
||||||
|
;; defined in comm/mail/locales/Makefile.in uses
|
||||||
|
;; 'thunderbird' in its ID extension rather than
|
||||||
|
;; 'icedove'.
|
||||||
|
(name (format #f "langpack-~a@~a.mozilla.org.xpi"
|
||||||
|
l (if (eq? 'icedove '#$project)
|
||||||
|
'thunderbird
|
||||||
|
'#$project))))
|
||||||
|
(format #t "processing locale `~a'...~%" l)
|
||||||
|
(if (eq? 'icecat '#$project)
|
||||||
|
;; XXX: For some reasons, for IceCat, there are some
|
||||||
|
;; parsing errors that cause the build system to
|
||||||
|
;; return an unclean exit code; use system* to ignore
|
||||||
|
;; errors.
|
||||||
|
(system* "./mach" "build" (string-append "langpack-" l))
|
||||||
|
(invoke "./mach" "build" (string-append "langpack-" l)))
|
||||||
|
(mkdir-p ext-dir)
|
||||||
|
(let ((xpi (find-file "obj" (string-append
|
||||||
|
"\\." l "\\.langpack\\.xpi$"))))
|
||||||
|
(copy-file xpi (string-append ext-dir "/" name))
|
||||||
|
;; Symlink to the main output so that a user can
|
||||||
|
;; install all of the language packs at once.
|
||||||
|
(mkdir-p all-ext)
|
||||||
|
(symlink (string-append ext-dir "/" name)
|
||||||
|
(string-append all-ext "/" name)))))
|
||||||
|
(if (eq? 'icedove '#$project)
|
||||||
|
'#$%icedove-locales
|
||||||
|
'#$%icecat-locales)))))))
|
||||||
|
(native-inputs
|
||||||
|
(list m4
|
||||||
|
perl
|
||||||
|
python-wrapper
|
||||||
|
node
|
||||||
|
unzip))
|
||||||
|
(home-page "https://www.mozilla.org/")
|
||||||
|
(synopsis (string-append "Language localization data for " name))
|
||||||
|
(description (string-append "This package contains the various language
|
||||||
|
localization data files (language pack extensions) for " name ". The
|
||||||
|
individual localization packages can be installed by using the output
|
||||||
|
associated with their name."))
|
||||||
|
(license license:mpl2.0))))
|
||||||
|
|
||||||
|
(define-public icecat-l10n
|
||||||
|
(make-l10n-package 'icecat %icecat-version icecat-source %icecat-locales))
|
||||||
|
|
||||||
|
(define-public icedove-l10n
|
||||||
|
(make-l10n-package 'icedove %icedove-version icedove-source %icedove-locales))
|
||||||
|
|
||||||
(define-public firefox-decrypt
|
(define-public firefox-decrypt
|
||||||
(package
|
(package
|
||||||
(name "firefox-decrypt")
|
(name "firefox-decrypt")
|
||||||
|
|
|
||||||
Reference in New Issue