From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mark H Weaver Subject: [PATCH] gnu: icecat: Update to 31.1.1 Date: Wed, 08 Oct 2014 23:42:16 -0400 Message-ID: <874mvd29k7.fsf@netris.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45825) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xc4cp-0006L3-Ef for guix-devel@gnu.org; Wed, 08 Oct 2014 23:42:52 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xc4ck-0006TJ-2m for guix-devel@gnu.org; Wed, 08 Oct 2014 23:42:47 -0400 Received: from world.peace.net ([96.39.62.75]:33353) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xc4cj-0006Sw-Td for guix-devel@gnu.org; Wed, 08 Oct 2014 23:42:41 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org --=-=-= Content-Type: text/plain This is technically a pre-release, but given that our current Icecat has at least one security hole (and probably others), and fails to build on i686, I'm inclined to push it to master immediately. I suppose I should also mention that I've only tested it on i686. What do you think? Mark --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-gnu-icecat-Update-to-31.1.1.patch Content-Description: [PATCH] gnu: icecat: Update to 31.1.1 >From d74f4c12f005bbfbd419772f861d7693eb1b7c28 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Wed, 8 Oct 2014 23:37:37 -0400 Subject: [PATCH] gnu: icecat: Update to 31.1.1. * gnu/packages/gnuzilla.scm (icecat): Update to 31.1.1. Add 'pango', 'freetype', 'libxft' and 'pulseaudio' as inputs. Set 'out-of-source?' to #t. Remove 'sanitise' phase. Adapt customized 'configure' phase to handle 'out-of-source?' build. Add '--with-l10n-base' argument to configure. --- gnu/packages/gnuzilla.scm | 61 +++++++++++++++++++++++++++-------------------- 1 file changed, 35 insertions(+), 26 deletions(-) diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index 11515d4..1ae1f29 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -30,9 +30,11 @@ #: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 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 xorg) #:use-module (gnu packages gl) @@ -42,16 +44,15 @@ (define-public icecat (package (name "icecat") - (version "24.0") + (version "31.1.1") (source (origin (method url-fetch) - (uri (string-append "mirror://gnu/gnuzilla/" - (substring version 0 (string-index version #\.)) - "/icecat-" version ".tar.gz")) + (uri (string-append "http://gnuzilla.gnu.org/releases/" + version "/" name "-" version ".tar.xz")) (sha256 (base32 - "1vxzjwmhad6yxx4sk9zvapjgv5salcv10id061q0991ii3dycy9a")))) + "033p5b6akjbg33prqg57mhp5zx3svryqzbjb3k58ql6939bfmad8")))) (build-system gnu-build-system) (inputs `(("alsa-lib" ,alsa-lib) @@ -62,9 +63,13 @@ ("gstreamer" ,gstreamer-0.10) ("gst-plugins-base" ,gst-plugins-base-0.10) ("gtk+" ,gtk+-2) + ("pango" ,pango) + ("freetype" ,freetype) + ("libxft" ,libxft) ("libevent" ,libevent) ("libxt" ,libxt) ("libffi" ,libffi) + ("pulseaudio" ,pulseaudio) ("mesa" ,mesa) ("unzip" ,unzip) ("yasm" ,yasm) @@ -76,7 +81,8 @@ ("python2-pysqlite" ,python2-pysqlite) ("pkg-config" ,pkg-config))) (arguments - `(#:tests? #f ; no check target + `(#:tests? #f ; no check target + #:out-of-source? #t ; must be built outside of the source directory #:configure-flags '(;; Building with debugging symbols takes ~5GiB, so ;; disable it. @@ -112,26 +118,29 @@ "--enable-system-ffi") #:phases - (alist-cons-before - 'patch-source-shebangs 'sanitise - (lambda _ - ;; delete dangling symlinks - (delete-file "browser/base/content/.#aboutDialog.xul") - (delete-file "browser/base/content/abouthome/.#aboutHome.xhtml") - (delete-file "browser/branding/unofficial/content/.#aboutHome.xhtml") - (delete-file "toolkit/crashreporter/google-breakpad/autotools/compile")) - (alist-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 ((out (assoc-ref outputs "out"))) - (setenv "SHELL" (which "bash")) - (setenv "CONFIG_SHELL" (which "bash")) - (zero? (apply system* "./configure" - (string-append "--prefix=" out) - configure-flags)))) - %standard-phases)))) + (alist-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* ((out (assoc-ref outputs "out")) + (bash (which "bash")) + (abs-srcdir (getcwd)) + (srcdir (string-append "../" (basename abs-srcdir))) + (flags `(,(string-append "--prefix=" out) + ,(string-append "--with-l10n-base=" + abs-srcdir "/l10n") + ,@configure-flags))) + (setenv "SHELL" bash) + (setenv "CONFIG_SHELL" bash) + (mkdir "../build") + (chdir "../build") + (format #t "build directory: ~s~%" (getcwd)) + (format #t "configure flags: ~s~%" flags) + (zero? (apply system* bash + (string-append srcdir "/configure") + flags)))) + %standard-phases))) (home-page "http://www.gnu.org/software/gnuzilla/") (synopsis "Entirely free browser derived from Mozilla Firefox") (description -- 2.1.2 --=-=-=--