gnuzilla.scm
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr> |
3 | ;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> |
4 | ;;; Copyright © 2014, 2015, 2016, 2017 Mark H Weaver <mhw@netris.org> |
5 | ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> |
6 | ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> |
7 | ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> |
8 | ;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu> |
9 | ;;; |
10 | ;;; This file is part of GNU Guix. |
11 | ;;; |
12 | ;;; GNU Guix is free software; you can redistribute it and/or modify it |
13 | ;;; under the terms of the GNU General Public License as published by |
14 | ;;; the Free Software Foundation; either version 3 of the License, or (at |
15 | ;;; your option) any later version. |
16 | ;;; |
17 | ;;; GNU Guix is distributed in the hope that it will be useful, but |
18 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
19 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
20 | ;;; GNU General Public License for more details. |
21 | ;;; |
22 | ;;; You should have received a copy of the GNU General Public License |
23 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
24 | |
25 | (define-module (more packages gnuzilla) |
26 | #:use-module ((srfi srfi-1) #:hide (zip)) |
27 | #:use-module (gnu packages) |
28 | #:use-module ((guix licenses) #:prefix license:) |
29 | #:use-module (guix packages) |
30 | #:use-module (guix download) |
31 | #:use-module (guix build-system gnu) |
32 | #:use-module (more packages google) |
33 | #:use-module (gnu packages base) |
34 | #:use-module (gnu packages databases) |
35 | #:use-module (gnu packages glib) |
36 | #:use-module (gnu packages gstreamer) |
37 | #:use-module (gnu packages gtk) |
38 | #:use-module (gnu packages gnome) |
39 | #:use-module (gnu packages gnuzilla) |
40 | #:use-module (gnu packages libcanberra) |
41 | #:use-module (gnu packages cups) |
42 | #:use-module (gnu packages kerberos) |
43 | #:use-module (gnu packages linux) |
44 | #:use-module (gnu packages perl) |
45 | #:use-module (gnu packages pkg-config) |
46 | #:use-module (gnu packages compression) |
47 | #:use-module (gnu packages fontutils) |
48 | #:use-module (gnu packages libevent) |
49 | #:use-module (gnu packages libreoffice) ;for hunspell |
50 | #:use-module (gnu packages image) |
51 | #:use-module (gnu packages libffi) |
52 | #:use-module (gnu packages pulseaudio) |
53 | #:use-module (gnu packages python) |
54 | #:use-module (gnu packages xorg) |
55 | #:use-module (gnu packages gl) |
56 | #:use-module (gnu packages assembly) |
57 | #:use-module (gnu packages icu4c) |
58 | #:use-module (gnu packages video) |
59 | #:use-module (gnu packages xdisorg) |
60 | #:use-module (gnu packages zip)) |
61 | |
62 | (define (mozilla-patch file-name changeset hash) |
63 | "Return an origin for CHANGESET from the mozilla-esr45 repository." |
64 | (origin |
65 | (method url-fetch) |
66 | (uri (string-append "https://hg.mozilla.org/releases/mozilla-esr45/raw-rev/" |
67 | changeset)) |
68 | (sha256 (base32 hash)) |
69 | (file-name file-name))) |
70 | |
71 | (define-public icecat-skia |
72 | (package |
73 | (name "icecat-skia") |
74 | (version "45.5.1-gnu1") |
75 | (source |
76 | (origin |
77 | (method url-fetch) |
78 | (uri (string-append "mirror://gnu/gnuzilla/" |
79 | (first (string-split version #\-)) |
80 | "/" "icecat" "-" version ".tar.bz2")) |
81 | (sha256 |
82 | (base32 |
83 | "1sbfgsibmb8wfmb2g40gmqwq3nikmrgzksf51ydrz7gnafyfaqw1")) |
84 | (patches |
85 | (list |
86 | (search-patch "icecat-avoid-bundled-libraries.patch") |
87 | (search-patch "icecat-binutils.patch") |
88 | (mozilla-patch "icecat-CVE-2016-9897.patch" "2e5438a92617" "0pyjbzyy04759ldpcar8q8cccv67j1jkxsg46rkq7a3rbhmwmw4p") |
89 | (mozilla-patch "icecat-CVE-2016-9899.patch" "7391f60fb790" "1hydggpmmm2cs9lb15micnkxn4wl4cda9g74hkn3zmks805vjz3h") |
90 | (mozilla-patch "icecat-CVE-2016-9893-pt1.patch" "744e01001e6e" "0z2fq765kap3ll9as5rvjpnbj3pw26074alw7df0zi215qz47nxr") |
91 | (mozilla-patch "icecat-CVE-2016-9904-pt1.patch" "8ae673f34a5b" "1rlbihckl9afa0y91lqs7gpnv6a7zxzrmxjv95y3yrl03kibqp76") |
92 | (mozilla-patch "icecat-CVE-2016-9904-pt2.patch" "409c23c144fe" "05kgs16y8s5pxmg2dxp93247zagnj6zgj3209qpm5hz3an7gr13h") |
93 | (mozilla-patch "icecat-CVE-2016-9900.patch" "994d9bd0e28d" "007wifyx3b2ln4fwv1i8n24yz5ngjf4mkzd7sqr5bpd3q88ff293") |
94 | (mozilla-patch "icecat-CVE-2016-9893-pt2.patch" "0fc43af8982e" "0pc8q9knzq2knj723mwkay1lnzbzysb07ygxnc16mcb6f7vl2mw8") |
95 | (mozilla-patch "icecat-CVE-2016-9893-pt3.patch" "19f9a4643d77" "0w5yxj1l0hvs66q9agjp4m5sfby7fj05lx33gaqf899bw4hn4vcf") |
96 | (mozilla-patch "icecat-CVE-2016-9893-pt4.patch" "c58442c414f5" "1z1w1v8xagkhrwgp51ij1k2gx0ripslia09vm78812n7gcwddaas") |
97 | (mozilla-patch "icecat-CVE-2016-9898.patch" "5054047b7328" "0xlw8irymfp3bcaa5jpf7clf7bq6qxp3i8zapp8jya8lzr1nf868") |
98 | (mozilla-patch "icecat-bug-881832-pt1.patch" "1123263318a3" "1qkxwva3zrcs1zhga8ncmndq03988dx75i896g53gbvpskj06915") |
99 | (mozilla-patch "icecat-bug-881832-pt2.patch" "dc87c0a39adf" "01rapf14f3r2wk0cjd16dn1rll4ipgs33cnjmjck48nvk67ikz6h") |
100 | (mozilla-patch "icecat-bug-881832-pt3.patch" "f20e5f488368" "15ql9ywifb3gm2g1057k63f821dbs3wqsh3zhndprzf3dn6aha4i") |
101 | (mozilla-patch "icecat-bug-881832-pt4.patch" "7950c4d5bd7c" "0jhkg5hq5yfy7rh21k1mpbsbr81ql85aazym30zy3n2cf28xxhd7") |
102 | (mozilla-patch "icecat-bug-881832-pt5.patch" "972734ec21b6" "073i4v1f1ydy49i57pvzscz95sjr5bbk9s5sajxvmmcsmwhpjdfy") |
103 | (mozilla-patch "icecat-CVE-2016-9905-pt1.patch" "aebd3687e05e" "1qz6hdgflcrqyg7fv66cbg23v4b7q5bc2yxzrgjxs4j1d7jy1s0s") |
104 | (mozilla-patch "icecat-CVE-2016-9905-pt2.patch" "63d8e5cd27cb" "11fsgyngy7v59ma30xdbmycwf4izwikzvaljngm3ks4534inpl4a") |
105 | (mozilla-patch "icecat-bug-1279202.patch" "e560997291af" "1hn35slasfcj3ryka4fsarx4l9r99z0iwj67fmbv6zxz4z133kks") |
106 | (mozilla-patch "icecat-CVE-2016-9902.patch" "21c615b65048" "0ibgsxa36x9ajn2jqbhxxvrfvj6x6iyspsmzzn4brdz11n93skhr") |
107 | (mozilla-patch "icecat-CVE-2016-9901.patch" "c15e5afc0430" "17gj32agqs94548z8lvz0l6zz3kbwajn8as0y4iw5nb6jsll4c66") |
108 | (mozilla-patch "icecat-CVE-2016-9893-pt5.patch" "46163fb1cb34" "1yikayczfgfla3aka0159apq3149d52sgvlca0sivx4myd0lvjm7") |
109 | (mozilla-patch "icecat-CVE-2016-9893-pt6.patch" "cde2a37100f5" "100abggnhwyw84almxrkxqfpyfkd4pqkcrh5y9g4d3jd2h16asvl") |
110 | (mozilla-patch "icecat-CVE-2016-9893-pt7.patch" "9b78ab1e6d07" "19ib6bp96xk000ll40b8qxvizkncyzclz2rsb9w5fa42qs9978ff") |
111 | (mozilla-patch "icecat-CVE-2016-9893-pt8.patch" "78ebf9c9dfb0" "1shgr4rk6r2zxr1qqk1j3qnnqzqxnbi093qhlrfh8q5q1ivqf6k1") |
112 | (mozilla-patch "icecat-CVE-2016-9893-pt9.patch" "a46a9f16823c" "0dwkyz3kcqnfcbhbfh2lss7s0yh87rgzb871qxx3x4ynyqph9mnz") |
113 | (mozilla-patch "icecat-CVE-2017-5376.patch" "6bc7cc7a33a6" "1wggcqv84n8mp7xps7hy4rwy61fkh45imfqzc0b46s3w5hyhypn2") |
114 | (mozilla-patch "icecat-CVE-2016-9893-pt10.patch" "778f65148b40" "0j2a153sk0654vv2lnxjib4lwml3mlqn6vs46c2pp82iba8nyfrm") |
115 | (mozilla-patch "icecat-CVE-2016-9895.patch" "94bd2b43c766" "10h0qpr6m9cqyqxxnkbb6mzb3cagavzlynkxgd7a4izyq1bv28rk") |
116 | (mozilla-patch "icecat-CVE-2016-9893-pt11.patch" "893de7431d51" "11gyik8mwipl6ipypkvdq519pw7ccbg0g0bnvxb7271n44cqqcq5") |
117 | (mozilla-patch "icecat-CVE-2017-5383-pt1.patch" "b21dee058b2c" "005khpimffqzas7slajid4dd2c15nyk7rjk6fsps87bgnx0gx0s4") |
118 | (mozilla-patch "icecat-bug-1258410-pt1.patch" "cd23c5d74be8" "1myzkpzg6pmjacjz8az06m9kz84in1mwsiaw5sgx47pm02598wm5") |
119 | (mozilla-patch "icecat-bug-1258410-pt2.patch" "b83594617d15" "171cqflc9jh47az96im1whwhyq4ayicspqsczsmn2x5ll9lqw5fq") |
120 | (mozilla-patch "icecat-CVE-2017-5380.patch" "d6c6f5e4e641" "10x9f46ylm2q3i669hj1csd6agdm8w7xa0iln691z8ayg2hcrxdz") |
121 | (mozilla-patch "icecat-CVE-2017-5373-pt1.patch" "122f5fbfc563" "05pp2f4pg4j8a8pdgjhfrc8g2chhkhsarn9n8sbyag0fy3ig1cvd") |
122 | (mozilla-patch "icecat-CVE-2017-5390.patch" "297c675ddadc" "1jc1b5i69vq1fvz3qfnnv52c9cj17bjbmfyzmqlw5ywna0wfvabz") |
123 | (mozilla-patch "icecat-CVE-2017-5373-pt2.patch" "3cff736e3bb6" "1nxqwnl9zksvkfkmis7zica4xrhwfndjyy2sxc1dvrh9rshk1swq") |
124 | (mozilla-patch "icecat-CVE-2017-5373-pt3.patch" "2732280adabc" "0zrpq3aybaw2yy38vs6883a4nw01x4kxn3lfqn9yhcgjvngmmyia") |
125 | (mozilla-patch "icecat-CVE-2017-5373-pt4.patch" "81c9fdbd96e8" "0scv1zyi4vbsjdsyj4w70n5jd50baq0dzw3qpxqf1n69nfb9k214") |
126 | (mozilla-patch "icecat-CVE-2017-5373-pt5.patch" "a386ca6a3013" "1m1scz2pxzmg9wya8is5dcr3mgvkx3g1xlykgigmw2mqs5zcdg9s") |
127 | (mozilla-patch "icecat-CVE-2017-5373-pt6.patch" "0521b0e4707c" "1mv057p4hcvapibpbd9apryag19aiqdzafc6df2angl97m4mcbjx") |
128 | (mozilla-patch "icecat-bug-1290037.patch" "bf0dd9ae6807" "02iw5ngsvvij95arnn69a744d6si27g1x41ixg16l51dbn900b3r") |
129 | (mozilla-patch "icecat-bug-1322666.patch" "576f03e362c5" "0m88xs0jwhzx2lg12cvimxjknp7rpsvvhxxblhiqqjwnqip0pyc0") |
130 | (mozilla-patch "icecat-bug-1304266.patch" "4d82e7314a72" "1rrrw4rw0xv7c2myiypcqh1fk47rk3fvic79zh6m04bl3knclr1r") |
131 | (mozilla-patch "icecat-CVE-2017-5373-pt7.patch" "0617dd4b444d" "1ipags2cl2p521pm0qx110h5di2mgif6h1r3g8l9b0rc5m9b1y2j") |
132 | (mozilla-patch "icecat-CVE-2017-5375.patch" "ead08c2a6c57" "1nnnwdr7411xpz6n9j869g6sz447cq6xsmds9cw6d24iprcinp5m") |
133 | (mozilla-patch "icecat-CVE-2017-5378-pt1.patch" "c5e67d41bdd0" "05kwn5zv381lsiw9vbzm8fh6s1lddx47l8f4pwg487h9dj7vbdfq") |
134 | (mozilla-patch "icecat-CVE-2017-5373-pt8.patch" "2ce94f2ea797" "1yrnjqpafjns68z99s1m6jins3agid7c1z3v9qgk5xzfcddl31pn") |
135 | (mozilla-patch "icecat-CVE-2017-5373-pt9.patch" "e4ac8a66d3db" "1ggbh6nk005plm7kvp7qznbnlpidqkipxc5hlaqbjc3m0z9mypzl") |
136 | (mozilla-patch "icecat-CVE-2017-5386.patch" "8c171b75a0c6" "1cplkgwkhqvb62q7s8cya2drjdswnlicv5d9a60fxvnp6m7a3z02") |
137 | (mozilla-patch "icecat-CVE-2017-5383-pt2.patch" "79a31d8153bf" "0dzwk2hc741c0jr8xya4y8q59lk8mcgnvfdrdk0vzq1gby16b9zi") |
138 | (mozilla-patch "icecat-CVE-2017-5378-pt2.patch" "747085a1cd93" "0rpc8hl0jka4akdjnlwya4x9v4pqa1r5vc4pkmxsgvqpp2vkq4m2") |
139 | (mozilla-patch "icecat-bug-1331606.patch" "f0329536734b" "1br5shyfwp009y623wgjq60vhcp5k5zpzkgy4r3s5yrm5xyfcprf") |
140 | (mozilla-patch "icecat-bug-1328642.patch" "237c1ca6e035" "0808g5j17var6wv6ivj08i43fwkga9abmmgmz5w3hb8mhajkjw58") |
141 | (mozilla-patch "icecat-CVE-2017-5396.patch" "910ad552cbf5" "1qss3gc6n4myzwvwanc09xvyiq3hwhixn2xvpbk9xkfz2apdlfa6") |
142 | (mozilla-patch "icecat-bug-1312827.patch" "5c894801eb1e" "03xyjwx9rfx5w7q6wq9if83fcfgrlvvbyxpsawzxxgybnizyy7g8") |
143 | (mozilla-patch "icecat-bug-1191841.patch" "83ee87b301bd" "1kd9z4py372a2f1jg7jwvwri43vipf0k7lcvsg7b0cqr5p70zwcg") |
144 | (mozilla-patch "icecat-bug-1234317.patch" "eb6f18dbfe8d" "1dh3263fvg3dxav09g6fn41ax4q1jmwp5fk6pl6shn16mrfha1qq"))) |
145 | (modules '((guix build utils))) |
146 | (snippet |
147 | '(begin |
148 | (use-modules (ice-9 ftw)) |
149 | ;; Remove bundled libraries that we don't use, since they may |
150 | ;; contain unpatched security flaws, they waste disk space and |
151 | ;; network bandwidth, and may cause confusion. |
152 | (for-each delete-file-recursively |
153 | '(;; FIXME: Removing the bundled icu breaks configure. |
154 | ;; * The bundled icu headers are used in some places. |
155 | ;; * The version number is taken from the bundled copy. |
156 | ;;"intl/icu" |
157 | ;; |
158 | ;; FIXME: A script from the bundled nspr is used. |
159 | ;;"nsprpub" |
160 | ;; |
161 | ;; TODO: Use system media libraries. Waiting for: |
162 | ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=517422> |
163 | ;; * libogg |
164 | ;; * libtheora |
165 | ;; * libvorbis |
166 | ;; * libtremor (not yet in guix) |
167 | ;; * libopus |
168 | ;; * speex |
169 | ;; * soundtouch (not yet in guix) |
170 | ;; |
171 | ;; TODO: Use system harfbuzz. Waiting for: |
172 | ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=847568> |
173 | ;; |
174 | ;; TODO: Use system graphite2. |
175 | ;; |
176 | "modules/freetype2" |
177 | "modules/zlib" |
178 | "modules/libbz2" |
179 | "ipc/chromium/src/third_party/libevent" |
180 | "media/libjpeg" |
181 | "media/libvpx" |
182 | "security/nss" |
183 | "gfx/cairo" |
184 | "js/src/ctypes/libffi" |
185 | "db/sqlite3")) |
186 | ;; Delete .pyc files, typically present in icecat source tarballs |
187 | (for-each delete-file (find-files "." "\\.pyc$")) |
188 | ;; Delete obj-* directories, sometimes present in icecat tarballs |
189 | (for-each delete-file-recursively |
190 | (scandir "." (lambda (name) |
191 | (string-prefix? "obj-" name)))) |
192 | #t)))) |
193 | (build-system gnu-build-system) |
194 | (inputs |
195 | `(("alsa-lib" ,alsa-lib) |
196 | ("bzip2" ,bzip2) |
197 | ("cairo" ,cairo) |
198 | ("cups" ,cups) |
199 | ("dbus-glib" ,dbus-glib) |
200 | ("gdk-pixbuf" ,gdk-pixbuf) |
201 | ("glib" ,glib) |
202 | ("gstreamer" ,gstreamer) |
203 | ("gst-plugins-base" ,gst-plugins-base) |
204 | ("gtk+" ,gtk+-2) |
205 | ("pango" ,pango) |
206 | ("freetype" ,freetype) |
207 | ("hunspell" ,hunspell) |
208 | ("libcanberra" ,libcanberra) |
209 | ("libgnome" ,libgnome) |
210 | ("libjpeg-turbo" ,libjpeg-turbo) |
211 | ("libxft" ,libxft) |
212 | ("libevent" ,libevent-2.0) |
213 | ("libxinerama" ,libxinerama) |
214 | ("libxscrnsaver" ,libxscrnsaver) |
215 | ("libxcomposite" ,libxcomposite) |
216 | ("libxt" ,libxt) |
217 | ("libffi" ,libffi) |
218 | ("libvpx" ,libvpx) |
219 | ("icu4c" ,icu4c) |
220 | ("pixman" ,pixman) |
221 | ("pulseaudio" ,pulseaudio) |
222 | ("mesa" ,mesa) |
223 | ("mit-krb5" ,mit-krb5) |
224 | ("nspr" ,nspr) |
225 | ("nss" ,nss) |
226 | ("skia" ,skia) |
227 | ("sqlite" ,sqlite) |
228 | ("startup-notification" ,startup-notification) |
229 | ("unzip" ,unzip) |
230 | ("yasm" ,yasm) |
231 | ("zip" ,zip) |
232 | ("zlib" ,zlib))) |
233 | (native-inputs |
234 | `(("perl" ,perl) |
235 | ("python" ,python-2) ; Python 3 not supported |
236 | ("python2-pysqlite" ,python2-pysqlite) |
237 | ("pkg-config" ,pkg-config) |
238 | ("which" ,which))) |
239 | (arguments |
240 | `(#:tests? #f ; no check target |
241 | #:out-of-source? #t ; must be built outside of the source directory |
242 | #:parallel-build? #f |
243 | |
244 | ;; XXX: There are RUNPATH issues such as |
245 | ;; $prefix/lib/icecat-31.6.0/plugin-container NEEDing libmozalloc.so, |
246 | ;; which is not in its RUNPATH, but they appear to be harmless in |
247 | ;; practice somehow. See <http://hydra.gnu.org/build/378133>. |
248 | #:validate-runpath? #f |
249 | |
250 | #:configure-flags '("--enable-default-toolkit=cairo-gtk2" |
251 | "--enable-pango" |
252 | "--enable-gio" |
253 | "--enable-svg" |
254 | "--enable-canvas" |
255 | "--enable-mathml" |
256 | "--enable-startup-notification" |
257 | "--enable-pulseaudio" |
258 | "--enable-gstreamer=1.0" |
259 | "--enable-skia" |
260 | |
261 | "--disable-gnomevfs" |
262 | "--disable-gconf" |
263 | "--disable-gnomeui" |
264 | |
265 | ;; Building with debugging symbols takes ~5GiB, so |
266 | ;; disable it. |
267 | "--disable-debug" |
268 | "--disable-debug-symbols" |
269 | |
270 | ;; Hack to work around missing |
271 | ;; "unofficial" branding in icecat. |
272 | "--enable-official-branding" |
273 | |
274 | ;; Avoid bundled libraries. |
275 | "--with-system-zlib" |
276 | "--with-system-bz2" |
277 | "--with-system-jpeg" ; must be libjpeg-turbo |
278 | "--with-system-libevent" |
279 | "--with-system-libvpx" |
280 | "--with-system-icu" |
281 | "--with-system-nspr" |
282 | "--with-system-nss" |
283 | "--enable-system-pixman" |
284 | "--enable-system-cairo" |
285 | "--enable-system-ffi" |
286 | "--enable-system-hunspell" |
287 | "--enable-system-sqlite" |
288 | |
289 | ;; Fails with "--with-system-png won't work because |
290 | ;; the system's libpng doesn't have APNG support". |
291 | ;; According to |
292 | ;; http://sourceforge.net/projects/libpng-apng/ , |
293 | ;; "the Animated Portable Network Graphics (APNG) |
294 | ;; is an unofficial extension of the Portable |
295 | ;; Network Graphics (PNG) format"; |
296 | ;; we probably do not wish to support it. |
297 | ;; "--with-system-png" |
298 | ) |
299 | |
300 | #:modules ((ice-9 ftw) |
301 | (ice-9 rdelim) |
302 | (ice-9 match) |
303 | ,@%gnu-build-system-modules) |
304 | #:phases |
305 | (modify-phases %standard-phases |
306 | (add-after |
307 | 'unpack 'ensure-no-mtimes-pre-1980 |
308 | (lambda _ |
309 | ;; Without this, the 'source/test/addons/packed.xpi' and |
310 | ;; 'source/test/addons/simple-prefs.xpi' targets fail while trying |
311 | ;; to create zip archives. |
312 | (let ((early-1980 315619200)) ; 1980-01-02 UTC |
313 | (ftw "." (lambda (file stat flag) |
314 | (unless (<= early-1980 (stat:mtime stat)) |
315 | (utime file early-1980 early-1980)) |
316 | #t)) |
317 | #t))) |
318 | (add-after |
319 | 'unpack 'remove-h264parse-from-blacklist |
320 | (lambda _ |
321 | ;; Remove h264parse from gstreamer format helper blacklist. It |
322 | ;; was put there to work around a bug in a pre-1.0 version of |
323 | ;; gstreamer. See: |
324 | ;; https://www.mozilla.org/en-US/security/advisories/mfsa2015-47/ |
325 | (substitute* "dom/media/gstreamer/GStreamerFormatHelper.cpp" |
326 | (("^ \"h264parse\",\n") "")) |
327 | #t)) |
328 | (add-after |
329 | 'unpack 'arrange-to-link-libxul-with-libraries-it-might-dlopen |
330 | (lambda _ |
331 | ;; libxul.so dynamically opens libraries, so here we explicitly |
332 | ;; link them into libxul.so instead. |
333 | ;; |
334 | ;; TODO: It might be preferable to patch in absolute file names in |
335 | ;; calls to dlopen or PR_LoadLibrary, but that didn't seem to |
336 | ;; work. More investigation is needed. |
337 | (substitute* "toolkit/library/moz.build" |
338 | (("^# This needs to be last") |
339 | "OS_LIBS += [ |
340 | 'GL', 'gnome-2', 'canberra', 'Xss', 'cups', 'gssapi_krb5', |
341 | 'gstreamer-1.0', 'gstapp-1.0', 'gstvideo-1.0' ]\n\n")) |
342 | #t)) |
343 | (replace |
344 | 'configure |
345 | ;; configure does not work followed by both "SHELL=..." and |
346 | ;; "CONFIG_SHELL=..."; set environment variables instead |
347 | (lambda* (#:key outputs configure-flags #:allow-other-keys) |
348 | (let* ((out (assoc-ref outputs "out")) |
349 | (bash (which "bash")) |
350 | (abs-srcdir (getcwd)) |
351 | (srcdir (string-append "../" (basename abs-srcdir))) |
352 | (flags `(,(string-append "--prefix=" out) |
353 | ,(string-append "--with-l10n-base=" |
354 | abs-srcdir "/l10n") |
355 | ,@configure-flags))) |
356 | (setenv "SHELL" bash) |
357 | (setenv "CONFIG_SHELL" bash) |
358 | (mkdir "../build") |
359 | (chdir "../build") |
360 | (format #t "build directory: ~s~%" (getcwd)) |
361 | (format #t "configure flags: ~s~%" flags) |
362 | (zero? (apply system* bash |
363 | (string-append srcdir "/configure") |
364 | flags))))) |
365 | (add-before 'configure 'install-desktop-entry |
366 | (lambda* (#:key outputs #:allow-other-keys) |
367 | ;; Install the '.desktop' file. |
368 | (define (swallow-%%-directives input output) |
369 | ;; Interpret '%%ifdef' directives found in the '.desktop' file. |
370 | (let loop ((state 'top)) |
371 | (match (read-line input 'concat) |
372 | ((? eof-object?) |
373 | #t) |
374 | ((? string? line) |
375 | (cond ((string-prefix? "%%ifdef" line) |
376 | (loop 'ifdef)) |
377 | ((string-prefix? "%%else" line) |
378 | (loop 'else)) |
379 | ((string-prefix? "%%endif" line) |
380 | (loop 'top)) |
381 | (else |
382 | (case state |
383 | ((top else) |
384 | (display line output) |
385 | (loop state)) |
386 | (else |
387 | (loop state))))))))) |
388 | |
389 | (let* ((out (assoc-ref outputs "out")) |
390 | (applications (string-append out "/share/applications"))) |
391 | (call-with-input-file "debian/icecat.desktop.in" |
392 | (lambda (input) |
393 | (call-with-output-file "debian/icecat.desktop" |
394 | (lambda (output) |
395 | (swallow-%%-directives input output))))) |
396 | |
397 | (substitute* "debian/icecat.desktop" |
398 | (("@MOZ_DISPLAY_NAME@") |
399 | "GNU IceCat") |
400 | (("^Exec=@MOZ_APP_NAME@") |
401 | (string-append "Exec=" out "/bin/icecat")) |
402 | (("@MOZ_APP_NAME@") |
403 | "icecat")) |
404 | (install-file "debian/icecat.desktop" applications) |
405 | #t))) |
406 | (add-after 'install-desktop-entry 'install-icons |
407 | (lambda* (#:key outputs #:allow-other-keys) |
408 | (let ((out (assoc-ref outputs "out"))) |
409 | (with-directory-excursion "browser/branding/official" |
410 | (for-each |
411 | (lambda (file) |
412 | (let* ((size (string-filter char-numeric? file)) |
413 | (icons (string-append out "/share/icons/hicolor/" |
414 | size "x" size "/apps"))) |
415 | (mkdir-p icons) |
416 | (copy-file file (string-append icons "/icecat.png")))) |
417 | '("default16.png" "default22.png" "default24.png" |
418 | "default32.png" "default48.png" "content/icon64.png" |
419 | "mozicon128.png" "default256.png"))))))))) |
420 | (home-page "http://www.gnu.org/software/gnuzilla/") |
421 | (synopsis "Entirely free browser derived from Mozilla Firefox") |
422 | (description |
423 | "IceCat is the GNU version of the Firefox browser. It is entirely free |
424 | software, which does not recommend non-free plugins and addons. It also |
425 | features built-in privacy-protecting features.") |
426 | (license license:mpl2.0) ;and others, see toolkit/content/license.html |
427 | (properties |
428 | `((ftp-directory . "/gnu/gnuzilla") |
429 | (cpe-name . "firefox_esr") |
430 | (cpe-version . ,(first (string-split version #\-))))))) |
431 |