0aeb089073
Includes fixes for CVE-2024-8381, CVE-2024-8382, CVE-2024-8383, and CVE-2024-8384. * gnu/packages/gnuzilla.scm (%icecat-base-version, %icecat-build-id): Update. (icecat-source): Update gnuzilla commit, base version, and hashes.
1900 lines
90 KiB
Scheme
1900 lines
90 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2013-2022 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2014-2024 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
|
||
;;; Copyright © 2016-2019, 2021, 2024 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
|
||
;;; Copyright © 2017, 2023 Clément Lassieur <clement@lassieur.org>
|
||
;;; Copyright © 2017, 2018 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2017, 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2018, 2020 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2019 Ivan Petkov <ivanppetkov@gmail.com>
|
||
;;; Copyright © 2020, 2024 Oleg Pykhalov <go.wigust@gmail.com>
|
||
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
|
||
;;; Copyright © 2019, 2020 Adrian Malacoda <malacoda@monarch-pass.net>
|
||
;;; Copyright © 2020-2023 Jonathan Brielmaier <jonathan.brielmaier@web.de>
|
||
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
|
||
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
|
||
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
|
||
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||
;;; Copyright © 2021 Baptiste Strazzul <bstrazzull@hotmail.fr>
|
||
;;; Copyright © 2022 SeerLite <seerlite@disroot.org>
|
||
;;; Copyright © 2024 Aleksandr Vityazev <avityazew@gmail.com>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages gnuzilla)
|
||
#:use-module ((srfi srfi-1) #:hide (zip))
|
||
#:use-module (ice-9 format)
|
||
#:use-module (ice-9 match)
|
||
#:use-module (gnu packages)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix hg-download)
|
||
#:use-module (guix gexp)
|
||
#:use-module (guix store)
|
||
#:use-module (guix modules)
|
||
#:use-module (guix monads)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix build-system cargo)
|
||
#:use-module (guix build-system copy)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (guix build-system mozilla)
|
||
#:use-module (gnu packages admin)
|
||
#:use-module (gnu packages audio)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages m4)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages databases)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages gnome)
|
||
#:use-module (gnu packages libcanberra)
|
||
#:use-module (gnu packages cups)
|
||
#:use-module (gnu packages kerberos)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages fonts)
|
||
#:use-module (gnu packages hunspell)
|
||
#:use-module (gnu packages libevent)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages libffi)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages node)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (gnu packages gl)
|
||
#:use-module (gnu packages pciutils)
|
||
#:use-module (gnu packages assembly)
|
||
#:use-module (gnu packages rust)
|
||
#:use-module (gnu packages rust-apps)
|
||
#:use-module (gnu packages llvm)
|
||
#:use-module (gnu packages nss)
|
||
#:use-module (gnu packages icu4c)
|
||
#:use-module (gnu packages video)
|
||
#:use-module (gnu packages xiph)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages readline)
|
||
#:use-module (gnu packages sqlite)
|
||
#:autoload (json parser) (json->scm))
|
||
|
||
(define-public mozjs
|
||
(package
|
||
(name "mozjs")
|
||
(version "102.2.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
;; TODO: Switch to IceCat source once available on ftp.gnu.org.
|
||
(uri (string-append "https://ftp.mozilla.org/pub/firefox"
|
||
"/releases/" version "esr/source/firefox-"
|
||
version "esr.source.tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1zwpgis7py1bf8p88pz3mpai6a02qrdb8ww2fa9kxxdl9b8r2k81"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:imported-modules %cargo-utils-modules ;for `generate-all-checksums'
|
||
#:modules `((guix build cargo-utils)
|
||
,@%default-gnu-modules)
|
||
#:test-target "check-jstests"
|
||
#:configure-flags
|
||
#~(list
|
||
;; Disable debugging symbols to save space.
|
||
"--disable-debug"
|
||
"--disable-debug-symbols"
|
||
;; This is important because without it gjs will segfault during the
|
||
;; configure phase. With jemalloc only the standalone mozjs console
|
||
;; will work.
|
||
"--disable-jemalloc"
|
||
"--enable-tests"
|
||
"--enable-hardening"
|
||
"--enable-optimize"
|
||
"--enable-release"
|
||
"--enable-readline"
|
||
"--enable-shared-js"
|
||
"--with-system-icu"
|
||
"--with-system-nspr"
|
||
"--with-system-zlib"
|
||
"--with-intl-api")
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'patch-source-shebangs 'patch-cargo-checksums
|
||
(lambda _
|
||
(let ((null-hash
|
||
"e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"))
|
||
(for-each (lambda (file)
|
||
(format #t "patching checksums in ~a~%" file)
|
||
(substitute* file
|
||
(("^checksum = \".*\"")
|
||
(string-append "checksum = \"" null-hash "\""))))
|
||
(find-files "." "Cargo\\.lock$"))
|
||
(for-each generate-all-checksums
|
||
'("js" "third_party/rust")))))
|
||
(replace 'configure
|
||
(lambda* (#:key configure-flags #:allow-other-keys)
|
||
;; The configure script does not accept environment variables as
|
||
;; arguments. It also must be run from a different directory,
|
||
;; but not the root directory either.
|
||
(mkdir "run-configure-from-here")
|
||
(chdir "run-configure-from-here")
|
||
(setenv "SHELL" (which "sh"))
|
||
(setenv "CONFIG_SHELL" (which "sh"))
|
||
(setenv "AUTOCONF" (which "autoconf"))
|
||
(apply invoke "python" "../configure.py"
|
||
"--enable-project=js"
|
||
(string-append "--prefix=" #$output)
|
||
configure-flags)))
|
||
(add-before 'check 'adjust-tests
|
||
(lambda _
|
||
(with-directory-excursion "../js/src/tests"
|
||
(substitute* "shell/os.js"
|
||
;; FIXME: Why does the killed process have an exit status?
|
||
((".*killed process should not have exitStatus.*")
|
||
""))
|
||
|
||
;; This was fixed sometime between 102.15.1 and 115.11.0.
|
||
;; These tests are supposed to be skipped on all 64-bit systems.
|
||
#$@(if (target-riscv64?)
|
||
#~((substitute* '("non262/Array/regress-157652.js"
|
||
"non262/regress/regress-422348.js")
|
||
(("mips64") "mips64|riscv64")))
|
||
#~())
|
||
|
||
;; The test suite expects a lightly patched ICU. Disable tests
|
||
;; that do not work with the system version. See
|
||
;; "intl/icu-patches" for clues.
|
||
|
||
;; See <https://unicode-org.atlassian.net/browse/ICU-20992> and
|
||
;; <https://bugzilla.mozilla.org/show_bug.cgi?id=1636984> and
|
||
;; related patch for why this is failing.
|
||
(delete-file "non262/Intl/DateTimeFormat/\
|
||
fractional-second-digits-append-item.js")
|
||
;; FIXME: got "0 \u251CAM/PM: noon\u2524", expected "0 (AM/PM: noon)"
|
||
(delete-file "non262/Intl/DateTimeFormat/day-period-hour-cycle.js")
|
||
;; FIXME: got "en-US-posix", expected "en-US-POSIX".
|
||
(delete-file "non262/Intl/available-locales-supported.js")
|
||
;; FIXME: got "en-US", expected "en-US-POSIX"
|
||
(delete-file "non262/Intl/available-locales-resolved.js"))))
|
||
(add-before 'check 'pre-check
|
||
(lambda _
|
||
(setenv "JSTESTS_EXTRA_ARGS"
|
||
(string-join
|
||
(list
|
||
;; Do not run tests marked as "random".
|
||
"--exclude-random"
|
||
;; Exclude web platform tests.
|
||
"--wpt=disabled"
|
||
;; Respect the daemons configured number of jobs.
|
||
(string-append "--worker-count="
|
||
(number->string (parallel-job-count)))))))))))
|
||
(native-inputs
|
||
(list autoconf
|
||
llvm ;for llvm-objdump
|
||
m4
|
||
perl
|
||
pkg-config
|
||
python-wrapper
|
||
rust
|
||
`(,rust "cargo")))
|
||
(inputs
|
||
(list icu4c readline zlib))
|
||
(propagated-inputs
|
||
(list nspr)) ; in the Requires.private field of mozjs-*.pc
|
||
(home-page
|
||
"https://spidermonkey.dev/")
|
||
(synopsis "Mozilla JavaScript engine")
|
||
(description "SpiderMonkey is Mozilla's JavaScript engine written
|
||
in C/C++.")
|
||
(license license:mpl2.0))) ; and others for some files
|
||
|
||
(define-public mozjs-91
|
||
(package
|
||
(inherit mozjs)
|
||
(version "91.13.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ftp.mozilla.org/pub/firefox"
|
||
"/releases/" version "esr/source/firefox-"
|
||
version "esr.source.tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0qh7j960wdp5zcfqhkj8ki47spp9i9ms12xx0v0kxvmmw36jpgjk"))))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments mozjs)
|
||
((#:phases phases)
|
||
#~(modify-phases #$phases
|
||
(add-before 'check 'disable-timezone-tests
|
||
(lambda _
|
||
(with-directory-excursion "../js/src/tests"
|
||
;; FIXME: Assertion failed: got "2021a", expected "2021a3"?
|
||
(delete-file "non262/Intl/DateTimeFormat/timeZone_version.js")
|
||
;; XXX: Delete all tests that test time zone functionality,
|
||
;; because the test suite uses /etc/localtime to figure out
|
||
;; the offset from the hardware clock, which does not work
|
||
;; in the build container. See <tests/non262/Date/shell.js>.
|
||
(delete-file-recursively "non262/Date")
|
||
(delete-file
|
||
"non262/Intl/DateTimeFormat/tz-environment-variable.js"))))))))
|
||
(inputs (modify-inputs (package-inputs mozjs)
|
||
(replace "icu4c" icu4c-69)))))
|
||
|
||
(define-public mozjs-78
|
||
(package
|
||
(inherit mozjs)
|
||
(name "mozjs")
|
||
(version "78.15.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://archive.mozilla.org/pub/firefox"
|
||
"/releases/" version "esr/source/firefox-"
|
||
version "esr.source.tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0l91cxdc5v9fps79ckb1kid4gw6v5qng1jd9zvaacwaiv628shx4"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments mozjs)
|
||
((#:phases phases)
|
||
#~(modify-phases #$phases
|
||
(add-after 'unpack 'patch-for-python-3.10
|
||
(lambda _
|
||
;; Some classes were moved from collections to collections.abc
|
||
;; in Python 3.10.
|
||
(substitute* "python/mozbuild/mozbuild/util.py"
|
||
(("collections\\.Sequence")
|
||
"collections.abc.Sequence"))
|
||
(substitute* "python/mozbuild/mozbuild/makeutil.py"
|
||
(("from collections import Iterable")
|
||
"from collections.abc import Iterable"))
|
||
(substitute* "python/mozbuild/mozbuild/backend/configenvironment.py"
|
||
(("from collections import Iterable, OrderedDict")
|
||
"from collections import OrderedDict\n\
|
||
from collections.abc import Iterable"))
|
||
(substitute*
|
||
"testing/mozbase/manifestparser/manifestparser/filters.py"
|
||
(("from collections import defaultdict, MutableSequence")
|
||
"from collections import defaultdict\n\
|
||
from collections.abc import MutableSequence"))))
|
||
(replace 'configure
|
||
(lambda* (#:key configure-flags #:allow-other-keys)
|
||
;; The configure script does not accept environment variables as
|
||
;; arguments. It also must be run from a different directory,
|
||
;; but not the root directory either.
|
||
(mkdir "run-configure-from-here")
|
||
(chdir "run-configure-from-here")
|
||
(setenv "SHELL" (which "sh"))
|
||
(setenv "CONFIG_SHELL" (which "sh"))
|
||
(setenv "AUTOCONF" (which "autoconf"))
|
||
(apply invoke "../js/src/configure"
|
||
(cons (string-append "--prefix=" #$output)
|
||
configure-flags))))
|
||
(replace 'adjust-tests
|
||
(lambda _
|
||
(with-directory-excursion "../js/src/tests"
|
||
;; The test suite expects a lightly patched ICU 67. Since
|
||
;; Guix is about to switch to ICU 68, massage the tests to
|
||
;; work with that instead of patching ICU. Try removing this
|
||
;; phase for newer versions of mozjs.
|
||
|
||
;; These tests look up locale names and expects to get
|
||
;; "GB" instead of "UK".
|
||
(substitute* "non262/Intl/DisplayNames/language.js"
|
||
(("Traditionell, GB")
|
||
"Traditionell, UK"))
|
||
(substitute* "non262/Intl/DisplayNames/region.js"
|
||
(("\"GB\": \"GB\"")
|
||
"\"GB\": \"UK\""))
|
||
|
||
;; XXX: Some localized time formats have changed, and
|
||
;; substitution fails for accented characters, even though
|
||
;; it works in the REPL(?). Just delete these for now.
|
||
(delete-file "non262/Intl/Date/toLocaleString_timeZone.js")
|
||
(delete-file "non262/Intl/Date/toLocaleDateString_timeZone.js")
|
||
|
||
;; Similarly, these get an unexpected "A" suffix when looking
|
||
;; up a time in the "ar-MA-u-ca-islamicc" locale, which is
|
||
;; tricky to substitute.
|
||
(delete-file "non262/Intl/DateTimeFormat/format_timeZone.js")
|
||
(delete-file "non262/Intl/DateTimeFormat/format.js")
|
||
|
||
;; This file compares a generated list of ICU locale names
|
||
;; with actual lookups. Some have changed slightly, i.e.
|
||
;; daf-Latn-ZZ -> daf-Latn-CI, so drop it for simplicity.
|
||
(delete-file "non262/Intl/Locale/likely-subtags-generated.js"))))
|
||
(replace 'pre-check
|
||
(lambda _
|
||
(with-directory-excursion "../js/src/tests"
|
||
(substitute* "shell/os.js"
|
||
;; FIXME: Why does the killed process have an exit status?
|
||
((".*killed process should not have exitStatus.*")
|
||
""))
|
||
|
||
;; XXX: Delete all tests that test time zone functionality,
|
||
;; because the test suite uses /etc/localtime to figure out
|
||
;; the offset from the hardware clock, which does not work
|
||
;; in the build container. See <tests/non262/Date/shell.js>.
|
||
(delete-file-recursively "non262/Date")
|
||
(delete-file "non262/Intl/DateTimeFormat/tz-environment-variable.js")
|
||
|
||
(setenv "JSTESTS_EXTRA_ARGS"
|
||
(string-join
|
||
(list
|
||
;; Do not run tests marked as "random".
|
||
"--exclude-random"
|
||
;; Exclude web platform tests.
|
||
"--wpt=disabled"
|
||
;; Respect the daemons configured number of jobs.
|
||
(string-append "--worker-count="
|
||
(number->string
|
||
(parallel-job-count)))))))))))))
|
||
(native-inputs
|
||
(list autoconf-2.13
|
||
automake
|
||
llvm ;for llvm-objdump
|
||
perl
|
||
pkg-config
|
||
python-3
|
||
rust
|
||
`(,rust "cargo")))
|
||
(inputs
|
||
(list icu4c-69 readline zlib))))
|
||
|
||
|
||
;;;
|
||
;;; Localization helper procedures.
|
||
;;;
|
||
(define mozilla-compare-locales
|
||
(origin
|
||
(method hg-fetch)
|
||
(uri (hg-reference
|
||
(url "https://hg.mozilla.org/l10n/compare-locales/")
|
||
(changeset "RELEASE_8_1_0")))
|
||
(file-name "mozilla-compare-locales")
|
||
(sha256 (base32 "00bpkaqf2ng1nn9ajyb5mli0jq58q5fm2n3yy90jy0hp4q2gbs50"))))
|
||
|
||
(define (mozilla-locale locale changeset hash-string)
|
||
(origin
|
||
(method hg-fetch)
|
||
(uri (hg-reference
|
||
(url (string-append "https://hg.mozilla.org/l10n-central/"
|
||
locale))
|
||
(changeset changeset)))
|
||
(file-name (string-append "mozilla-locale-" locale))
|
||
(sha256 (base32 hash-string))))
|
||
|
||
(define-syntax-rule (mozilla-locales (hash-string changeset locale) ...)
|
||
(list (mozilla-locale locale changeset hash-string)
|
||
...))
|
||
|
||
(define (update-mozilla-locales changesets.json)
|
||
"Output a new list of Mozilla locales, to update the ALL-MOZILLA-LOCALES
|
||
variable defined below. It requires guile-json to be installed."
|
||
(match (call-with-input-file changesets.json json->scm)
|
||
(((lang ("revision" . revision) platforms pin) ...)
|
||
(let ((data (reverse (map (lambda (rev lang)
|
||
`(,(list->string (make-list 40 #\0))
|
||
,(string-take rev 12) ,lang))
|
||
revision lang))))
|
||
(format #t "~{~s~%~}" data)
|
||
data))))
|
||
|
||
(define-public all-mozilla-locales
|
||
(mozilla-locales
|
||
;; sha256 changeset locale
|
||
;;---------------------------------------------------------------------------
|
||
("152dc3nxbsjhawq8wm040hbnhq96l039j3k8ll4q93qm93msj507" "de9eb6a1e3e0" "ach")
|
||
("0rfbzyv87x5d4qspjaiwsvqcf57g0d93daibj4rc4xsq3g2gw45v" "45b72420bf17" "af")
|
||
("13lfl3nq0nr3zvh1zddpnyk8x054784yz08nkprmqhzyvfv3i5wq" "babed417b5e8" "an")
|
||
("07fjh9wvl9jgvyqbvsd7l4pq895y4sv725fd8fr274s6l4x7pzz0" "7df35a519b47" "ar")
|
||
("04zmfr15a3zhalj66ydpcrh3nxk1q7wb2gckfqsq55q72i3hvkcy" "fd0068a8989f" "ast")
|
||
("1x2hnsa1nfmysd7w53ly14bp8hk1vbgfj1016wapcshvf1kap3mr" "4df6d5edc74d" "az")
|
||
("1synmbnng6ai8gmz8srxdgf3qgadjvymb66inp3g2lww0c98c4qn" "97829729f043" "be")
|
||
("1zank8f4145v4fv28y47ssknn55zrpyll3kxhha2h54za4zkn4p1" "4f568ae49cf3" "bg")
|
||
("00wdllmdmzg11x6dcj3f2i047y3bgab1qw2zjaa92i36d5nd2hdr" "a634f8559ffd" "bn")
|
||
("0b5f50ar7zj2z1jjvhv8841rabx5a2ylcl0rma3qiz5i6r41lgli" "4ca046b16e37" "br")
|
||
("1g1qh8b496psq9yknjzi7drzqzhd5g50xl5qiwd6pr61xyqfvnkx" "690960700526" "bs")
|
||
("1wd463lfhdybx0nz0dqvhrsi7f9xl5qd7mvshpgqxlj5x1nhamzy" "58714a456fd6" "ca")
|
||
("1s9ls2fh9xfgb8q9vay5lkszfhh0k99lrp28m3fi83b5vv8qj8fq" "12760eef74bc" "cak")
|
||
("0abwslv88hda2wfsnkyi7si9v16923gf4xfbq3h0a6mpxf1mylhs" "703352c2a9b4" "ca-valencia")
|
||
("05pfacr2kk0sxrpw3s15c8rvchkzxgvsy1njp5q72b270sw98i7h" "6a7eef3982fb" "cs")
|
||
("0cidwylb4s7n1hdw4yjqj89bl2qsscf3b1vnfl7hsxf68lj2lzaj" "9c30e4ec1dde" "cy")
|
||
("10d7mn2qq0nvw3073ga4garwnvpk5xqkgn3dgw1az2g5pncclhfk" "668cf42570ef" "da")
|
||
("0nfb3nf47gavafb35mm4ghl82kpylyj0r1vqc47nz151mjj2mnli" "c968a5118cda" "de")
|
||
("1qjf12aymz1x281chv7sqyarbz6f8w7nxsli3b4srsar12l5f0lb" "27dd7f4a3f3f" "dsb")
|
||
("040165lwplyj0cv9ccagdjwigy527rli3qda6b633bqrpx6310sw" "920e28aa6758" "el")
|
||
("1h5zk58rmrqnbfhxyiwcn0385v6r5ayfkblpwqkji80p135n74sa" "b0e55a5a6413" "en-CA")
|
||
("1w5q4b1a9ysgc76dg45cr2q55y4djdcrj2qzs0imq61sjrvih2fv" "9aae743f32df" "en-GB")
|
||
("0mxsp5ipg36jdpphwrdra877z9vz1ifbhas988awhc3i9byx7zbh" "3c825be76f39" "eo")
|
||
("1nxscjmk80wh359lv4cxgh1y85f8qw522dppy292pkqnqnsrfnq1" "ffac56bd3aef" "es-AR")
|
||
("02353n524fy5icp2myjn198n511lzb03hcd4a61bgd7f26cpkhy5" "77e209bb2114" "es-CL")
|
||
("1863d4zy2745hfw2kgw5z0625znvzkqwlwbvcj8cw6nv3r6dxgdv" "215ced58e499" "es-ES")
|
||
("0asrcxvig4i75r4kpkmcfsc1kzjl8cbaz11an5kny2slcy63av7i" "d748a2a91643" "es-MX")
|
||
("1p40zmf29mq81blssjh6gs8fih925mia3l1gya9vzgyp5i4dvln6" "66edf9863a04" "et")
|
||
("1hr4q01856j8jmjia39586mxfbv5ijkq7i6cyxz1r422gqivv13v" "752b6aa2225e" "eu")
|
||
("0d6vgd6anz237ckgc3a30nzdxa98fw33rc1r2wkr4y3yfvd2bidc" "4a57be1cf783" "fa")
|
||
("1kjb8k55vkgn7fpzgvayahzx7cbx7vryyv89kynp2lv052smhh01" "e42c0149059c" "ff")
|
||
("0d392s3fh1cl491b72cxlj7la6in84mfxbcn862f0sr63iz0q7wn" "0a2a3e96367c" "fi")
|
||
("10rvxinl9as9wdd9yrhsskjwsklzxd35j4b1ygr4jlvslcrmdhpn" "119b009eba98" "fr")
|
||
("1x0bfp7gaplnwcmfvv8c87znxp9fxsa99nl88j87qxn45h9kz8q6" "475065215d5c" "fur")
|
||
("0p20jlm8vxlzixm446wcqjs5sz7m9x7v4zgqczvriwyspad7d8xp" "6909c0c42a2e" "fy-NL")
|
||
("1rh8mvlamawzdfis0ah8rgnjk30mzpxhgh1yx8rxppps7l5n2hpj" "2f350c9ba505" "ga-IE")
|
||
("1n2dxvv0q77azg2cz4nasq47pbsh1l6fngphy3lzz1wj4x3s8z7g" "3fe4a6bcac31" "gd")
|
||
("15x51q3lsr67lklci13cqlxmgjyk8px12qc3qfrfdv2dk68znwmq" "0482da4a3d5b" "gl")
|
||
("1zx7a0l781hyi9k6bi0m9ghgzcb116cqy88q7bf9sm0gar85yxwi" "bb255fc733c3" "gn")
|
||
("1p6ycyjp7qsv1fk19yca5bwvyg72y3v87fr3wmhq7xzmdz6994fm" "dd3707daa411" "gu-IN")
|
||
("02r68v2yhxxdfms9l2yq8pk7rarg1ysv67mbny04gaws6k5fv3an" "c247293030ae" "he")
|
||
("116s9qgcwb0j1mzwy5napq5ww9cs5hcj41xiq2k6kz4gjxw4jazl" "e9c1a1fe1b79" "hi-IN")
|
||
("1kg7xiw75ks490kiay2gndlc2akkg4bxdx4q7ysaxf6kpgisakxg" "068c00ca7cae" "hr")
|
||
("1xjqvqn65nyb0dlchy3bikpf0g3qjba7i5g68jcicz0hcyrfagvd" "5fd424d1061b" "hsb")
|
||
("1j81cv599h3iv26yzzdf8m5vkdw9kdhrlls8c6zd3fslpd91yn5q" "0ef89daff942" "hu")
|
||
("0wwjyjpqcxvjsw7md6sz2zxncay3wk066qiv4p2vpqv5sw9z1sdh" "771fd65bc781" "hy-AM")
|
||
("0pxjvzkkhls3d28c1656y3fc78snhc90f0mj5jx9rhh7l6hg0801" "6cfa8fc01f2a" "ia")
|
||
("1xh93qkj7y4ad10sqyldr9hymsbffnq7kya0smvci1nwmnndd8bk" "ae863f3cd230" "id")
|
||
("1npyaz5zyk6yr8z8sj2gbd0ahynglxmalw27rcdb57h81n0520y7" "d465499a6600" "is")
|
||
("14hhl050vzbrwwppvpyicqfcqazpvyaygnr8hgrz0jgyb30lfvhw" "a8ac50410815" "it")
|
||
("1jz9i0x22qig74gwrrrvnwc7s50h1x18sl797lr678xiw4f6p0ar" "13abbdd8abdf" "ja")
|
||
("04k53mnskapqv968gphpmzhxbg1m0jxbzf24z9g0lgspnhcgwpx9" "1f388ad7f0e9" "ja-JP-mac")
|
||
("1n9ayc6l72fy08zdqpwag54rh6j5aagj7y7976gyvjl1ssz745fs" "ed774dd2eff3" "ka")
|
||
("09bw4sk8g7bmx9xxxiy8y9p8zhf3h3gvaddlx86zdk12k44iqmnc" "c9cfab9734b4" "kab")
|
||
("0lmwsq72vk424nlrgnq46apdbgivzrmx303rvng8h03wrp9qjz1m" "4797db4a0fcb" "kk")
|
||
("0al453bmiq85kkkfaba11iwnx0dy9f3dl9hlz0j38ysgcipwap5l" "f312da458d8b" "km")
|
||
("1rjf875nwcqnlbfgk92vpa8msy3vp2xcgfasj7kksr37rxcbwa8m" "a30ac878de56" "kn")
|
||
("0v5a1v0a6xziwhspfqpdccl00h0b4j4k4vwmmijld44cdmj208v9" "6f5e9c8eb029" "ko")
|
||
("0kx0hz0dp9bdgf0r0m9qsip2ybrc4dwmry3kp488z2pig0asai7x" "dcdf4bf4482b" "lij")
|
||
("1iawv3hbl0wab1xzhhihxiqsz2i6icf64ipmjrpm9srlg6kaxgg5" "913770b70ead" "lt")
|
||
("15ppml5b0f78ycdswff0yqr27d649fr2rggv5dnxqxxm2bx5hzw6" "6351f7efe4d7" "lv")
|
||
("0crbysr0raqh90ayb5rq73d3cddfryfaj4bdbzijk2j2rpdlwv1m" "6acffb2c66ee" "mk")
|
||
("0b5dw5a904w5ibd7yz1839a0cv2hmnlv2bz0kpsr6xf52jv20g6a" "942eca4c76b6" "mr")
|
||
("0fr83kiq7xmw1kyrjrmm3iirlfcp94dyacdkkj9df6gr5qp6wn7i" "de00ab4bb6fe" "ms")
|
||
("011y1yyl97avjawja3gmwwa74kxcvm2g2wn47yv01xqy74wbbss7" "2ce7138cd126" "my")
|
||
("0f6ffh76g31df9kfj6azip2qy0b14s287isgm7sxnclch4jwq83s" "5cc51d238790" "nb-NO")
|
||
("193nw6l0z7vlcd7flb72bc8h7vd9vjj8xlz5lhf7irmfr2bldj0r" "db205a4fd15a" "ne-NP")
|
||
("14qizkrcs1avd78ci4i4hr7v3bz3m51if1jc5wxydkx9n0yb8cgn" "1abc02acab91" "nl")
|
||
("1cjglsaf8ynm4wgzpbcf68gj8jhvnzldrnjlni4c4vvl0bfxnxa2" "b4ff1a7885c2" "nn-NO")
|
||
("0jpdq7zpqs3gnyzz1xvccvjqbzwga35sj85z52vprm6zcxd8gm0m" "1c7d5471dba9" "oc")
|
||
("14apl3vhxkqcy8l5a0ny71f9dkmbb5fakvkpngqv5xgbbl0byfk3" "cf3fd8eb605b" "pa-IN")
|
||
("1aglsx0w3xgbn1dhdbzwcqn8sdkp4bncl5bj7nlick56rbkicj9j" "3c9c3c67830a" "pl")
|
||
("10hqfd0fjbcbgdsj0jxdfvm9abiya05lw2bpy0cz6h61mgjywqiz" "68bf2b7c6f25" "pt-BR")
|
||
("1vvs0kkvnnnsxn1d5fnma55fizzs1bbx5sv5k2w4164k6h7fhxfv" "fae18b48519f" "pt-PT")
|
||
("0c8dl12n5fjdd3bjaf8idyaxsf8ppbma132vdw8bk2wqnh4cv69a" "92110fd6e211" "rm")
|
||
("0mxxy56kj0k5jhjxjv8v4zz57pha819mz7j803lcilax7w52wgca" "5eeba1f64743" "ro")
|
||
("0jrd95n108r4sxdwgy39zjynm5nlzzmiijsfpxxfwj7886wl4faz" "47131134e349" "ru")
|
||
("1lwm5jv3hvjp84a70186x2083nhr3mfcl7kpmw5in9amaflfi41b" "a5cd6d3d67ee" "sat")
|
||
("1q6pn3iixzcas9blf61bhvwgppbsh0am0wdz6a6p9f9978894d73" "880b7986692a" "sc")
|
||
("0xndsph4v725q3xcpmxxjb9vxv19sssqnng82m9215cdsv9klgpb" "bf5f6e362f6f" "sco")
|
||
("0l70n8817mbmbc09fsnn2aqjj9k9dhad2gmzgphmiilf9mqm2dpf" "1f705c926a99" "si")
|
||
("19bqjazazww08chd1qc08dsnr2521088jq5jd4j3185yb1ypm3nr" "c1bd10d70325" "sk")
|
||
("12q1nv6z4bk8yaw3vhl9xs41i7kpx1415mwg635v76fx8h94ycl3" "00eaf8d9e83b" "skr")
|
||
("11nmjmy2j249588ahg4mh9lxdqr476jbh28a07qxxibfa76j9vk3" "44be3cbf69b6" "sl")
|
||
("1ww35141nixg2s03kfmmq9fk6m3qiz2vg7p5a85shjp7i89pyj1d" "800576ff8ef9" "son")
|
||
("1q7nfybwc8mxdwi9fpvfhayq18mykzygkpakr5ngfz2316k8lf5r" "4de8638ac27f" "sq")
|
||
("06wr7zx6kvaxsly5f3ci7kb2zaqlwjjbg1vrimp0jcqs4l5x6wpl" "ec560d96370c" "sr")
|
||
("01n1ly9lihnznrab3kcby2i93k0qwg99c9fh55xpi90vkyq77gmq" "c5754f9325a1" "sv-SE")
|
||
("09kk9bj2139j34md26zysaaf8cqyh5nmf861vxnc2vdsd37nr4x4" "c3fa195a8edf" "szl")
|
||
("1vpr88vj9n7pm87dynyqyyiv1v2igd3w0f3a65g8rirknh3wfw44" "755763981e95" "ta")
|
||
("19qwvi642fpg7zyhlcj9fgnm0bbkvqby6apr7iijayammg2vnyx3" "3a34078388af" "te")
|
||
("1lh3m1d8rblas50g990qwcr2qv2nk5m6isjvi0gr57zhc4l9a4lw" "24c3a61f463c" "tg")
|
||
("0sr0wa886a5gwrgn7rmn08sn6qz4p58037wx9gskacclhrzs53aw" "6dad5f8774df" "th")
|
||
("19cvf42lmi9996mxlmplpk1b65p1fh4ja36xprs115z2n1iky9y5" "befaa7917b35" "tl")
|
||
("04p50pd380hdalizz09qix7camipazkjyyi97f3sl04h6i67vz17" "66c8bc5e9da6" "tr")
|
||
("0lqbaxkdvi8hjns8myssmv6bxymh53glf0w2nfpj72zh40rr1n09" "9e86caeded11" "trs")
|
||
("13qmsji7gyad0d23ac7lx4181zhm3kb9xym82z786f7k271jq7kl" "bd5e0aad5f0b" "uk")
|
||
("0m52xl2vy0paj5kcfk8jy70hhck5bgdg8lb6cvjqm2mhl5sli0ka" "040d506ed663" "ur")
|
||
("1n0gdgjwwwd5yd69ylr05hskjxasydnkqw33rncpx7491x3nf4kf" "7e4e5290c700" "uz")
|
||
("140lnl9dq82azlw1qic386h4z0xbilcf3jvjy93qid67mvnmwqqm" "b8196f646583" "vi")
|
||
("07yc91645aiks3fxzx16kw4kzvksyrj36n9iz59wn9wppzlampx6" "ef98e07b4b9e" "xh")
|
||
("1c1sfaincridbdp66bzgwgxgp5gqpvzkf10m9yafm9bgkif18vwy" "f614d8a31562" "zh-CN")
|
||
("0s9chi76476gznrxjcn6slhgsznjnaps0h29kck6ijb0x3yx98xi" "ab22459ceb2f" "zh-TW")))
|
||
|
||
;; XXXX: Workaround 'snippet' limitations.
|
||
(define computed-origin-method (@@ (guix packages) computed-origin-method))
|
||
|
||
(define %icecat-base-version "115.15.0")
|
||
(define %icecat-version (string-append %icecat-base-version "-guix1"))
|
||
(define %icecat-build-id "20240903000000") ;must be of the form YYYYMMDDhhmmss
|
||
|
||
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
|
||
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
|
||
;; script from the upstream IceCat project.
|
||
(define icecat-source
|
||
(let* ((major-version (first (string-split %icecat-base-version #\.)))
|
||
(minor-version (second (string-split %icecat-base-version #\.)))
|
||
(sub-version (third (string-split %icecat-base-version #\.)))
|
||
|
||
(upstream-firefox-version (string-append %icecat-base-version "esr"))
|
||
(upstream-firefox-source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://ftp.mozilla.org/pub/firefox/releases/"
|
||
upstream-firefox-version "/source/"
|
||
"firefox-" upstream-firefox-version ".source.tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"10dfzvkwb4mwz42j93zyxgjp5aryzsfja4f62hb8fqfrl0mdkzpg"))))
|
||
|
||
;; The upstream-icecat-base-version may be older than the
|
||
;; %icecat-base-version.
|
||
(upstream-icecat-base-version "115.15.0")
|
||
(gnuzilla-commit "53ca891e1aac86153b65a12af97eef9752503313")
|
||
(gnuzilla-source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "git://git.savannah.gnu.org/gnuzilla.git")
|
||
(commit gnuzilla-commit)))
|
||
(file-name (git-file-name "gnuzilla"
|
||
;;upstream-icecat-base-version
|
||
(string-take gnuzilla-commit 8)))
|
||
(sha256
|
||
(base32
|
||
"19bsci50bhg5wi9yndxwbi4f04gsmgkq2hrccqv01cjf1ajniw6k"))))
|
||
|
||
;; 'search-patch' returns either a valid file name or #f, so wrap it
|
||
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
|
||
(makeicecat-patch
|
||
(local-file (assume-valid-file-name
|
||
(search-patch "icecat-makeicecat.patch")))))
|
||
|
||
(origin
|
||
(method computed-origin-method)
|
||
(file-name (string-append "icecat-" %icecat-version ".tar.xz"))
|
||
(sha256 #f)
|
||
(uri
|
||
(delay
|
||
(with-imported-modules '((guix build utils))
|
||
#~(begin
|
||
(use-modules (guix build utils))
|
||
(let ((firefox-dir
|
||
(string-append "firefox-" #$%icecat-base-version))
|
||
(icecat-dir
|
||
(string-append "icecat-" #$%icecat-version)))
|
||
|
||
(set-path-environment-variable
|
||
"PATH" '("bin")
|
||
(list #+python
|
||
#+(canonical-package bash)
|
||
#+(canonical-package coreutils)
|
||
#+(canonical-package findutils)
|
||
#+(canonical-package patch)
|
||
#+(canonical-package xz)
|
||
#+(canonical-package sed)
|
||
#+(canonical-package grep)
|
||
#+(canonical-package bzip2)
|
||
#+(canonical-package gzip)
|
||
#+(canonical-package tar)))
|
||
|
||
(set-path-environment-variable
|
||
"PYTHONPATH"
|
||
(list #+(format #f "lib/python~a/site-packages"
|
||
(version-major+minor
|
||
(package-version python))))
|
||
'#+(cons python-jsonschema
|
||
(map second
|
||
(package-transitive-propagated-inputs
|
||
python-jsonschema))))
|
||
|
||
;; We copy the gnuzilla source directory because it is
|
||
;; read-only in 'gnuzilla-source', and the makeicecat script
|
||
;; uses "cp -a" to copy parts of it and assumes that the
|
||
;; copies will be writable.
|
||
(copy-recursively #+gnuzilla-source "/tmp/gnuzilla"
|
||
#:log (%make-void-port "w"))
|
||
|
||
(with-directory-excursion "/tmp/gnuzilla"
|
||
(make-file-writable "makeicecat")
|
||
(invoke "patch" "--force" "--no-backup-if-mismatch"
|
||
"-p1" "--input" #+makeicecat-patch)
|
||
(patch-shebang "makeicecat")
|
||
(substitute* "makeicecat"
|
||
(("^readonly FFMAJOR=(.*)" all ffmajor)
|
||
(unless (string=? #$major-version
|
||
(string-trim-both ffmajor))
|
||
;; The makeicecat script cannot be expected to work
|
||
;; properly on a different version of Firefox, even if
|
||
;; no errors occur during execution.
|
||
(error "makeicecat major version mismatch"))
|
||
(string-append "readonly FFMAJOR=" #$major-version "\n"))
|
||
(("^readonly FFMINOR=.*")
|
||
(string-append "readonly FFMINOR=" #$minor-version "\n"))
|
||
(("^readonly FFSUB=.*")
|
||
(string-append "readonly FFSUB=" #$sub-version "\n"))
|
||
(("^readonly DATADIR=.*")
|
||
"readonly DATADIR=/tmp/gnuzilla/data\n")
|
||
(("^readonly SOURCEDIR=.*")
|
||
(string-append "readonly SOURCEDIR=" icecat-dir "\n"))
|
||
(("/bin/sed")
|
||
#+(file-append (canonical-package sed) "/bin/sed"))))
|
||
|
||
(format #t "Unpacking upstream firefox tarball...~%")
|
||
(force-output)
|
||
(invoke "tar" "xf" #+upstream-firefox-source)
|
||
(rename-file firefox-dir icecat-dir)
|
||
|
||
(with-directory-excursion icecat-dir
|
||
(format #t "Populating l10n directory...~%")
|
||
(force-output)
|
||
(mkdir "l10n")
|
||
(with-directory-excursion "l10n"
|
||
(for-each
|
||
(lambda (locale-dir)
|
||
(let ((locale
|
||
(string-drop (basename locale-dir)
|
||
(+ 32 ; length of hash
|
||
(string-length "-mozilla-locale-")))))
|
||
(format #t " ~a~%" locale)
|
||
(force-output)
|
||
(copy-recursively locale-dir locale
|
||
#:log (%make-void-port "w"))
|
||
(for-each make-file-writable (find-files locale))
|
||
(with-directory-excursion locale
|
||
(when (file-exists? ".hgtags")
|
||
(delete-file ".hgtags"))
|
||
(mkdir-p "browser/chrome/browser/preferences")
|
||
(call-with-output-file
|
||
"browser/chrome/browser/preferences/advanced-scripts.dtd"
|
||
(lambda (port) #f)))))
|
||
'#+all-mozilla-locales)
|
||
(copy-recursively #+mozilla-compare-locales
|
||
"compare-locales"
|
||
#:log (%make-void-port "w"))
|
||
(delete-file "compare-locales/.gitignore")
|
||
(delete-file "compare-locales/.hgignore")
|
||
(delete-file "compare-locales/.hgtags")))
|
||
|
||
(format #t "Running makeicecat script...~%")
|
||
(force-output)
|
||
(invoke "bash" "/tmp/gnuzilla/makeicecat")
|
||
|
||
(format #t "Packing IceCat source tarball...~%")
|
||
(force-output)
|
||
(setenv "XZ_DEFAULTS" (string-join (%xz-parallel-args)))
|
||
(invoke "tar" "cfa" #$output
|
||
;; Avoid non-determinism in the archive. We set the
|
||
;; mtime of files in the archive to early 1980 because
|
||
;; the build process fails if the mtime of source
|
||
;; files is pre-1980, due to the creation of zip
|
||
;; archives.
|
||
"--mtime=@315619200" ; 1980-01-02 UTC
|
||
"--owner=root:0"
|
||
"--group=root:0"
|
||
"--sort=name"
|
||
icecat-dir)))))))))
|
||
|
||
(define-public icecat-minimal
|
||
(package
|
||
(name "icecat-minimal")
|
||
(version %icecat-version)
|
||
(source icecat-source)
|
||
(build-system mozilla-build-system)
|
||
(inputs
|
||
(list alsa-lib
|
||
bash-minimal
|
||
bzip2
|
||
cups
|
||
dbus-glib
|
||
gdk-pixbuf
|
||
glib
|
||
gtk+
|
||
;; UNBUNDLE-ME! graphite2
|
||
cairo
|
||
pango
|
||
freetype
|
||
font-dejavu
|
||
;; UNBUNDLE-ME! harfbuzz
|
||
libcanberra
|
||
libgnome
|
||
libjpeg-turbo
|
||
libpng-apng
|
||
;; UNBUNDLE-ME! libogg
|
||
;; UNBUNDLE-ME! libtheora ; wants theora-1.2, not yet released
|
||
;; UNBUNDLE-ME! libvorbis
|
||
libxft
|
||
libevent
|
||
libxinerama
|
||
libxscrnsaver
|
||
libxcomposite
|
||
libxt
|
||
libffi
|
||
;; Support for FFmpeg 6 was only added in version 112 (see:
|
||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1819374).
|
||
ffmpeg-5
|
||
libvpx
|
||
icu4c-73
|
||
pixman
|
||
pulseaudio
|
||
mesa
|
||
pciutils
|
||
mit-krb5
|
||
hunspell
|
||
libnotify
|
||
nspr
|
||
;; UNBUNDLE-ME! nss (pending upgrade of 'nss' to 3.90 or later)
|
||
shared-mime-info
|
||
sqlite
|
||
eudev
|
||
unzip
|
||
zip
|
||
zlib))
|
||
(native-inputs
|
||
;; The following patches are specific to the Guix packaging of IceCat,
|
||
;; and therefore we prefer to leave them out of 'source', which should be
|
||
;; a tarball suitable for compilation on any system that IceCat supports.
|
||
;; (Bug fixes and security fixes, however, should go in 'source').
|
||
(list
|
||
;; XXX TODO: Adapt these patches to IceCat 102.
|
||
;; ("icecat-avoid-bundled-libraries.patch"
|
||
;; ,(search-patch "icecat-avoid-bundled-libraries.patch"))
|
||
;; ("icecat-use-system-graphite2+harfbuzz.patch"
|
||
;; ,(search-patch "icecat-use-system-graphite2+harfbuzz.patch"))
|
||
;; ("icecat-use-system-media-libs.patch"
|
||
;; ,(search-patch "icecat-use-system-media-libs.patch"))
|
||
rust
|
||
`(,rust "cargo")
|
||
rust-cbindgen
|
||
llvm-15
|
||
clang-15
|
||
perl
|
||
node-lts
|
||
python-wrapper
|
||
yasm
|
||
nasm ; XXX FIXME: only needed on x86_64 and i686
|
||
pkg-config
|
||
m4
|
||
which))
|
||
(arguments
|
||
(list
|
||
#:tests? #f ;not worth the cost
|
||
|
||
;; Some dynamic lib was determined at runtime, so rpath check may fail.
|
||
#:validate-runpath? #f
|
||
|
||
#:configure-flags
|
||
#~(list
|
||
"--enable-application=browser"
|
||
"--with-distribution-id=org.gnu"
|
||
"--enable-geckodriver"
|
||
;; Do not require addons in the global app or system directories to
|
||
;; be signed by Mozilla.
|
||
"--with-unsigned-addon-scopes=app,system"
|
||
"--allow-addon-sideload"
|
||
|
||
"--enable-pulseaudio"
|
||
|
||
"--disable-tests"
|
||
"--disable-updater"
|
||
"--disable-crashreporter"
|
||
;; The --disable-eme option is not available on aarch64.
|
||
#$(if (target-aarch64?) "" "--disable-eme")
|
||
|
||
;; Building with debugging symbols takes ~5GiB, so disable it.
|
||
"--disable-debug"
|
||
"--disable-debug-symbols"
|
||
|
||
"--enable-rust-simd"
|
||
"--enable-release"
|
||
"--enable-optimize"
|
||
"--enable-strip"
|
||
"--disable-elf-hack"
|
||
|
||
;; Clang is needed to build Stylo, Mozilla's new CSS engine. We must
|
||
;; specify the clang paths manually, because otherwise the Mozilla
|
||
;; build system looks in the directories returned by llvm-config
|
||
;; --bindir and llvm-config --libdir, which return paths in the llvm
|
||
;; package where clang is not found.
|
||
(string-append "--with-clang-path="
|
||
(search-input-file %build-inputs "bin/clang"))
|
||
(string-append "--with-libclang-path="
|
||
(dirname (search-input-file %build-inputs
|
||
"lib/libclang.so")))
|
||
|
||
;; Hack to work around missing "unofficial" branding in icecat.
|
||
"--enable-official-branding"
|
||
|
||
;; TODO: Add support for wasm sandboxed libraries.
|
||
"--without-wasm-sandboxed-libraries"
|
||
|
||
;; Avoid bundled libraries.
|
||
"--with-system-jpeg" ;must be libjpeg-turbo
|
||
"--with-system-png" ;must be libpng-apng
|
||
"--with-system-zlib"
|
||
;; UNBUNDLE-ME! "--with-system-bz2"
|
||
;; UNBUNDLE-ME! "--with-system-libevent"
|
||
;; UNBUNDLE-ME! "--with-system-ogg"
|
||
;; UNBUNDLE-ME! "--with-system-vorbis"
|
||
;; UNBUNDLE-ME! "--with-system-theora" ; wants theora-1.2, not yet released
|
||
;; UNBUNDLE-ME! "--with-system-libvpx"
|
||
"--with-system-icu"
|
||
"--with-system-nspr"
|
||
;; UNBUNDLE-ME! "--with-system-nss" ; pending upgrade of 'nss' to 3.90
|
||
|
||
;; UNBUNDLE-ME! "--with-system-harfbuzz"
|
||
;; UNBUNDLE-ME! "--with-system-graphite2"
|
||
"--enable-system-pixman"
|
||
"--enable-system-ffi"
|
||
;; UNBUNDLE-ME! "--enable-system-sqlite"
|
||
)
|
||
|
||
#:imported-modules %cargo-utils-modules ;for `generate-all-checksums'
|
||
|
||
#:modules `((ice-9 ftw)
|
||
(ice-9 match)
|
||
(srfi srfi-1)
|
||
(srfi srfi-26)
|
||
(rnrs bytevectors)
|
||
(rnrs io ports)
|
||
(guix elf)
|
||
(guix build gremlin)
|
||
,@%default-gnu-modules)
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'apply-guix-specific-patches
|
||
(lambda _
|
||
(for-each
|
||
(lambda (file) (invoke "patch" "--force" "-p1" "-i" file))
|
||
'(#$(local-file
|
||
(search-patch "icecat-compare-paths.patch"))
|
||
#$(local-file
|
||
(search-patch "icecat-use-system-wide-dir.patch"))))))
|
||
(add-after 'apply-guix-specific-patches 'remove-bundled-libraries
|
||
(lambda _
|
||
;; Remove bundled libraries that we don't use, since they may
|
||
;; contain unpatched security flaws, they waste disk space and
|
||
;; memory, and may cause confusion.
|
||
(for-each (lambda (file)
|
||
(format #t "deleting '~a'...~%" file)
|
||
(delete-file-recursively file))
|
||
'( ;; FIXME: Removing the bundled icu breaks configure.
|
||
;; * The bundled icu headers are used in some places.
|
||
;; * The version number is taken from the bundled copy.
|
||
;;"intl/icu"
|
||
;;
|
||
;; FIXME: A script from the bundled nspr is used.
|
||
;;"nsprpub"
|
||
;;
|
||
;; FIXME: Some of the bundled NSS sources are used
|
||
;; to build third_party/prio.
|
||
;;"security/nss"
|
||
;;
|
||
;; TODO: Use more system media libraries. See:
|
||
;; <https://bugzilla.mozilla.org/show_bug.cgi?id=517422>
|
||
;; * libtheora: esr60 wants v1.2, not yet released.
|
||
;; * soundtouch: avoiding the bundled library would
|
||
;; result in some loss of functionality. There's
|
||
;; also an issue with exception handling
|
||
;; configuration. It seems that this is needed in
|
||
;; some moz.build:
|
||
;; DEFINES['ST_NO_EXCEPTION_HANDLING'] = 1
|
||
;; * libopus
|
||
;; * speex
|
||
;;
|
||
"modules/freetype2"
|
||
;; "media/libjpeg" ; needed for now, because media/libjpeg/moz.build is referenced from config/external/moz.build
|
||
;; UNBUNDLE-ME! "modules/zlib"
|
||
;; UNBUNDLE-ME! "ipc/chromium/src/third_party/libevent"
|
||
;; UNBUNDLE-ME! "media/libvpx"
|
||
;; UNBUNDLE-ME! "media/libogg"
|
||
;; UNBUNDLE-ME! "media/libvorbis"
|
||
;; UNBUNDLE-ME! "media/libtheora" ; wants theora-1.2, not yet released
|
||
;; UNBUNDLE-ME! "media/libtremor"
|
||
;; UNBUNDLE-ME! "gfx/harfbuzz"
|
||
;; UNBUNDLE-ME! "gfx/graphite2"
|
||
"js/src/ctypes/libffi"
|
||
;; UNBUNDLE-ME! "db/sqlite3"
|
||
))))
|
||
(add-after 'remove-bundled-libraries 'fix-ffmpeg-runtime-linker
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Arrange to load libavcodec.so by its absolute file name.
|
||
(substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
|
||
(("libavcodec\\.so")
|
||
(search-input-file inputs "lib/libavcodec.so")))))
|
||
(add-after 'fix-ffmpeg-runtime-linker 'build-sandbox-whitelist
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(define (runpath-of lib)
|
||
(call-with-input-file lib
|
||
(compose elf-dynamic-info-runpath
|
||
elf-dynamic-info
|
||
parse-elf
|
||
get-bytevector-all)))
|
||
(define (runpaths-of-input label)
|
||
(let* ((dir (string-append (assoc-ref inputs label) "/lib"))
|
||
(libs (find-files dir "\\.so$")))
|
||
(append-map runpath-of libs)))
|
||
;; Populate the sandbox read-path whitelist as needed by ffmpeg.
|
||
(let* ((whitelist
|
||
(map (cut string-append <> "/")
|
||
(delete-duplicates
|
||
`(,(string-append (assoc-ref inputs "shared-mime-info")
|
||
"/share/mime")
|
||
,(string-append (assoc-ref inputs "font-dejavu")
|
||
"/share/fonts")
|
||
"/run/current-system/profile/share/fonts"
|
||
,@(append-map runpaths-of-input
|
||
'("mesa" "ffmpeg"))))))
|
||
(whitelist-string (string-join whitelist ","))
|
||
(port (open-file "browser/app/profile/icecat.js" "a")))
|
||
(format #t "setting 'security.sandbox.content.read_path_whitelist' to '~a'~%"
|
||
whitelist-string)
|
||
(format port "~%pref(\"security.sandbox.content.read_path_whitelist\", ~S);~%"
|
||
whitelist-string)
|
||
(close-output-port port))))
|
||
(add-after 'patch-source-shebangs 'patch-cargo-checksums
|
||
(lambda _
|
||
(use-modules (guix build cargo-utils))
|
||
(let ((null-hash "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"))
|
||
(for-each (lambda (file)
|
||
(format #t "patching checksums in ~a~%" file)
|
||
(substitute* file
|
||
(("^checksum = \".*\"")
|
||
(string-append "checksum = \"" null-hash "\""))))
|
||
(find-files "." "Cargo.lock$"))
|
||
(for-each generate-all-checksums
|
||
'("services"
|
||
"js"
|
||
"third_party/rust"
|
||
"dom/media"
|
||
"dom/webauthn"
|
||
"toolkit"
|
||
"gfx"
|
||
"storage"
|
||
"modules"
|
||
"xpcom/rust"
|
||
"media"
|
||
"mozglue/static/rust"
|
||
"netwerk"
|
||
"remote"
|
||
"intl"
|
||
"servo"
|
||
"security/manager/ssl"
|
||
"build")))))
|
||
(add-after 'patch-cargo-checksums 'remove-cargo-frozen-flag
|
||
(lambda _
|
||
;; Remove --frozen flag from cargo invokation, otherwise it'll
|
||
;; complain that it's not able to change Cargo.lock.
|
||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1726373
|
||
(substitute* "build/RunCbindgen.py"
|
||
(("\"--frozen\",") ""))))
|
||
(delete 'bootstrap)
|
||
(replace 'configure
|
||
;; configure does not work followed by both "SHELL=..." and
|
||
;; "CONFIG_SHELL=..."; set environment variables instead
|
||
(lambda* (#:key outputs configure-flags #:allow-other-keys)
|
||
(let* ((bash (which "bash"))
|
||
(abs-srcdir (getcwd))
|
||
(flags `(,(string-append "--prefix=" #$output)
|
||
,(string-append "--with-l10n-base="
|
||
abs-srcdir "/l10n")
|
||
,@configure-flags)))
|
||
(setenv "SHELL" bash)
|
||
(setenv "CONFIG_SHELL" bash)
|
||
|
||
(setenv "AR" "llvm-ar")
|
||
(setenv "NM" "llvm-nm")
|
||
(setenv "CC" "clang")
|
||
(setenv "CXX" "clang++")
|
||
(setenv "LDFLAGS" (string-append "-Wl,-rpath="
|
||
#$output "/lib/icecat"))
|
||
|
||
(setenv "MACH_BUILD_PYTHON_NATIVE_PACKAGE_SOURCE" "system")
|
||
(setenv "MOZ_BUILD_DATE" #$%icecat-build-id) ; avoid timestamp
|
||
|
||
;; WM_CLASS (default is "$MOZ_APP_NAME-$MOZ_UPDATE_CHANNEL").
|
||
(setenv "MOZ_APP_REMOTINGNAME" "Icecat")
|
||
|
||
;; XXX TODO: Fix this to work on systems other than x86_64-linux.
|
||
(setenv "GUIX_PYTHONPATH"
|
||
(string-append (getcwd)
|
||
"/obj-x86_64-pc-linux-gnu/_virtualenvs/build"))
|
||
|
||
(mkdir ".mozbuild")
|
||
(setenv "MOZBUILD_STATE_PATH"
|
||
(string-append (getcwd) "/.mozbuild"))
|
||
|
||
(format #t "build directory: ~s~%" (getcwd))
|
||
(format #t "configure flags: ~s~%" flags)
|
||
|
||
(call-with-output-file "mozconfig"
|
||
(lambda (port)
|
||
(for-each (lambda (flag)
|
||
(format port "ac_add_options ~a\n" flag))
|
||
flags)))
|
||
|
||
(invoke "./mach" "configure"))))
|
||
(replace 'build
|
||
(lambda* (#:key (make-flags '()) (parallel-build? #t)
|
||
#:allow-other-keys)
|
||
(apply invoke "./mach" "build"
|
||
;; mach will use a wide parallel build if possible by
|
||
;; default, so reign it in if requested.
|
||
`(,(string-append
|
||
"-j" (number->string (if parallel-build?
|
||
(parallel-job-count)
|
||
1)))
|
||
,@make-flags))))
|
||
(add-after 'build 'neutralise-store-references
|
||
(lambda _
|
||
;; Mangle the store references to compilers & other build tools in
|
||
;; about:buildconfig, reducing IceCat's closure by 1 GiB on x86-64.
|
||
(let* ((obj-dir (match (scandir "." (cut string-prefix? "obj-" <>))
|
||
((dir) dir)))
|
||
(file (string-append
|
||
obj-dir
|
||
"/dist/bin/chrome/toolkit/content/global/buildconfig.html")))
|
||
(substitute* file
|
||
(("[0-9a-df-np-sv-z]{32}" hash)
|
||
(string-append (string-take hash 8)
|
||
"<!-- Guix: not a runtime dependency -->"
|
||
(string-drop hash 8)))))))
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(invoke "./mach" "install")
|
||
;; The geckodriver binary is not installed by the above, for some
|
||
;; reason. Use 'find-files' to avoid having to deal with the
|
||
;; system/architecture-specific file name.
|
||
(install-file (first (find-files "." "geckodriver"))
|
||
(string-append #$output "/bin"))))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let* ((lib (string-append #$output "/lib"))
|
||
(gtk #$(this-package-input "gtk+"))
|
||
(gtk-share (string-append gtk "/share"))
|
||
(ld-libs '#$(cons
|
||
(file-append
|
||
(this-package-input "libcanberra")
|
||
"/lib/gtk-3.0/modules")
|
||
(map (lambda (label)
|
||
(file-append (this-package-input label) "/lib"))
|
||
'("libpng-apng"
|
||
"libxscrnsaver"
|
||
"mesa"
|
||
"pciutils"
|
||
"mit-krb5"
|
||
"eudev"
|
||
"pulseaudio"
|
||
;; For the integration of native notifications
|
||
;; (same reason as icedove)
|
||
"libnotify")))))
|
||
(wrap-program (car (find-files lib "^icecat$"))
|
||
`("XDG_DATA_DIRS" prefix (,gtk-share))
|
||
;; The following line is commented out because the icecat
|
||
;; package on guix has been observed to be unstable when
|
||
;; using wayland, and the bundled extensions stop working.
|
||
;; `("MOZ_ENABLE_WAYLAND" = ("1"))
|
||
`("LD_LIBRARY_PATH" prefix ,ld-libs)))))
|
||
(add-after 'wrap-program 'install-desktop-entry
|
||
(lambda _
|
||
;; Install the '.desktop' file.
|
||
(let* ((desktop-file "taskcluster/docker/icecat-snap/icecat.desktop")
|
||
(applications (string-append #$output "/share/applications")))
|
||
(substitute* desktop-file
|
||
(("^Exec=icecat") (string-append "Exec=" #$output "/bin/icecat"))
|
||
(("IceCat") "GNU IceCat")
|
||
(("Icon=.*") "Icon=icecat\n")
|
||
(("NewWindow") "new-window")
|
||
(("NewPrivateWindow") "new-private-window")
|
||
(("StartupNotify=true")
|
||
"StartupNotify=true\nStartupWMClass=Icecat"))
|
||
(install-file desktop-file applications))))
|
||
(add-after 'install-desktop-entry 'install-icons
|
||
(lambda _
|
||
(with-directory-excursion "browser/branding/official"
|
||
(for-each
|
||
(lambda (file)
|
||
(let* ((size (string-filter char-numeric? file))
|
||
(icons (string-append #$output "/share/icons/hicolor/"
|
||
size "x" size "/apps")))
|
||
(mkdir-p icons)
|
||
(copy-file file (string-append icons "/icecat.png"))))
|
||
'("default16.png" "default22.png" "default24.png"
|
||
"default32.png" "default48.png" "content/icon64.png"
|
||
"mozicon128.png" "default256.png"))))))))
|
||
(native-search-paths
|
||
(list (search-path-specification
|
||
(variable "ICECAT_SYSTEM_DIR")
|
||
(separator #f) ;single entry
|
||
(files '("lib/icecat")))))
|
||
(home-page "https://www.gnu.org/software/gnuzilla/")
|
||
(synopsis "Entirely free browser derived from Mozilla Firefox")
|
||
(description
|
||
"IceCat is the GNU version of the Firefox browser. It is entirely free
|
||
software, which does not recommend non-free plugins and addons. It also
|
||
features built-in privacy-protecting features. This package also includes the
|
||
@command{geckodriver} command, which can be useful for automated web
|
||
testing.")
|
||
(license license:mpl2.0) ;and others, see toolkit/content/license.html
|
||
(properties
|
||
`((ftp-directory . "/gnu/gnuzilla")
|
||
(cpe-name . "firefox_esr")
|
||
(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" "fur" "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" "sc" "sco" "si" "sk" "sl" "son" "sq" "sr" "sv-SE" "szl" "ta" "te" "tg"
|
||
"th" "tl" "tr" "trs" "uk" "ur" "uz" "vi" "xh" "zh-CN" "zh-TW"))
|
||
|
||
(define %icedove-build-id "20240807000000") ;must be of the form YYYYMMDDhhmmss
|
||
(define %icedove-version "115.14.0")
|
||
|
||
;; Provides the "comm" folder which is inserted into the icecat source.
|
||
;; Avoids the duplication of Icecat's source tarball.
|
||
(define thunderbird-comm-source
|
||
(origin
|
||
(method hg-fetch)
|
||
(uri (hg-reference
|
||
(url "https://hg.mozilla.org/releases/comm-esr115")
|
||
(changeset "99f915f469c83ab9f535e41cce590e44f6ccfa46")))
|
||
(file-name (string-append "thunderbird-" %icedove-version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"0w6ckv6d95f4ildfbwv343zpgl3j4gnramc0vnjc1l3k72pcbjn2"))))
|
||
|
||
(define (comm-source->locales+changeset source)
|
||
"Given SOURCE, a checkout of the Thunderbird 'comm' component, return the
|
||
list of languages supported as well as the currently used changeset."
|
||
(match (update-mozilla-locales
|
||
(string-append source "/mail/locales/l10n-changesets.json"))
|
||
(((_ changeset locale) ...)
|
||
(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"))
|
||
|
||
(define thunderbird-comm-l10n
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://ftp.mozilla.org/pub/thunderbird/releases/"
|
||
%icedove-version
|
||
"/source/thunderbird-"
|
||
%icedove-version
|
||
".strings_all.tar.zst"))
|
||
(sha256
|
||
(base32
|
||
"0ymnxsdlnh56bjishs1i35yq96qng1apsp5yjgn9cvvmr7mr926b"))))
|
||
|
||
(define icedove-source
|
||
(let ((name (string-append "icedove-" %icedove-version)))
|
||
(origin
|
||
(method computed-origin-method)
|
||
(file-name (string-append name ".tar.xz"))
|
||
(sha256 #f)
|
||
(uri
|
||
(delay
|
||
(with-imported-modules (source-module-closure '((guix build utils)))
|
||
#~(begin
|
||
(use-modules (guix build utils)
|
||
(sxml simple))
|
||
|
||
(set-path-environment-variable
|
||
"PATH" '("bin")
|
||
(list #+(canonical-package tar)
|
||
#+(canonical-package xz)
|
||
#+(canonical-package zstd)))
|
||
|
||
;; Extract the base Icecat tarball, renaming its top-level
|
||
;; directory.
|
||
(invoke "tar" "--transform" (string-append "s,[^/]*," #$name ",")
|
||
"-xf" #$icecat-source)
|
||
(chdir #$name)
|
||
|
||
;; Merge the Thunderdbird localization data.
|
||
(invoke "tar" "--extract" "--file" #$thunderbird-comm-l10n
|
||
"--directory" "l10n/")
|
||
|
||
;; Add the Thunderbird-specific "comm" directory..
|
||
(mkdir "comm")
|
||
(copy-recursively #$thunderbird-comm-source "comm")
|
||
(delete-file "sourcestamp.txt")
|
||
|
||
;; Adjust the application name.
|
||
(substitute* "comm/mail/confvars.sh"
|
||
(("MOZ_APP_NAME=thunderbird")
|
||
"MOZ_APP_NAME=icedove")
|
||
(("MOZ_UPDATER=1")
|
||
"MOZ_UPDATER=0"))
|
||
|
||
;; Remove branding to comply with Mozilla's trademark policy
|
||
(with-directory-excursion "comm/mail/branding/nightly"
|
||
(delete-file "content/about-wordmark.svg")
|
||
(call-with-output-file "content/about-wordmark.svg"
|
||
(lambda (port)
|
||
(sxml->xml '(svg (@ (xmlns "http://www.w3.org/2000/svg")
|
||
(viewBox "0 0 789.1 90.78")
|
||
(width "333")
|
||
(height "48")
|
||
(fill "#fff"))
|
||
(text (@ (x "400") (y "70")
|
||
(text-anchor "middle")
|
||
(font-size "90"))
|
||
"Icedove Daily"))
|
||
port)))
|
||
(substitute* '("locales/en-US/brand.properties"
|
||
"locales/en-US/brand.ftl"
|
||
"locales/en-US/brand.dtd"
|
||
"configure.sh")
|
||
(("Thunderbird") "Icedove")
|
||
(("mozilla.org") "guix.gnu.org")))
|
||
;; Remove other mentions of Thunderbird in user-visible text.
|
||
(with-directory-excursion "comm/mail/base/content"
|
||
(substitute* '("overrides/app-license-name.html")
|
||
(("Thunderbird") "Icedove")))
|
||
(with-directory-excursion "comm/mail/components/"
|
||
(substitute* '("MailGlue.jsm"
|
||
"extensions/schemas/addressBook.json"
|
||
"extensions/schemas/tabs.json"
|
||
"extensions/schemas/cloudFile.json"
|
||
"extensions/schemas/chrome_settings_overrides.json"
|
||
"extensions/schemas/windows.json"
|
||
"extensions/parent/ext-mail.js"
|
||
"im/messages/mail/Info.plist"
|
||
"enterprisepolicies/moz.build"
|
||
"enterprisepolicies/helpers/moz.build"
|
||
"enterprisepolicies/schemas/moz.build")
|
||
(("Thunderbird") "Icedove")))
|
||
(substitute* '("comm/mailnews/base/prefs/content/accountUtils.js"
|
||
"comm/mail/base/content/customizeToolbar.js"
|
||
"comm/suite/components/customizeToolbar.js")
|
||
(("AppConstants.MOZ_APP_NAME (.)= \"thunderbird" _ e)
|
||
(format #f "AppConstants.MOZ_APP_NAME ~a= \"icedove" e)))
|
||
|
||
;; Override addon URLs and settings
|
||
(substitute* "comm/mail/app/profile/all-thunderbird.js"
|
||
(("(pref\\(\"extensions.webservice.discoverURL\").*" _ m)
|
||
(string-append m ", \"https://directory.fsf.org/wiki/Icedove\");"))
|
||
(("(pref\\(\"extensions.getAddons.search.url\").*" _ m)
|
||
(string-append m ", \"https://guix.gnu.org/packages\");"))
|
||
(("(pref\\(\"extensions.update.enabled\").*" _ m)
|
||
(string-append m ", false);"))
|
||
(("(pref\\(\"extensions.systemAddon.update.enabled\").*" _ m)
|
||
(string-append m ", false);"))
|
||
(("(pref\\(\"lightweightThemes.update.enabled\").*" _ m)
|
||
(string-append m ", false);"))
|
||
|
||
;; XXX: The autoDisableScopes is tweaked by the makeicecat
|
||
;; script, but it doesn't know about Thunderbird. This is
|
||
;; necessary to allow picking up the extensions found in the
|
||
;; system global application directory, such as the language
|
||
;; packs.
|
||
(("\"extensions.autoDisableScopes\", 15")
|
||
"\"extensions.autoDisableScopes\", 3")
|
||
|
||
;; Set the default locale to that of the operating system.
|
||
((".*extensions.autoDisableScopes.*" anchor)
|
||
(string-append anchor
|
||
"pref(\"intl.locale.requested\", \"\");\n")))
|
||
|
||
;; Step out of the directory and create the tarball.
|
||
(chdir "..")
|
||
(format #t "Packing Icedove source tarball...~%")
|
||
(force-output)
|
||
(setenv "XZ_DEFAULTS" (string-join (%xz-parallel-args)))
|
||
(invoke "tar" "cfa" #$output
|
||
"--mtime=@315619200" ;1980-01-02 UTC
|
||
"--owner=root:0"
|
||
"--group=root:0"
|
||
"--sort=name"
|
||
#$name))))))))
|
||
|
||
(define-public icedove-minimal
|
||
(package
|
||
(name "icedove-minimal")
|
||
(version %icedove-version)
|
||
(source icedove-source)
|
||
(properties
|
||
`((cpe-name . "thunderbird_esr")))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:tests? #f ;no check target
|
||
#:imported-modules %cargo-utils-modules ;for `generate-all-checksums'
|
||
#:modules `((guix build utils) ;find-files
|
||
(sxml simple)
|
||
(ice-9 regex)
|
||
,@%default-gnu-modules)
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'patch-source-shebangs 'patch-cargo-checksums
|
||
(lambda _
|
||
(use-modules (guix build cargo-utils))
|
||
(let ((null-hash "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934\
|
||
ca495991b7852b855"))
|
||
(for-each (lambda (file)
|
||
(format #t "patching checksums in ~a~%" file)
|
||
(substitute* file
|
||
(("^checksum = \".*\"")
|
||
(string-append "checksum = \"" null-hash "\""))))
|
||
(find-files "." "Cargo.lock$"))
|
||
(for-each generate-all-checksums
|
||
'("third_party/rust"
|
||
"toolkit/library/rust")))))
|
||
(add-after 'patch-cargo-checksums 'remove-cargo-frozen-flag
|
||
(lambda _
|
||
;; Remove --frozen flag from cargo invokation, otherwise it'll
|
||
;; complain that it's not able to change Cargo.lock.
|
||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1726373
|
||
(substitute* "build/RunCbindgen.py"
|
||
(("\"--frozen\",") ""))))
|
||
;; Fixes issue where each installation directory generates its own
|
||
;; profile (see:
|
||
;; https://trac.torproject.org/projects/tor/ticket/31457).
|
||
(add-after 'patch-source-shebangs 'fix-profile-setting
|
||
(lambda _
|
||
(substitute* "comm/mail/moz.configure"
|
||
(("\"MOZ_DEDICATED_PROFILES\", True")
|
||
"\"MOZ_DEDICATED_PROFILES\", False"))))
|
||
(add-after 'build 'neutralize-store-references
|
||
(lambda _
|
||
;; Mangle the store references to compilers & other build tools in
|
||
;; about:buildconfig, reducing Icedove's closure significant.
|
||
;; The resulting files are saved in lib/thunderbird/omni.ja
|
||
(substitute*
|
||
;; Use find because the path "obj-x86_64-pc-linux-gnu" contains
|
||
;; the architecture and the system -> more complicated.
|
||
(find-files "." "buildconfig.html")
|
||
(((format #f "(~a/)([0-9a-df-np-sv-z]{32})"
|
||
(regexp-quote (%store-directory)))
|
||
_ store hash)
|
||
(string-append store
|
||
(string-take hash 8)
|
||
"<!-- Guix: not a runtime dependency -->"
|
||
(string-drop hash 8))))))
|
||
(delete 'bootstrap)
|
||
(replace 'configure
|
||
(lambda* (#:key native-inputs inputs configure-flags
|
||
#:allow-other-keys)
|
||
(let* ((bash (which "bash"))
|
||
(abs-srcdir (getcwd))
|
||
(srcdir (string-append "../" (basename abs-srcdir)))
|
||
(flags `(,(string-append "--prefix=" #$output)
|
||
,@configure-flags))
|
||
(mozconfig (string-append (getcwd) "/.mozconfig")))
|
||
(setenv "SHELL" bash)
|
||
(setenv "CONFIG_SHELL" bash)
|
||
(setenv "QA_CONFIGURE_OPTIONS" ".*")
|
||
(setenv "MOZBUILD_STATE_PATH"
|
||
(string-append (getcwd) "/mach_state"))
|
||
(setenv "MOZCONFIG"
|
||
(string-append (getcwd) "/.mozconfig"))
|
||
|
||
(setenv "AR" "llvm-ar")
|
||
(setenv "NM" "llvm-nm")
|
||
(setenv "CC" "clang")
|
||
(setenv "CXX" "clang++")
|
||
|
||
(setenv "MOZ_NOSPAM" "1")
|
||
(setenv "MACH_BUILD_PYTHON_NATIVE_PACKAGE_SOURCE" "system")
|
||
(setenv "PYTHON"
|
||
(search-input-file inputs "/bin/python"))
|
||
(setenv "GUIX_PYTHONPATH"
|
||
(string-append (getcwd)
|
||
"/obj-x86_64-pc-linux-gnu/_virtualenvs/build"))
|
||
|
||
(setenv "MOZ_BUILD_DATE" #$%icedove-build-id) ; avoid timestamp
|
||
(setenv "MOZ_APP_NAME" "icedove")
|
||
;; WM_CLASS (default is "$MOZ_APP_NAME-$MOZ_UPDATE_CHANNEL").
|
||
(setenv "MOZ_APP_REMOTINGNAME" "Icedove")
|
||
|
||
(setenv "LDFLAGS" (string-append "-Wl,-rpath=" #$output
|
||
"/lib/icedove"))
|
||
(mkdir-p (string-append (getcwd) "/builddir"))
|
||
(with-output-to-file mozconfig
|
||
(lambda ()
|
||
(display
|
||
(string-append
|
||
"ac_add_options --allow-addon-sideload\n"
|
||
"ac_add_options --with-unsigned-addon-scopes=app,system\n"
|
||
"ac_add_options --disable-crashreporter\n"
|
||
"ac_add_options --disable-debug\n"
|
||
"ac_add_options --disable-debug-symbols\n"
|
||
"ac_add_options --disable-elf-hack\n"
|
||
"ac_add_options --disable-jit\n"
|
||
"ac_add_options --disable-necko-wifi\n"
|
||
"ac_add_options --disable-official-branding\n"
|
||
"ac_add_options --disable-tests\n"
|
||
"ac_add_options --disable-updater\n"
|
||
"ac_add_options --disable-webrtc\n"
|
||
"ac_add_options --enable-application=comm/mail\n"
|
||
"ac_add_options --enable-default-toolkit=\"cairo-gtk3\"\n"
|
||
"ac_add_options --enable-optimize\n"
|
||
"ac_add_options --enable-pulseaudio\n"
|
||
"ac_add_options --enable-release\n"
|
||
"ac_add_options --enable-strip\n"
|
||
"ac_add_options --enable-system-ffi\n"
|
||
"ac_add_options --enable-system-pixman\n"
|
||
"ac_add_options --prefix=" #$output "\n"
|
||
"ac_add_options --with-clang-path="
|
||
(search-input-file (or native-inputs inputs)
|
||
"bin/clang") "\n"
|
||
"ac_add_options --with-distribution-id=org.gnu\n"
|
||
"ac_add_options --with-libclang-path="
|
||
#$(this-package-native-input "clang") "/lib\n"
|
||
"ac_add_options --with-system-bz2\n"
|
||
"ac_add_options --with-system-icu\n"
|
||
"ac_add_options --with-system-jpeg\n"
|
||
"ac_add_options --with-system-libevent\n"
|
||
"ac_add_options --with-system-nspr\n"
|
||
; UNBUNDLE-ME! "ac_add_options --with-system-nss\n"
|
||
"ac_add_options --with-system-zlib\n"
|
||
"ac_add_options --without-wasm-sandboxed-libraries\n"
|
||
"mk_add_options MOZ_MAKE_FLAGS=-j"
|
||
(number->string (parallel-job-count)) "\n"))))
|
||
(display (getcwd))
|
||
(newline)
|
||
(display "mach configure")
|
||
(invoke "./mach" "configure"))))
|
||
(replace 'build
|
||
(lambda _ (invoke "./mach" "build")))
|
||
(replace 'install
|
||
(lambda _ (invoke "./mach" "install")))
|
||
;; Thunderbird doesn't provide any .desktop file.
|
||
;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1637575
|
||
(add-after 'install 'install-desktop-file
|
||
(lambda _
|
||
(let ((apps (string-append #$output "/share/applications")))
|
||
(mkdir-p apps)
|
||
(with-output-to-file (string-append apps "/icedove.desktop")
|
||
(lambda _
|
||
(format #t
|
||
"[Desktop Entry]~@
|
||
Name=Icedove~@
|
||
Exec=~a/bin/icedove %u~@
|
||
Icon=icedove~@
|
||
GenericName=Mail/News Client~@
|
||
Categories=Network;Email;~@
|
||
Terminal=false~@
|
||
StartupNotify=true~@
|
||
MimeType=x-scheme-handler/mailto;~@
|
||
Type=Application~@
|
||
Actions=ComposeMessage;~@
|
||
StartupWMClass=Icedove;~@
|
||
[Desktop Action ComposeMessage]~@
|
||
Name=Write new message~@
|
||
Exec=~@*~a/bin/icedove -compose~%"
|
||
#$output))))))
|
||
(add-after 'install-desktop-file 'install-icons
|
||
;; TODO: Use actual Icedove branding icons (currently the stock
|
||
;; Thunderbird icon is used).
|
||
(lambda _
|
||
(with-directory-excursion "comm/mail/branding/thunderbird"
|
||
(for-each
|
||
(lambda (file)
|
||
(let* ((size (string-filter char-numeric? file))
|
||
(icons (string-append #$output "/share/icons/hicolor/"
|
||
size "x" size "/apps")))
|
||
(mkdir-p icons)
|
||
(copy-file file (string-append icons "/icedove.png"))))
|
||
'("default16.png" "default22.png" "default24.png"
|
||
"default32.png" "default48.png" "default256.png")))))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let* ((lib (string-append #$output "/lib"))
|
||
(gtk #$(this-package-input "gtk+"))
|
||
(gtk-share (string-append gtk "/share"))
|
||
(pulseaudio #$(this-package-input "pulseaudio"))
|
||
(pulseaudio-lib (string-append pulseaudio "/lib"))
|
||
(eudev #$(this-package-input "eudev"))
|
||
(eudev-lib (string-append eudev "/lib"))
|
||
;; For the integration of native notifications (same reason as icecat)
|
||
(libnotify #$(this-package-input "libnotify"))
|
||
(libnotify-lib (string-append libnotify "/lib")))
|
||
(wrap-program (car (find-files lib "^icedove$"))
|
||
`("XDG_DATA_DIRS" prefix (,gtk-share))
|
||
`("LD_LIBRARY_PATH" prefix (,pulseaudio-lib ,eudev-lib ,libnotify-lib)))))))))
|
||
(inputs
|
||
(list alsa-lib
|
||
bash-minimal
|
||
bzip2
|
||
cairo
|
||
cups
|
||
dbus-glib
|
||
;; Support for FFmpeg 6 was only added in version 112 (see:
|
||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1819374).
|
||
freetype
|
||
gdk-pixbuf
|
||
glib
|
||
gtk+
|
||
gtk+-2
|
||
hunspell
|
||
icu4c-73
|
||
libcanberra
|
||
libevent
|
||
libffi
|
||
libgnome
|
||
libjpeg-turbo
|
||
libnotify
|
||
libpng-apng
|
||
libvpx
|
||
libxcomposite
|
||
libxft
|
||
libxinerama
|
||
libxscrnsaver
|
||
libxt
|
||
mesa
|
||
mit-krb5
|
||
nspr
|
||
;; UNBUNDLE-ME! nss (pending upgrade of 'nss' to 3.90 or later)
|
||
pango
|
||
pixman
|
||
pulseaudio
|
||
sqlite
|
||
startup-notification
|
||
eudev
|
||
unzip
|
||
zip
|
||
zlib))
|
||
(native-inputs
|
||
(list `(,rust "cargo")
|
||
clang-15
|
||
llvm-15
|
||
m4
|
||
nasm
|
||
node-lts
|
||
perl
|
||
pkg-config
|
||
python-wrapper
|
||
rust
|
||
rust-cbindgen
|
||
which
|
||
yasm))
|
||
(home-page "https://www.thunderbird.net")
|
||
(synopsis "Rebranded Mozilla Thunderbird email client")
|
||
(description
|
||
"This package provides an email client built based on Mozilla
|
||
Thunderbird. It supports email, news feeds, chat, calendar and contacts.")
|
||
(license license:mpl2.0)))
|
||
|
||
(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 "GUIX_PYTHONPATH"
|
||
(string-append (getcwd)
|
||
"/obj/_virtualenvs/build/lib/python3.10/site-packages"))
|
||
(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)))))
|
||
'#$locales))))))
|
||
(native-inputs
|
||
(list m4
|
||
perl
|
||
python-wrapper
|
||
node-lts
|
||
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))
|
||
|
||
;;; This hack exists because there's no way to configure extra extension
|
||
;;; search paths for IceCat or Icedove. The global extensions directory is
|
||
;;; constructed relatively to the executable file name.
|
||
(define (make-mozilla-with-l10n project base l10n-package)
|
||
"Return a package definition for PROJECT (a symbol such as 'icecat or
|
||
'icedove) that combines the BASE package with L10N-PACKAGE."
|
||
|
||
(unless (member project '(icecat icedove))
|
||
(error "only icecat or icedove components are currently supported"))
|
||
|
||
(let ((name (symbol->string project))
|
||
(icecat? (eq? 'icecat project)))
|
||
(package
|
||
(inherit base)
|
||
(name (symbol->string project))
|
||
;; Use the copy-build-system, as it provides the necessary UTF-8 locales
|
||
;; support.
|
||
(build-system copy-build-system)
|
||
(arguments
|
||
(list
|
||
#:imported-modules `(,@%copy-build-system-modules
|
||
(guix build union))
|
||
#:modules '((guix build copy-build-system)
|
||
(guix build union)
|
||
(guix build utils))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(replace 'install
|
||
(lambda _
|
||
(union-build #$output (list #$base #$l10n-package)
|
||
#:create-all-directories? #t)
|
||
|
||
(define* (expose name #:optional (proc copy-file)
|
||
#:key (source #$base))
|
||
(let ((dest (string-append #$output "/" name)))
|
||
(mkdir-p (dirname dest))
|
||
(proc (string-append source "/" name) dest)))
|
||
|
||
(let ((wrapper (string-append "lib/" #$name "/" #$name))
|
||
(real-binary (string-append "lib/" #$name "/." #$name
|
||
"-real"))
|
||
(desktop-file (string-append "share/applications/"
|
||
#$name ".desktop")))
|
||
;; Copy wrapper file.
|
||
(delete-file (string-append #$output "/" wrapper))
|
||
(expose wrapper)
|
||
|
||
;; Recreate bin symlink.
|
||
(delete-file (string-append #$output "/bin/" #$name))
|
||
(symlink (string-append #$output "/" wrapper)
|
||
(string-append #$output "/bin/" #$name))
|
||
|
||
;; Copy actual binary.
|
||
(delete-file (string-append #$output "/" real-binary))
|
||
(expose real-binary)
|
||
|
||
;; Copy desktop file.
|
||
(delete-file (string-append #$output "/" desktop-file))
|
||
(expose desktop-file)
|
||
|
||
;; Adjust the references in the desktop file and wrapper.
|
||
(substitute* (list (string-append #$output "/" desktop-file)
|
||
(string-append #$output "/" wrapper))
|
||
((#$base) #$output)))))))))))
|
||
|
||
(define-public icecat
|
||
(make-mozilla-with-l10n 'icecat icecat-minimal icecat-l10n))
|
||
|
||
(define-public icedove
|
||
(make-mozilla-with-l10n 'icedove icedove-minimal icedove-l10n))
|
||
|
||
(define-public icedove/wayland
|
||
(package
|
||
(inherit icedove-minimal)
|
||
(name "icedove-wayland")
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
(list
|
||
#:modules '((guix build utils))
|
||
#:builder
|
||
#~(begin
|
||
(use-modules (guix build utils))
|
||
(let* ((exe (string-append #$output "/bin/icedove")))
|
||
(mkdir-p (dirname exe))
|
||
(call-with-output-file exe
|
||
(lambda (port)
|
||
(format port "#!~a
|
||
MOZ_ENABLE_WAYLAND=1 exec ~a \"$@\""
|
||
#$(file-append bash-minimal "/bin/bash")
|
||
#$(file-append icedove-minimal "/bin/icedove"))))
|
||
(chmod exe #o555)
|
||
;; Provide the manual and .desktop file.
|
||
(copy-recursively (string-append #$icedove-minimal "/share")
|
||
(string-append #$output "/share"))
|
||
(substitute* (string-append #$output
|
||
"/share/applications/icedove.desktop")
|
||
((#$icedove-minimal) #$output))))))
|
||
(native-inputs '())
|
||
(inputs '())))
|
||
|
||
(define-public firefox-decrypt
|
||
(package
|
||
(name "firefox-decrypt")
|
||
(version "1.1.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/Unode/firefox_decrypt")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0dnyl5z7kcgmgdgbz7vg8ha21pk9jiympvq0qc97lgdcdd8wxy0w"))))
|
||
(build-system trivial-build-system)
|
||
(inputs
|
||
(list nss python))
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(setenv "PATH"
|
||
(string-append
|
||
(assoc-ref %build-inputs "python") "/bin"))
|
||
(copy-file (string-append (assoc-ref %build-inputs "source")
|
||
"/firefox_decrypt.py")
|
||
"firefox_decrypt.py")
|
||
(substitute* "firefox_decrypt.py"
|
||
(("/usr/bin/env python3") (which "python3"))
|
||
(("libnss3.so") (string-append (assoc-ref %build-inputs "nss")
|
||
"/lib/nss/libnss3.so")))
|
||
(install-file "firefox_decrypt.py" (string-append %output "/bin"))
|
||
#t)))
|
||
(home-page "https://github.com/Unode/firefox_decrypt/")
|
||
(synopsis "Tool to extract passwords from Mozilla profiles")
|
||
(description "Firefox Decrypt is a tool to extract passwords from
|
||
Mozilla (Firefox, Waterfox, Thunderbird, SeaMonkey) profiles.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public lz4json
|
||
(package
|
||
(name "lz4json")
|
||
(version "2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/andikleen/lz4json")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1xxn8yzr6j8j6prmbj6mxspdczigarfiv3vlm9k70yxmky65ijh3"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list pkg-config))
|
||
(inputs (list lz4))
|
||
(arguments
|
||
`(#:tests? #f ; no check target
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure) ; no configure script
|
||
(replace 'install ; no install target
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(man (string-append out "/share/man/man1")))
|
||
(install-file "lz4jsoncat" bin)
|
||
(install-file "lz4jsoncat.1" man)))))
|
||
#:make-flags `(,(string-append "CC=" ,(cc-for-target)))))
|
||
(home-page "https://github.com/andikleen/lz4json")
|
||
(synopsis "C decompress tool for mozilla lz4json format")
|
||
(description
|
||
"@code{lz4json} is a little utility to unpack lz4json files as generated
|
||
by Firefox's bookmark backups and session restore. This is a different format
|
||
from what the normal lz4 utility expects. The data is dumped to stdout.")
|
||
(license license:bsd-2)))
|