1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
3 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
4 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
5 ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
6 ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
8 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
9 ;;; Copyright © 2017 ng0 <ng0@n0.is>
10 ;;; Copyright © 2017, 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
11 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
12 ;;; Copyright © 2019 Ivan Petkov <ivanppetkov@gmail.com>
13 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
14 ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
16 ;;; This file is part of GNU Guix.
18 ;;; GNU Guix is free software; you can redistribute it and/or modify it
19 ;;; under the terms of the GNU General Public License as published by
20 ;;; the Free Software Foundation; either version 3 of the License, or (at
21 ;;; your option) any later version.
23 ;;; GNU Guix is distributed in the hope that it will be useful, but
24 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
25 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26 ;;; GNU General Public License for more details.
28 ;;; You should have received a copy of the GNU General Public License
29 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
31 (define-module (gnu packages gnuzilla)
32 #:use-module ((srfi srfi-1) #:hide (zip))
33 #:use-module (ice-9 match)
34 #:use-module (gnu packages)
35 #:use-module ((guix licenses) #:prefix license:)
36 #:use-module (guix packages)
37 #:use-module (guix download)
38 #:use-module (guix git-download)
39 #:use-module (guix hg-download)
40 #:use-module (guix gexp)
41 #:use-module (guix store)
42 #:use-module (guix monads)
43 #:use-module (guix utils)
44 #:use-module (guix build-system gnu)
45 #:use-module (guix build-system cargo)
46 #:use-module (guix build-system trivial)
47 #:use-module (gnu packages admin)
48 #:use-module (gnu packages audio)
49 #:use-module (gnu packages autotools)
50 #:use-module (gnu packages base)
51 #:use-module (gnu packages bash)
52 #:use-module (gnu packages databases)
53 #:use-module (gnu packages glib)
54 #:use-module (gnu packages gtk)
55 #:use-module (gnu packages gnome)
56 #:use-module (gnu packages libcanberra)
57 #:use-module (gnu packages cups)
58 #:use-module (gnu packages kerberos)
59 #:use-module (gnu packages linux)
60 #:use-module (gnu packages perl)
61 #:use-module (gnu packages pkg-config)
62 #:use-module (gnu packages compression)
63 #:use-module (gnu packages fontutils)
64 #:use-module (gnu packages libevent)
65 #:use-module (gnu packages libreoffice) ;for hunspell
66 #:use-module (gnu packages image)
67 #:use-module (gnu packages libffi)
68 #:use-module (gnu packages pulseaudio)
69 #:use-module (gnu packages python)
70 #:use-module (gnu packages python-xyz)
71 #:use-module (gnu packages node)
72 #:use-module (gnu packages xorg)
73 #:use-module (gnu packages gl)
74 #:use-module (gnu packages assembly)
75 #:use-module (gnu packages rust)
76 #:use-module (gnu packages rust-apps)
77 #:use-module (gnu packages llvm)
78 #:use-module (gnu packages nss)
79 #:use-module (gnu packages icu4c)
80 #:use-module (gnu packages video)
81 #:use-module (gnu packages xiph)
82 #:use-module (gnu packages xdisorg)
83 #:use-module (gnu packages readline)
84 #:use-module (gnu packages sqlite))
93 "https://ftp.mozilla.org/pub/mozilla.org/js/"
94 name version ".tar.gz"))
97 "1fig2wf4f10v43mqx67y68z6h77sy900d1w0pz9qarrqx57rc7ij"))
98 (patches (search-patches "mozjs17-aarch64-support.patch"))
99 (modules '((guix build utils)))
101 ;; Fix incompatibility with Perl 5.22+.
103 (substitute* '("js/src/config/milestone.pl")
104 (("defined\\(@TEMPLATE_FILE)") "@TEMPLATE_FILE"))
106 (build-system gnu-build-system)
109 ("pkg-config" ,pkg-config)
110 ("python" ,python-2)))
112 `(("nspr" ,nspr))) ; in the Requires.private field of mozjs-17.0.pc
116 `(;; XXX: parallel build fails, lacking:
117 ;; mkdir -p "system_wrapper_js/"
119 #:make-flags '("CXXFLAGS=-fpermissive")
121 (modify-phases %standard-phases
122 (add-after 'unpack 'delete-timedout-test
123 ;; This test times out on slower hardware.
125 (delete-file "js/src/jit-test/tests/basic/bug698584.js")
127 (add-before 'configure 'chdir
132 ;; configure fails if it is followed by SHELL and CONFIG_SHELL
133 (lambda* (#:key outputs #:allow-other-keys)
134 (let ((out (assoc-ref outputs "out")))
135 (setenv "SHELL" (which "sh"))
136 (setenv "CONFIG_SHELL" (which "sh"))
137 (invoke "./configure" (string-append "--prefix=" out)
138 ,@(if (string=? "aarch64-linux"
140 '("--host=aarch64-unknown-linux-gnu")
143 "https://developer.mozilla.org/en-US/docs/Mozilla/Projects/SpiderMonkey")
144 (synopsis "Mozilla javascript engine")
145 (description "SpiderMonkey is Mozilla's JavaScript engine written
147 (license license:mpl2.0))) ; and others for some files
149 (define-public mozjs-24
150 (package (inherit mozjs)
156 "https://ftp.mozilla.org/pub/mozilla.org/js/"
157 name "-" version ".tar.bz2"))
160 "1n1phk8r3l8icqrrap4czplnylawa0ddc2cc4cgdz46x3lrkybz6"))
161 (modules '((guix build utils)))
162 (patches (search-patches "mozjs24-aarch64-support.patch"))
164 ;; Fix incompatibility with Perl 5.22+.
166 (substitute* '("js/src/config/milestone.pl")
167 (("defined\\(@TEMPLATE_FILE)") "@TEMPLATE_FILE"))
170 (substitute-keyword-arguments (package-arguments mozjs)
172 `(modify-phases ,phases
174 (lambda* (#:key outputs #:allow-other-keys)
175 (let ((out (assoc-ref outputs "out")))
176 ;; configure fails if it is followed by SHELL and CONFIG_SHELL
177 (setenv "SHELL" (which "sh"))
178 (setenv "CONFIG_SHELL" (which "sh"))
179 (invoke "./configure"
180 (string-append "--prefix=" out)
182 "--enable-system-ffi"
183 "--enable-threadsafe"
184 ,@(if (string=? "aarch64-linux"
186 '("--host=aarch64-unknown-linux-gnu")
192 (define-public mozjs-38
196 (version "38.2.1.rc0")
200 "https://anduin.linuxfromscratch.org/BLFS/mozjs/"
201 name "-" version ".tar.bz2"))
204 "0p4bmbpgkfsj54xschcny0a118jdrdgg0q29rwxigg3lh5slr681"))
207 ;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1269317 for
208 ;; GCC 6 compatibility.
210 "mozjs38-version-detection.patch" ; for 0ad
211 "mozjs38-tracelogger.patch"
213 ;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1339931.
214 "mozjs38-pkg-config-version.patch"
215 "mozjs38-shell-version.patch"))
216 (modules '((guix build utils)))
219 ;; Fix incompatibility with sed 4.4.
220 (substitute* "js/src/configure"
221 (("\\^\\[:space:\\]") "^[[:space:]]"))
223 ;; The headers are symlinks to files that are in /tmp, so they
224 ;; end up broken. Copy them instead.
226 "python/mozbuild/mozbuild/backend/recursivemake.py"
227 (("\\['dist_include'\\].add_symlink")
228 "['dist_include'].add_copy"))
230 ;; Remove bundled libraries.
231 (for-each delete-file-recursively
233 "js/src/ctypes/libffi"
234 "js/src/ctypes/libffi-patches"
238 `(;; XXX: parallel build fails, lacking:
239 ;; mkdir -p "system_wrapper_js/"
241 ;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1008470.
244 (modify-phases %standard-phases
246 (lambda* (#:key outputs #:allow-other-keys)
247 (let ((out (assoc-ref outputs "out")))
249 (setenv "SHELL" (which "sh"))
250 (setenv "CONFIG_SHELL" (which "sh"))
251 (invoke "./configure"
252 (string-append "--prefix=" out)
254 "--enable-gcgenerational"
259 "--enable-system-ffi"
260 "--enable-threadsafe"
261 "--enable-xterm-updates"
266 ;; Intl API requires bundled ICU.
267 "--without-intl-api")))))))
270 ("pkg-config" ,pkg-config)
271 ("python-2" ,python-2)))
274 ("readline" ,readline)
278 (define-public mozjs-52
279 ;; No releases yet at <https://archive.mozilla.org/pub/spidermonkey/releases/>.
280 ;; While we could take a snapshot of the complete mozilla-esr52 repository at
281 ;; <https://treeherder.mozilla.org/#/jobs?repo=mozilla-esr52&filter-searchStr=sm-tc>,
282 ;; we take the Debian version instead, because it is easier to work with.
283 (let ((commit "6507e63cc416fd7a3269e390efe712f8b56f374a")
285 (package (inherit mozjs-38)
286 (version (git-version "52.0" revision commit))
290 (url "https://salsa.debian.org/gnome-team/mozjs52.git")
292 (file-name (git-file-name "mozjs" version))
295 "1ny0s53r8wn4byys87h784xrq1xg767akmfm6gqrbvrz57mlm3q2"))))
297 `(#:tests? #f ; depends on repository metadata
304 "--enable-system-ffi"
309 ;; Intl API requires bundled ICU.
312 ;; Without this gnome-shell will crash at runtime.
313 "--disable-jemalloc")
315 (modify-phases %standard-phases
316 (add-after 'unpack 'patch-and-chdir
317 (lambda* (#:key inputs #:allow-other-keys)
318 ;; This patch prevents a segfault when executing JS_Init().
319 ;; The build does not fail without this patch, but the
320 ;; configure phase of the gjs package would fail.
321 ;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1176787
322 (make-file-writable "js/src/old-configure.in")
323 (make-file-writable "js/src/old-configure")
324 (make-file-writable "mozglue/build/moz.build")
325 (invoke "patch" "-p1" "--force"
326 "--input" "debian/patches/disable-mozglue.patch")
327 (invoke "touch" "js/src/configure")
331 (lambda* (#:key inputs outputs configure-flags #:allow-other-keys)
332 ;; The configure script does not accept environment variables
334 (let ((out (assoc-ref outputs "out")))
335 (setenv "SHELL" (which "sh"))
336 (setenv "CONFIG_SHELL" (which "sh"))
337 (setenv "AUTOCONF" (string-append (assoc-ref inputs "autoconf")
339 (apply invoke "./configure"
340 (cons (string-append "--prefix=" out)
341 configure-flags))))))))
343 `(("autoconf" ,autoconf-2.13)
344 ("automake" ,automake)
345 ,@(package-native-inputs mozjs-38))))))
347 (define-public mozjs-60
348 ;; No releases yet at <https://archive.mozilla.org/pub/spidermonkey/releases/>.
349 ;; While we could take a snapshot of the complete mozilla-esr60 repository at
350 ;; <https://treeherder.mozilla.org/#/jobs?repo=mozilla-esr60&filter-searchStr=sm-tc>,
351 ;; we take the Debian version instead, because it is easier to work with.
358 (url "https://salsa.debian.org/gnome-team/mozjs60.git")
359 (commit (string-append "debian/" version))))
360 (file-name (git-file-name "mozjs" version))
363 "091w050rwzrdcbgyi934k2viyccmlqxrp13sm2mql71mabb5dai6"))))
365 `(#:tests? #f ; FIXME: all tests pass, but then the check phase fails anyway.
366 #:test-target "check-jstests"
373 "--enable-system-ffi"
378 ;; This is important because without it gjs will segfault during the
379 ;; configure phase. With jemalloc only the standalone mozjs console
381 "--disable-jemalloc")
383 (modify-phases %standard-phases
385 (lambda* (#:key inputs outputs configure-flags #:allow-other-keys)
386 ;; The configure script does not accept environment variables as
387 ;; arguments. It also must be run from a different directory,
388 ;; but not the root directory either.
389 (let ((out (assoc-ref outputs "out")))
390 (mkdir "run-configure-from-here")
391 (chdir "run-configure-from-here")
392 (setenv "SHELL" (which "sh"))
393 (setenv "CONFIG_SHELL" (which "sh"))
394 (setenv "AUTOCONF" (string-append (assoc-ref inputs "autoconf")
396 (apply invoke "../js/src/configure"
397 (cons (string-append "--prefix=" out)
400 (add-after 'unpack 'disable-broken-tests
402 ;; This test assumes that /bin exists and contains certain
404 (delete-file "js/src/tests/shell/os.js")
407 `(("autoconf" ,autoconf)
408 ("automake" ,automake)
411 ("pkg-config" ,pkg-config)
412 ("python" ,python-2)))))
414 (define mozilla-compare-locales
418 (url "https://hg.mozilla.org/l10n/compare-locales/")
419 (changeset "RELEASE_3_3_0")))
420 (file-name "mozilla-compare-locales")
421 (sha256 (base32 "0biazbq7vbi99b99rfn4szwyx032dkpi09c9z4zs6f1br0f86iy1"))))
423 (define (mozilla-locale locale changeset hash-string)
427 (url (string-append "https://hg.mozilla.org/l10n-central/"
429 (changeset changeset)))
430 (file-name (string-append "mozilla-locale-" locale))
431 (sha256 (base32 hash-string))))
433 (define-syntax-rule (mozilla-locales (hash-string changeset locale) ...)
434 (list (mozilla-locale locale changeset hash-string)
437 (define all-mozilla-locales
439 ;; sha256 changeset locale
440 ;;---------------------------------------------------------------------------
441 ("0pybx6j2ycbrr1xmv0spv19sd8a1dyzcs8kf6pzn71w8y6kiagcf" "35959cf2343c" "ach")
442 ("0dixmkha738w7fkx20nx95xkfyrqb9vczpy6m03qnqfvb76xaxj5" "e8dc1010f909" "af")
443 ("124j09va25gwfxdzyfixrli0skxv53c7niagjyp7g3a3kcv2lbhc" "4c67f6b96a7b" "an")
444 ("0flgqll3xx0ym0zj0w9j2jw3fmhs6h9m4l5da6m0bpnk5ff80r06" "34cbea5f44a5" "ar")
445 ("0kdb1yqfbfz508f4p77z3p1v6fwy190vs5ipj58hgdixjgbxkqay" "b4790b27633c" "ast")
446 ("1vm5xw6wg12pygswd3p0qpkaxyryah6nif5n15chb4sb42c1gqcm" "96d341bf49d4" "az")
447 ("1j2qrrws51qij6haz5b77n5vzqhsxgs1ppqqw4mdrkacwvz4ciwh" "4adaede00646" "be")
448 ("0ydr8f9lbd51prgcbjb5yacb461j8va0s5bqfs0rnglkvhmk6ard" "d1140972aefe" "bg")
449 ("0wyw90zjp8kpd1gljng00in9wr2cf59ww6z002lgx5k4gibnqcfd" "2b3ce92c2310" "bn")
450 ("0kkq621h1qdmimyrmms9g5p70m54z2ddw4cd962nqbkrnmabq9vn" "426896350893" "br")
451 ("0vibhnb3cbpbgf10db04g6vm372kb9i27p0jkwif019f7qprswd8" "7463f339ce07" "bs")
452 ("1l8cn2fqfvx7bswzfy9vavv8cd32ha9ygdxxdbxi64wcgw0f80bf" "dab3f05125e4" "ca")
453 ("0fik17y8zyg9w82lq501ic73a53c0q9r8v4zgn9bnzgsygig8qpq" "ebb9d989275a" "cak")
454 ("0sj29v6144h39wzb4rvxph3cwgvs4gzkgpr0463d3fcs6jdi0kjs" "522352780348" "cs")
455 ("1nz8jlx62l69jcdi59hlk8jysm15sh3d1cxqginjmx7w351wsidm" "0791b954c333" "cy")
456 ("1vc01q1vlq26xm1vm1x0119jawxxp975p9k8ashmiwncl1bvqb48" "121f5f876f4c" "da")
457 ("1iqny61rg57banfbbskc2y3pr6d35fabnxmynv7vxm9jd86pndz3" "95fb3e99a2bc" "de")
458 ("06v9j8acx5h8za7m65v6qm0wjbkx6vm46m8sigcp69phyg3fjc96" "90e681b74587" "dsb")
459 ("0lbk90x2dxdbh63fycqxspx6jqq2zlzys6grg45balw8yyvzqrkz" "58ba4c13fd42" "el")
460 ("0c2ypvy0z8g78s5158v6h9khckq1xps34r5wbiiciix289m43dgl" "8953d8c98a30" "en-CA")
461 ("0z3riz3w2z6p710p90ridmwwam4snnz5mn90gd4jc1h2n7vc9mr0" "5a2b9bca3f52" "en-GB")
462 ("102gn3h4ap8c3x1p7vfc88vapkfiz6264y6byhxy1axxjk3x3a77" "e87cb1c61d6e" "eo")
463 ("148wj6wsx0aq7cpaxk8njj7cb1wfjr2m96dgxq6b3qcv781ldvjn" "5db15fdf95d5" "es-AR")
464 ("0r11d8vzvbyz17n371byvkrnszcv1zhr7rg64i58xra3y6d7is7n" "ce2ee0e51a92" "es-CL")
465 ("1xmqa8p7lpqvkgg879hfnmf6kxcpawjk8z31cdzfp1hrdlmxg8n7" "7346617620f3" "es-ES")
466 ("0jxv3jh2018lnybr9mzqrffvwmr87yab9bh8lxqjj294fxw1hrxm" "687f05eb0c58" "es-MX")
467 ("1rpgv7pajv4xldsn1xxsia5j72vn3x8zl5wmbzkyw56lvn9fckvf" "839a5029c496" "et")
468 ("0hxp4fr3y05rkpamdb1hlmybn6d3bv3rcawjm3axbpqxbyfdpfzc" "54e8d87230c9" "eu")
469 ("1y50knymnmcihw8bhvahicc386mjm6dx4hx0j6fv8sl23wzx2h9m" "c5ffca960f9c" "fa")
470 ("0pj9zgi0c3yl3myhvb5afiijayp2lqzhlk630ahxn5hgjgkz0lx7" "75c000a8538d" "ff")
471 ("199jg0zv7wp1cq0ik2hf84j99jx5vq2jwac0gaayvjzkh2z83jqr" "f11b2e689e7b" "fi")
472 ("1vxkiwwni7470ywy99arxxa56ljkhjrhxslsp1l1l61g6gdbbspr" "49ec4f791806" "fr")
473 ("0d8gwdcj0jpjv03nhjds8jrg86pg371xpylaibwri76wlyl7m54i" "faa761a5cfdc" "fy-NL")
474 ("0nipbxx11a2sjadzhbi88vgknw5hzr4nqy2722q3kc1212jbi754" "5bd9466f9f9d" "ga-IE")
475 ("0bay8mrm65cvmnvqpwqgzr0h3cb18ifzg5kbsbxcvdfm9xv0zi9g" "a4f6a47e82dd" "gd")
476 ("00kn5w3nnpw1pxg6hhrn9asf9hgpjd6ia4038iwzcqs68w887qcy" "6c2aa01ada4e" "gl")
477 ("0jj13i0ach85c975vaz2rr83mibs29ipssa7qsjkb0y2ch6xya1k" "c2d607e36cb5" "gn")
478 ("1nhqbgzilcb0pr7941dxkhg079bf8v7ldikp1s5xli34wf9sabm2" "f34465d6ac1c" "gu-IN")
479 ("11bh0541d996cfin1zy72l66753q94i4idgv2waf0h40h9g3z1bm" "c2ecb2762274" "he")
480 ("1lslji7hh5lx5ig1xgfjh4cdindsgh3n2a7qlvzwz96gda43lvv4" "94d2bb10ee03" "hi-IN")
481 ("1nx5yw00l25i3m3grdm29mi9mi7h0cy5qx02pypir754pk3hiwcc" "08df0d94edd5" "hr")
482 ("19yc9dk2pwqycynmx58d1ik6x4mnyfxscgr6sg676dpl613xd7nq" "21b614e77025" "hsb")
483 ("0l3z64jlx6b6ivk1b5hwqyx9hm1m5721ywnb2m4zmg3g9fw4vn7f" "f82cad7170af" "hu")
484 ("1sn0dxbbf2zwcpybwcw77qb4p0hf6fxapnsnn4avaab5g55dlgz4" "d94c30920396" "hy-AM")
485 ("0c92cqxrhv4317kirmhpjk7mrq44yn6fp3v6syxnhz7xwxnhshjm" "6a5f176b0626" "ia")
486 ("03gyg9gqsd6pwb9nydglhm46fi2wk2p2qygmhmrf8hnav3ba7n0r" "94e4302e0f85" "id")
487 ("0ky8aaps92mn56rvkwn0i13wg8av8hzi1fvr0ahqhjcpj5sfgdwq" "eca348a59888" "is")
488 ("01py0sfg7nljcsgpivryrvai4p4wzbcvhgc2ymr19r579nv1vw7g" "d541a6197359" "it")
489 ("0iv7vmj43njmi7g1gjzsv68ax4j502d2wnkvbfz1rx11lrqs7yw1" "a5ab3a1d95b7" "ja")
490 ("1sr9ccshcw6agbj4hbnpblxixb1jz0m36glas6f9ahxmi7m605si" "63763ffa5a94" "ja-JP-mac")
491 ("1as33pzcsdkynrj16dv7w642vl6plbhk650am4l5djwm64f2rgms" "aa83e8555ddc" "ka")
492 ("1jwaqb5qps3i5y9iw8l2hrwa0n8lfnx1k9x0p54y3jkh6p3q3fzc" "0e0e25c26247" "kab")
493 ("0cjfiwv0q5i8d7fpwb4m2w5ahq687dqjlwlicgpa443yi2zsxr4s" "33117723ceb1" "kk")
494 ("0k5b56cv39aaxf9r0p9c27f3fp6yq2ffd4w6qmd0ibpl69sm629d" "aff7b2a7825e" "km")
495 ("1a0zg96jgq4zn9cz0h2qwc0vv1fbkfzs5qrgabg62wqgz286jvvv" "ea91638cb1dd" "kn")
496 ("0jhmv2n3yx55r6fg3myg7j1c1nhsv25g016m6lh2j023xbr723gp" "88821009b5b3" "ko")
497 ("06bybgv4m4i7r9p0qld65j31vbrnljhsdj649dl93msv2r69ilif" "88685d5f07b3" "lij")
498 ("1bzjf8smw6ngi88j5g3fawrg54m8fifbhshwjbgkpj7rnrpjgh4w" "e046c7ffa7d0" "lt")
499 ("18dmzmpavijb7fwzffas0j5nb6byqp8h6ki7hhf6qb35diqgfq6n" "c520ef4f576c" "lv")
500 ("055zf7xj5h1h8mzxj1cjzhngpcvg2p5vs2dmffsa5zfprj02d0dm" "9e43723f18ad" "mk")
501 ("1496fbyyzcl075gzcd3xy50h9jyhnzgb544k1scji56yhyfajacb" "ce615fef92c1" "mr")
502 ("1wc1q8ksry181pvnysqsq4dhhsg5adw5vgqafmmq5sf6i2bwn2z0" "4fefe88cfaee" "ms")
503 ("0awf6mrdwdhy2yvxynssvp1zg1nc2fqbmg2d2bhjcib69zx944xw" "3987a06866fd" "my")
504 ("1hycvz7i4jd40hfs5abx6sgfdkafg0jhdgqih9b7lb08aqcl35pj" "2b3b8997d9a1" "nb-NO")
505 ("048z1ib46izwryyy8l1x71kq4775n7l2ilbskhsyrbxqryma13k8" "f25324281615" "ne-NP")
506 ("1qkxqpyr4la9bn1bqsgc2h9869arglh9n2kwpkq6722jzdbynkz2" "04c7d32c57f6" "nl")
507 ("08gnmdll55dbqj7qs63gq1kljbvg24nzns6q4m0av3sszsic0jv5" "5587520e5019" "nn-NO")
508 ("1yh2p4ipj5p2b7gh0xxj0n7ndvwn5bw2773ibrh7vz932mkzhhjn" "499386b02695" "oc")
509 ("0kjbnixjzv9hvyba4ll20gs76vx84pviy134fvpjp9lfjpnpib55" "31c01c325675" "pa-IN")
510 ("0g61imvr4639bbydyi0kwc1il7l1gzlfij4ywx7hdcmq2x6vgb9v" "fb5f3b8dea09" "pl")
511 ("13n68d7z94d7943m6fwl4kizbqm3wp82xz69vng4w9vyqlvv7d41" "9a541cbdc748" "pt-BR")
512 ("1j8afvrl1afmj2zixrp91rrhag5w4xw90raca1ic6mxyih9kvdi4" "edc959a685c2" "pt-PT")
513 ("0wf4a6q9nvcmam2g8ksbymjdnrz59pdr5nirfpjprfhifjmxx4nn" "d2699db715cd" "rm")
514 ("1k9qalir5pbh490w1mxyq31yhy9hbxsyrrk11hwlwlgn6syp9nvp" "b5460a9017bc" "ro")
515 ("1avy6wyfa5lbvy36wai6mwhhh6x1y8a0jyjk8hvjn52yfxj1gypk" "59ffa8ad047a" "ru")
516 ("1cakhm4jxcw1ij0l1vhxw74hsp5wg68i3319dkdncyyc5a2s1qv9" "8b3c8a7ebdfa" "si")
517 ("0s534r09bqdfvw3q17y9b1035kzzlafjv656v73mqhyz3fkffsx5" "cb39dc77980e" "sk")
518 ("1s58vgmnb9aiaiaqwwcivq3iyzpzj527w2aqh2nrh6xmaw7f43sr" "17d7969b1d9a" "sl")
519 ("147qm7x5z8rkf24jpqvkdlqg0fjz1l3zwnaxvkh9y2jpzv7m0x7z" "c55b0e9ff99d" "son")
520 ("0nn4r1rxi8cy7x9nmn5ljd8gcsn2rjl2ma2j7waxkafkm4rs6n20" "2bb3808072da" "sq")
521 ("0jsb01b94z7qbm59yaj56nb7yx7a6hpgw8v6nzwhbvmnmcsird4p" "c323c0d02d61" "sr")
522 ("1n7vv9y4sk3gig56rgfd2jk8jr2160grxk31bd1wkm7fvbndd259" "4220ce487cbc" "sv-SE")
523 ("06270mq7gajxfrsb8gqd25v2dac68ask5vvlh6kkkp3hrgy02vid" "6a1dbc2fe1d3" "ta")
524 ("10az7pd3npa7n8wq0qywvsj2qrx9592i2wffs3rnc1fviv1i1q0y" "028505b5ecd1" "te")
525 ("0yj0c3iyibb3jyypvyiyhbr9asxa48v0nq21kcf9gphi8fnyp5if" "e44d38b6a67b" "th")
526 ("1qc4nvhw834lx7p304fxma0fjdr4xfj4lf69dhh6biqz795lx45p" "1e0771d95708" "tr")
527 ("1g4y2yq5xp61ncy7c08j7fqqr1jc0m1hjxmbg5659wzif3b3dkg4" "e3c96943e98f" "uk")
528 ("1zbi28z1c3p5il7ndixyjsv4nrimzq36zjvlmq10am38ycqr9df8" "f35da1b02691" "ur")
529 ("1jrxjjj8k771y0wljqbadxdj4pasg0771jmg4l3hvpgs929i3j9g" "6fd2084b3efe" "uz")
530 ("1f8sqgxzgqmw6vzjv3f49lg43q09i3j62f471864vr71815agl8n" "33b5dfd0cd63" "vi")
531 ("0ssnsbxw3q5k88fa081gkn1mbqn4j7bm6vb7yvz6h44j214xkz9x" "2d87c0740715" "xh")
532 ("0kd3mrvvgczhsmw4rvpxxxc71bb469ayr8r4azf7gc0y5nmlm950" "a2b6625688d3" "zh-CN")
533 ("0qy1asyfplkyc89z3g3gfm7b32aka92350b3ayv9d9dcgwxmfdwz" "4d6e959a13d1" "zh-TW")))
535 (define (mozilla-patch file-name changeset hash)
536 "Return an origin for CHANGESET from the mozilla-esr60 repository."
539 (uri (string-append "https://hg.mozilla.org/releases/mozilla-esr60/raw-rev/"
541 (sha256 (base32 hash))
542 (file-name file-name)))
544 (define* (computed-origin-method gexp-promise hash-algo hash
545 #:optional (name "source")
546 #:key (system (%current-system))
547 (guile (default-guile)))
548 "Return a derivation that executes the G-expression that results
549 from forcing GEXP-PROMISE."
550 (mlet %store-monad ((guile (package->derivation guile system)))
551 (gexp->derivation (or name "computed-origin")
553 #:graft? #f ;nothing to graft
555 #:guile-for-build guile)))
557 (define %icecat-version "68.8.0-guix0-preview1")
558 (define %icecat-build-id "20200505000000") ;must be of the form YYYYMMDDhhmmss
560 ;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
561 ;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
562 ;; script from the upstream IceCat project.
563 (define icecat-source
564 (let* ((base-version (first (string-split %icecat-version #\-)))
566 (major-version (first (string-split base-version #\.)))
567 (minor-version (second (string-split base-version #\.)))
568 (sub-version (third (string-split base-version #\.)))
570 (upstream-firefox-version (string-append base-version "esr"))
571 (upstream-firefox-source
575 "https://ftp.mozilla.org/pub/firefox/releases/"
576 upstream-firefox-version "/source/"
577 "firefox-" upstream-firefox-version ".source.tar.xz"))
580 "0hp8cc7xk6qj4q1s8n97qv9sdrypkzvphik96m5qv1r5s9k24nzs"))))
582 (upstream-icecat-base-version "68.8.0") ; maybe older than base-version
583 ;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version))
584 (gnuzilla-commit "5358ff2963a6136f8acafdc598cad540231ad23e")
589 (url "git://git.savannah.gnu.org/gnuzilla.git")
590 (commit gnuzilla-commit)))
591 (file-name (git-file-name "gnuzilla"
592 ;;upstream-icecat-base-version
593 (string-take gnuzilla-commit 8)))
596 "1bq0qzgkxz9q61g48bc05i0zx1z8k0pklxnmn54ch136aqgsyli4"))))
599 (local-file (search-patch "icecat-makeicecat.patch")))
600 (gnuzilla-fixes-patch
601 (local-file (search-patch "icecat-use-older-reveal-hidden-html.patch"))))
604 (method computed-origin-method)
605 (file-name (string-append "icecat-" %icecat-version ".tar.xz"))
609 (with-imported-modules '((guix build utils))
611 (use-modules (guix build utils))
613 (string-append "firefox-" #$base-version))
615 (string-append "icecat-" #$%icecat-version)))
618 (set-path-environment-variable
621 #+(canonical-package bash)
622 #+(canonical-package coreutils)
623 #+(canonical-package findutils)
624 #+(canonical-package patch)
625 #+(canonical-package xz)
626 #+(canonical-package sed)
627 #+(canonical-package grep)
628 #+(canonical-package bzip2)
629 #+(canonical-package gzip)
630 #+(canonical-package tar)
633 (symlink #+(file-append rename "/bin/rename")
636 ;; We copy the gnuzilla source directory because it is
637 ;; read-only in 'gnuzilla-source', and the makeicecat script
638 ;; uses "cp -a" to copy parts of it and assumes that the
639 ;; copies will be writable.
640 (copy-recursively #+gnuzilla-source "/tmp/gnuzilla"
641 #:log (%make-void-port "w"))
643 (with-directory-excursion "/tmp/gnuzilla"
644 (make-file-writable "makeicecat")
645 (invoke "patch" "--force" "--no-backup-if-mismatch"
646 "-p1" "--input" #+makeicecat-patch)
647 (invoke "patch" "--force" "--no-backup-if-mismatch"
648 "-p1" "--input" #+gnuzilla-fixes-patch)
649 (patch-shebang "makeicecat")
650 (substitute* "makeicecat"
651 (("^FFMAJOR=(.*)" all ffmajor)
652 (unless (string=? #$major-version
653 (string-trim-both ffmajor))
654 ;; The makeicecat script cannot be expected to work
655 ;; properly on a different version of Firefox, even if
656 ;; no errors occur during execution.
657 (error "makeicecat major version mismatch"))
658 (string-append "FFMAJOR=" #$major-version "\n"))
660 (string-append "FFMINOR=" #$minor-version "\n"))
662 (string-append "FFSUB=" #$sub-version "\n"))
664 "DATA=/tmp/gnuzilla/data\n")
666 #+(file-append (canonical-package sed) "/bin/sed"))))
668 (format #t "Unpacking upstream firefox tarball...~%")
670 (invoke "tar" "xf" #+upstream-firefox-source)
671 (rename-file firefox-dir icecat-dir)
673 (with-directory-excursion icecat-dir
674 (format #t "Populating l10n directory...~%")
677 (with-directory-excursion "l10n"
681 (string-drop (basename locale-dir)
682 (+ 32 ; length of hash
683 (string-length "-mozilla-locale-")))))
684 (format #t " ~a~%" locale)
686 (copy-recursively locale-dir locale
687 #:log (%make-void-port "w"))
688 (for-each make-file-writable (find-files locale))
689 (with-directory-excursion locale
690 (when (file-exists? ".hgtags")
691 (delete-file ".hgtags"))
692 (mkdir-p "browser/chrome/browser/preferences")
693 (call-with-output-file
694 "browser/chrome/browser/preferences/advanced-scripts.dtd"
695 (lambda (port) #f)))))
696 '#+all-mozilla-locales)
697 (copy-recursively #+mozilla-compare-locales
699 #:log (%make-void-port "w"))
700 (delete-file "compare-locales/.gitignore")
701 (delete-file "compare-locales/.hgignore")
702 (delete-file "compare-locales/.hgtags"))
704 (format #t "Running makeicecat script...~%")
706 (invoke "bash" "/tmp/gnuzilla/makeicecat"))
708 (format #t "Packing IceCat source tarball...~%")
710 (invoke "tar" "cfa" #$output
711 ;; Avoid non-determinism in the archive. We set the
712 ;; mtime of files in the archive to early 1980 because
713 ;; the build process fails if the mtime of source
714 ;; files is pre-1980, due to the creation of zip
716 "--mtime=@315619200" ; 1980-01-02 UTC
724 (define-public icecat
727 (version %icecat-version)
728 (source icecat-source)
729 (build-system gnu-build-system)
731 `(("alsa-lib" ,alsa-lib)
734 ("dbus-glib" ,dbus-glib)
735 ("gdk-pixbuf" ,gdk-pixbuf)
739 ("graphite2" ,graphite2)
741 ("freetype" ,freetype)
742 ("harfbuzz" ,harfbuzz)
743 ("libcanberra" ,libcanberra)
744 ("libgnome" ,libgnome)
745 ("libjpeg-turbo" ,libjpeg-turbo)
747 ;; ("libtheora" ,libtheora) ; wants theora-1.2, not yet released
748 ("libvorbis" ,libvorbis)
750 ("libevent" ,libevent)
751 ("libxinerama" ,libxinerama)
752 ("libxscrnsaver" ,libxscrnsaver)
753 ("libxcomposite" ,libxcomposite)
760 ("pulseaudio" ,pulseaudio)
762 ("mit-krb5" ,mit-krb5)
763 ;; See <https://bugs.gnu.org/32833>
764 ;; and related comments in the 'remove-bundled-libraries' phase.
765 ;; UNBUNDLE-ME! ("nspr" ,nspr)
766 ;; UNBUNDLE-ME! ("nss" ,nss)
767 ("shared-mime-info" ,shared-mime-info)
769 ("startup-notification" ,startup-notification)
774 ;; The following patches are specific to the Guix packaging of IceCat,
775 ;; and therefore we prefer to leave them out of 'source', which should be
776 ;; a tarball suitable for compilation on any system that IceCat supports.
777 ;; (Bug fixes and security fixes, however, should go in 'source').
778 `(;; XXX TODO: Adapt these patches to IceCat 68.
779 ;; ("icecat-avoid-bundled-libraries.patch"
780 ;; ,(search-patch "icecat-avoid-bundled-libraries.patch"))
781 ;; ("icecat-use-system-graphite2+harfbuzz.patch"
782 ;; ,(search-patch "icecat-use-system-graphite2+harfbuzz.patch"))
783 ;; ("icecat-use-system-media-libs.patch"
784 ;; ,(search-patch "icecat-use-system-media-libs.patch"))
786 ("patch" ,(canonical-package patch))
789 ("cargo" ,rust "cargo")
790 ("rust-cbindgen" ,rust-cbindgen)
796 ("python-2" ,python-2)
797 ("python2-pysqlite" ,python2-pysqlite)
799 ("nasm" ,nasm) ; XXX FIXME: only needed on x86_64 and i686
800 ("pkg-config" ,pkg-config)
801 ("autoconf" ,autoconf-2.13)
804 `(#:tests? #f ; no check target
805 #:out-of-source? #t ; must be built outside of the source directory
807 ;; XXX: There are RUNPATH issues such as
808 ;; $prefix/lib/icecat-31.6.0/plugin-container NEEDing libmozalloc.so,
809 ;; which is not in its RUNPATH, but they appear to be harmless in
810 ;; practice somehow. See <http://hydra.gnu.org/build/378133>.
811 #:validate-runpath? #f
813 #:configure-flags `("--enable-default-toolkit=cairo-gtk3"
815 "--with-distribution-id=org.gnu"
817 ;; Do not require addons in the global app
818 ;; directory to be signed by Mozilla.
819 "--with-unsigned-addon-scopes=app"
821 "--enable-startup-notification"
822 "--enable-pulseaudio"
826 "--disable-crashreporter"
830 ;; Building with debugging symbols takes ~5GiB, so
833 "--disable-debug-symbols"
835 ;; Clang is needed to build Stylo, Mozilla's new
836 ;; CSS engine. We must specify the clang paths
837 ;; manually, because otherwise the Mozilla build
838 ;; system looks in the directories returned by
839 ;; llvm-config --bindir and llvm-config --libdir,
840 ;; which return paths in the llvm package where
841 ;; clang is not found.
842 ,(string-append "--with-clang-path="
843 (assoc-ref %build-inputs "clang")
845 ,(string-append "--with-libclang-path="
846 (assoc-ref %build-inputs "clang")
849 ;; Hack to work around missing
850 ;; "unofficial" branding in icecat.
851 "--enable-official-branding"
853 ;; Avoid bundled libraries.
856 "--with-system-jpeg" ; must be libjpeg-turbo
857 ;; UNBUNDLE-ME! "--with-system-libevent"
858 ;; UNBUNDLE-ME! "--with-system-ogg"
859 ;; UNBUNDLE-ME! "--with-system-vorbis"
860 ;; UNBUNDLE-ME! "--with-system-theora" ; wants theora-1.2, not yet released
861 ;; UNBUNDLE-ME! "--with-system-libvpx"
864 ;; See <https://bugs.gnu.org/32833>
865 ;; and related comments in the
866 ;; 'remove-bundled-libraries' phase below.
867 ;; UNBUNDLE-ME! "--with-system-nspr"
868 ;; UNBUNDLE-ME! "--with-system-nss"
870 ;; UNBUNDLE-ME! "--with-system-harfbuzz"
871 ;; UNBUNDLE-ME! "--with-system-graphite2"
872 "--enable-system-pixman"
873 "--enable-system-ffi"
874 ;; UNBUNDLE-ME! "--enable-system-sqlite"
876 ;; Fails with "--with-system-png won't work because
877 ;; the system's libpng doesn't have APNG support".
879 ;; http://sourceforge.net/projects/libpng-apng/ ,
880 ;; "the Animated Portable Network Graphics (APNG)
881 ;; is an unofficial extension of the Portable
882 ;; Network Graphics (PNG) format";
883 ;; we probably do not wish to support it.
884 ;; "--with-system-png"
887 #:imported-modules ,%cargo-utils-modules ;for `generate-all-checksums'
889 #:modules ((ice-9 ftw)
899 ,@%gnu-build-system-modules)
901 (modify-phases %standard-phases
902 (add-after 'unpack 'apply-guix-specific-patches
903 (lambda* (#:key inputs native-inputs #:allow-other-keys)
904 (let ((patch (string-append (assoc-ref (or native-inputs inputs)
907 (for-each (match-lambda
909 (when (and (string-prefix? "icecat-" label)
910 (string-suffix? ".patch" label))
911 (format #t "applying '~a'...~%" file)
912 (invoke patch "--force" "--no-backup-if-mismatch"
913 "-p1" "--input" file))))
914 (or native-inputs inputs)))
916 (add-after 'apply-guix-specific-patches 'remove-bundled-libraries
918 ;; Remove bundled libraries that we don't use, since they may
919 ;; contain unpatched security flaws, they waste disk space and
920 ;; memory, and may cause confusion.
921 (for-each (lambda (file)
922 (format #t "deleting '~a'...~%" file)
923 (delete-file-recursively file))
924 '(;; FIXME: Removing the bundled icu breaks configure.
925 ;; * The bundled icu headers are used in some places.
926 ;; * The version number is taken from the bundled copy.
929 ;; FIXME: A script from the bundled nspr is used.
932 ;; FIXME: With the update to IceCat 60, using system NSS
933 ;; broke certificate validation. See
934 ;; <https://bugs.gnu.org/32833>. For now, we use
935 ;; the bundled NSPR and NSS. TODO: Investigate,
936 ;; and try to unbundle these libraries again.
937 ;; UNBUNDLE-ME! "security/nss"
939 ;; TODO: Use more system media libraries. See:
940 ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=517422>
941 ;; * libtheora: esr60 wants v1.2, not yet released.
942 ;; * soundtouch: avoiding the bundled library would
943 ;; result in some loss of functionality. There's
944 ;; also an issue with exception handling
945 ;; configuration. It seems that this is needed in
947 ;; DEFINES['ST_NO_EXCEPTION_HANDLING'] = 1
953 ;; "media/libjpeg" ; needed for now, because media/libjpeg/moz.build is referenced from config/external/moz.build
954 ;; UNBUNDLE-ME! "ipc/chromium/src/third_party/libevent"
955 ;; UNBUNDLE-ME! "media/libvpx"
956 ;; UNBUNDLE-ME! "media/libogg"
957 ;; UNBUNDLE-ME! "media/libvorbis"
958 ;; UNBUNDLE-ME! "media/libtheora" ; wants theora-1.2, not yet released
959 ;; UNBUNDLE-ME! "media/libtremor"
960 ;; UNBUNDLE-ME! "gfx/harfbuzz"
961 ;; UNBUNDLE-ME! "gfx/graphite2"
962 "js/src/ctypes/libffi"
963 ;; UNBUNDLE-ME! "db/sqlite3"
966 (add-after 'remove-bundled-libraries 'link-libxul-with-libraries
968 ;; libxul.so dynamically opens libraries, so here we explicitly
969 ;; link them into libxul.so instead.
971 ;; TODO: It might be preferable to patch in absolute file names in
972 ;; calls to dlopen or PR_LoadLibrary, but that didn't seem to
973 ;; work. More investigation is needed.
974 (substitute* "toolkit/library/moz.build"
975 (("^# This library needs to be last" all)
976 (string-append "OS_LIBS += [
977 'GL', 'gnome-2', 'canberra', 'Xss', 'cups', 'gssapi_krb5',
978 'avcodec', 'avutil', 'pulse' ]\n\n"
981 (add-after 'link-libxul-with-libraries 'fix-ffmpeg-runtime-linker
982 (lambda* (#:key inputs #:allow-other-keys)
983 (let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
984 (libavcodec (string-append ffmpeg "/lib/libavcodec.so")))
985 ;; Arrange to load libavcodec.so by its absolute file name.
986 (substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
989 ;; Populate the sandbox read-path whitelist as needed by ffmpeg.
990 (let* ((mime-info (assoc-ref inputs "shared-mime-info"))
991 (libavcodec-runpath (call-with-input-file libavcodec
992 (compose elf-dynamic-info-runpath
995 get-bytevector-all)))
996 (whitelist (cons (string-append mime-info "/share/mime/")
998 (string-append dir "/"))
999 libavcodec-runpath)))
1000 (whitelist-string (string-join whitelist ","))
1001 (port (open-file "browser/app/profile/icecat.js" "a")))
1002 (format #t "setting 'security.sandbox.content.read_path_whitelist' to '~a'~%"
1004 (format port "~%pref(\"security.sandbox.content.read_path_whitelist\", ~S);~%"
1006 (close-output-port port))
1010 (invoke "sh" "-c" "autoconf old-configure.in > old-configure")
1011 ;; 'configure' must be newer than 'old-configure.in', or else the
1012 ;; build system will raise an alarm and abort.
1013 (invoke "touch" "configure")))
1014 (add-after 'patch-source-shebangs 'patch-cargo-checksums
1016 (use-modules (guix build cargo-utils))
1017 (let ((null-hash "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"))
1018 (substitute* '("Cargo.lock" "gfx/wr/Cargo.lock")
1019 (("(\"checksum .* = )\".*\"" all name)
1020 (string-append name "\"" null-hash "\"")))
1021 (generate-all-checksums "third_party/rust"))
1023 (add-before 'configure 'augment-CPLUS_INCLUDE_PATH
1024 (lambda* (#:key build inputs #:allow-other-keys)
1025 ;; Here, we add additional entries to CPLUS_INCLUDE_PATH, to work
1026 ;; around a problem that otherwise occurs when attempting to
1027 ;; build Stylo, which requires Rust and Clang. Without these
1028 ;; additional entries, errors occur during the build indicating
1029 ;; that the <cstddef> and "c++config.h" headers cannot be found.
1030 ;; Note that the 'build' keyword argument contains the GNU
1031 ;; triplet, e.g. "x86_64-unknown-linux-gnu".
1032 (let ((gcc (assoc-ref inputs "gcc")))
1033 (setenv "CPLUS_INCLUDE_PATH"
1034 (string-append gcc "/include/c++" ":"
1035 gcc "/include/c++/" build)))
1038 ;; configure does not work followed by both "SHELL=..." and
1039 ;; "CONFIG_SHELL=..."; set environment variables instead
1040 (lambda* (#:key outputs configure-flags #:allow-other-keys)
1041 (let* ((out (assoc-ref outputs "out"))
1042 (bash (which "bash"))
1043 (abs-srcdir (getcwd))
1044 (srcdir (string-append "../" (basename abs-srcdir)))
1045 (flags `(,(string-append "--prefix=" out)
1046 ,(string-append "--with-l10n-base="
1048 ,@configure-flags)))
1049 (setenv "SHELL" bash)
1050 (setenv "CONFIG_SHELL" bash)
1051 (setenv "AUTOCONF" (which "autoconf")) ; must be autoconf-2.13
1052 (setenv "CC" "gcc") ; apparently needed when Stylo is enabled
1053 (setenv "MOZ_BUILD_DATE" ,%icecat-build-id) ; avoid timestamp
1056 (format #t "build directory: ~s~%" (getcwd))
1057 (format #t "configure flags: ~s~%" flags)
1059 (string-append srcdir "/configure")
1062 ;; The build system often spuriously fails. See
1063 ;; <https://bugs.gentoo.org/show_bug.cgi?id=680934>. To
1064 ;; work around this, we try the standard 'build' phase up
1067 (let ((build (assoc-ref %standard-phases 'build)))
1068 (let retry ((remaining-attempts 5))
1069 (if (= remaining-attempts 1)
1071 (guard (c ((invoke-error? c)
1072 (format #t "~%Retrying build! (~a attempts remaining)~%~%"
1073 (- remaining-attempts 1))
1075 (retry (- remaining-attempts 1))))
1076 (apply build args)))))))
1077 (add-after 'build 'neutralise-store-references
1079 ;; Mangle the store references to compilers & other build tools in
1080 ;; about:buildconfig, reducing IceCat's closure by 1 GiB on x86-64.
1082 "dist/bin/chrome/toolkit/content/global/buildconfig.html"
1083 (((format #f "(~a/)([0-9a-df-np-sv-z]{32})"
1084 (regexp-quote (%store-directory)))
1086 (string-append store
1087 (string-take hash 8)
1088 "<!-- Guix: not a runtime dependency -->"
1089 (string-drop hash 8))))
1091 (add-before 'configure 'install-desktop-entry
1092 (lambda* (#:key outputs #:allow-other-keys)
1093 ;; Install the '.desktop' file.
1094 (let* ((desktop-file "taskcluster/docker/icecat-snap/icecat.desktop")
1095 (out (assoc-ref outputs "out"))
1096 (applications (string-append out "/share/applications")))
1097 (substitute* desktop-file
1098 (("^Exec=icecat") (string-append "Exec=" out "/bin/icecat"))
1099 (("IceCat") "GNU IceCat")
1100 (("Icon=.*") "Icon=icecat\n")
1101 (("NewWindow") "new-window")
1102 (("NewPrivateWindow") "new-private-window"))
1103 (install-file desktop-file applications)
1105 (add-after 'install-desktop-entry 'install-icons
1106 (lambda* (#:key outputs #:allow-other-keys)
1107 (let ((out (assoc-ref outputs "out")))
1108 (with-directory-excursion "browser/branding/official"
1111 (let* ((size (string-filter char-numeric? file))
1112 (icons (string-append out "/share/icons/hicolor/"
1113 size "x" size "/apps")))
1115 (copy-file file (string-append icons "/icecat.png"))))
1116 '("default16.png" "default22.png" "default24.png"
1117 "default32.png" "default48.png" "content/icon64.png"
1118 "mozicon128.png" "default256.png"))
1120 ;; This fixes the file chooser crash that happens with GTK 3.
1121 (add-after 'install 'wrap-program
1122 (lambda* (#:key inputs outputs #:allow-other-keys)
1123 (let* ((out (assoc-ref outputs "out"))
1124 (lib (string-append out "/lib"))
1125 (gtk (assoc-ref inputs "gtk+"))
1126 (gtk-share (string-append gtk "/share"))
1127 (pulseaudio (assoc-ref inputs "pulseaudio"))
1128 (pulseaudio-lib (string-append pulseaudio "/lib")))
1129 (wrap-program (car (find-files lib "^icecat$"))
1130 `("XDG_DATA_DIRS" prefix (,gtk-share))
1131 `("LD_LIBRARY_PATH" prefix (,pulseaudio-lib)))
1133 (home-page "https://www.gnu.org/software/gnuzilla/")
1134 (synopsis "Entirely free browser derived from Mozilla Firefox")
1136 "IceCat is the GNU version of the Firefox browser. It is entirely free
1137 software, which does not recommend non-free plugins and addons. It also
1138 features built-in privacy-protecting features.
1140 WARNING: IceCat 68 has not yet been released by the upstream IceCat project.
1141 This is a preview release, and does not currently meet the privacy-respecting
1142 standards of the IceCat project.")
1143 (license license:mpl2.0) ;and others, see toolkit/content/license.html
1145 `((ftp-directory . "/gnu/gnuzilla")
1146 (cpe-name . "firefox_esr")
1147 (cpe-version . ,(first (string-split version #\-)))))))
1149 (define-public firefox-decrypt
1151 (name "firefox-decrypt")
1156 (url "https://github.com/Unode/firefox_decrypt.git")
1158 (file-name (git-file-name name version))
1161 "17yyyxp47z4m8hnflcq34rc1y871515kr3f1y42j1l0yx3g0il07"))))
1162 (build-system trivial-build-system)
1165 ("python" ,python)))
1167 `(#:modules ((guix build utils))
1170 (use-modules (guix build utils))
1173 (assoc-ref %build-inputs "python") "/bin"))
1174 (copy-file (string-append (assoc-ref %build-inputs "source")
1175 "/firefox_decrypt.py")
1176 "firefox_decrypt.py")
1177 (substitute* "firefox_decrypt.py"
1178 (("/usr/bin/env python") (which "python3"))
1179 (("libnss3.so") (string-append (assoc-ref %build-inputs "nss")
1180 "/lib/nss/libnss3.so")))
1181 (install-file "firefox_decrypt.py" (string-append %output "/bin"))
1183 (home-page "https://github.com/Unode/firefox_decrypt/")
1184 (synopsis "Tool to extract passwords from Mozilla profiles")
1185 (description "Firefox Decrypt is a tool to extract passwords from
1186 Mozilla (Firefox, Waterfox, Thunderbird, SeaMonkey) profiles.")
1187 (license license:gpl3+)))