From mboxrd@z Thu Jan 1 00:00:00 1970 From: Joshua Branson Subject: Re: [PATCH] gnu: Add ungoogled-chromium. Date: Sun, 03 Feb 2019 13:16:07 -0500 Message-ID: <87k1igpwk8.fsf@dismail.de> References: <20190202192023.22087-1-mbakke@fastmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([209.51.188.92]:55857) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gqMJi-0000Cs-Px for guix-devel@gnu.org; Sun, 03 Feb 2019 13:16:33 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gqMJZ-0007k7-70 for guix-devel@gnu.org; Sun, 03 Feb 2019 13:16:26 -0500 Received: from dismail.de ([78.46.223.134]:34939) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1gqMJV-0007YY-Em for guix-devel@gnu.org; Sun, 03 Feb 2019 13:16:19 -0500 Received: from dismail.de (localhost [127.0.0.1]) by dismail.de (OpenSMTPD) with ESMTP id ca90d5f0 for ; Sun, 3 Feb 2019 19:16:11 +0100 (CET) Received: from smtp1.dismail.de (10.240.26.11 [10.240.26.11]) by mx1.dismail.de (OpenSMTPD) with ESMTP id e4ba5be7 for ; Sun, 3 Feb 2019 19:16:11 +0100 (CET) Received: from smtp1.dismail.de (localhost [127.0.0.1]) by smtp1.dismail.de (OpenSMTPD) with ESMTP id 2f37eaeb for ; Sun, 3 Feb 2019 19:16:11 +0100 (CET) Received: by dismail.de (OpenSMTPD) with ESMTPSA id 367159ea (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256:NO) for ; Sun, 3 Feb 2019 19:16:09 +0100 (CET) In-Reply-To: <20190202192023.22087-1-mbakke@fastmail.com> (Marius Bakke's message of "Sat, 2 Feb 2019 20:20:23 +0100") 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" To: guix-devel@gnu.org Marius Bakke writes: > Thanks to Marks beautiful "computed-origin-method", Ungoogled-Chromium > is finally ready for inclusion in Guix. > > Features: > * Chromium 72. > * No unsolicited network traffic. > * Free software only. > * No DRM. > * Not an April Fools joke. Ahh man. I was really hoping this was an April fools joke. Last year someone had packaged systemd, and this person recommended that we do away with the Shepherd. May I request that we do an April fools joke once a year? I'm sorry if this email is not professional enough. > > It's currently using my trivial "fork" of Ungoogled-Chromium[0], which > will be upstreamed once the upstream reorganization[1] is done. > > Comments appreciated! > > [0]: https://github.com/mbakke/ungoogled-chromium/commit/f9b9074c322a67b0= 4baf0982797cd7b7e09614b5 > [1]: https://github.com/Eloston/ungoogled-chromium/issues/651 > > * gnu/packages/aux-files/chromium/master-preferences.json, > gnu/packages/chromium.scm: New files. > * gnu/local.mk (GNU_SYSTEM_MODULES): Adjust accordingly. > --- > gnu/local.mk | 1 + > .../chromium/master-preferences.json | 26 + > gnu/packages/chromium.scm | 741 ++++++++++++++++++ > 3 files changed, 768 insertions(+) > create mode 100644 gnu/packages/aux-files/chromium/master-preferences.js= on > create mode 100644 gnu/packages/chromium.scm > > diff --git a/gnu/local.mk b/gnu/local.mk > index 82db1488d6..b5e937cdd7 100644 > --- a/gnu/local.mk > +++ b/gnu/local.mk > @@ -100,6 +100,7 @@ GNU_SYSTEM_MODULES =3D \ > %D%/packages/check.scm \ > %D%/packages/chemistry.scm \ > %D%/packages/chez.scm \ > + %D%/packages/chromium.scm \ > %D%/packages/ci.scm \ > %D%/packages/cinnamon.scm \ > %D%/packages/clojure.scm \ > diff --git a/gnu/packages/aux-files/chromium/master-preferences.json b/gn= u/packages/aux-files/chromium/master-preferences.json > new file mode 100644 > index 0000000000..0caa7cc4cd > --- /dev/null > +++ b/gnu/packages/aux-files/chromium/master-preferences.json > @@ -0,0 +1,26 @@ > +{ > + "distribution": { > + "import_bookmarks": false, > + "make_chrome_default": false, > + "make_chrome_default_for_user": false, > + "verbose_logging": true, > + "skip_first_run_ui": true, > + "suppress_first_run_default_browser_prompt": true > + }, > + "browser": { > + "has_seen_welcome_page" : true, > + "check_default_browser" : false > + }, > + "dns_prefetching": { > + "enabled": false > + }, > + "alternate_error_pages": { > + "enabled": false > + }, > + "hardware": { > + "audio_capture_enabled": false > + }, > + "default_apps": "noinstall", > + "hide_web_store_icon": true, > + "homepage": "https://www.gnu.org/software/guix" > +} > diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm > new file mode 100644 > index 0000000000..eb404246d3 > --- /dev/null > +++ b/gnu/packages/chromium.scm > @@ -0,0 +1,741 @@ > +;;; GNU Guix --- Functional package management for GNU > +;;; Copyright =C2=A9 2019 Marius Bakke > +;;; > +;;; 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 . > + > +(define-module (gnu packages chromium) > + #:use-module ((guix licenses) #:prefix license:) > + #:use-module (guix packages) > + #:use-module (guix gexp) > + #:use-module (guix store) > + #:use-module (guix monads) > + #:use-module (guix download) > + #:use-module (guix git-download) > + #:use-module (guix utils) > + #:use-module (guix build-system gnu) > + #:use-module (gnu packages) > + #:use-module (gnu packages assembly) > + #:use-module (gnu packages base) > + #:use-module (gnu packages bison) > + #:use-module (gnu packages build-tools) > + #:use-module (gnu packages compression) > + #:use-module (gnu packages cups) > + #:use-module (gnu packages curl) > + #:use-module (gnu packages fontutils) > + #:use-module (gnu packages gcc) > + #:use-module (gnu packages ghostscript) > + #:use-module (gnu packages gl) > + #:use-module (gnu packages glib) > + #:use-module (gnu packages gnome) > + #:use-module (gnu packages gnuzilla) > + #:use-module (gnu packages gperf) > + #:use-module (gnu packages gtk) > + #:use-module (gnu packages icu4c) > + #:use-module (gnu packages image) > + #:use-module (gnu packages libevent) > + #:use-module (gnu packages libffi) > + #:use-module (gnu packages linux) > + #:use-module (gnu packages kerberos) > + #:use-module (gnu packages ninja) > + #:use-module (gnu packages node) > + #:use-module (gnu packages pciutils) > + #:use-module (gnu packages pkg-config) > + #:use-module (gnu packages pulseaudio) > + #:use-module (gnu packages python) > + #:use-module (gnu packages python-web) > + #:use-module (gnu packages python-xyz) > + #:use-module (gnu packages regex) > + #:use-module (gnu packages serialization) > + #:use-module (gnu packages speech) > + #:use-module (gnu packages tls) > + #:use-module (gnu packages valgrind) > + #:use-module (gnu packages vulkan) > + #:use-module (gnu packages video) > + #:use-module (gnu packages xiph) > + #:use-module (gnu packages xml) > + #:use-module (gnu packages xdisorg) > + #:use-module (gnu packages xorg)) > + > +(define %preserved-third-party-files > + '("base/third_party/dmg_fp" ;X11-style > + "base/third_party/dynamic_annotations" ;BSD-2 > + "base/third_party/icu" ;Unicode, X11-style > + "base/third_party/superfasthash" ;BSD-3 > + "base/third_party/symbolize" ;BSD-3 > + "base/third_party/xdg_mime" ;LGPL2.1+ or Academic 2.0 > + "base/third_party/xdg_user_dirs" ;Expat > + "chrome/third_party/mozilla_security_manager" ;MPL-1.1/GPL2+/LGPL2.1+ > + "courgette/third_party/bsdiff" ;BSD-2, BSD protection license > + "courgette/third_party/divsufsort" ;Expat > + "net/third_party/http2" ;BSD-3 > + "net/third_party/mozilla_security_manager" ;MPL-1.1/GPL2+/LGPL2.1+ > + "net/third_party/nss" ;MPL-2.0 > + "net/third_party/quic" ;BSD-3 > + "net/third_party/spdy" ;BSD-3 > + "net/third_party/uri_template" ;ASL2.0 > + "third_party/abseil-cpp" ;ASL2.0 > + "third_party/adobe/flash/flapper_version.h" ;no license, trivial > + "third_party/angle" ;BSD-3 > + "third_party/angle/src/common/third_party/base" ;BSD-3 > + "third_party/angle/src/common/third_party/smhasher" ;Public domain > + "third_party/angle/src/common/third_party/xxhash" ;BSD-2 > + "third_party/angle/src/third_party/compiler" ;BSD-2 > + "third_party/angle/src/third_party/libXNVCtrl" ;Expat > + "third_party/angle/src/third_party/trace_event" ;BSD-3 > + "third_party/angle/third_party/glslang" ;BSD-3 > + "third_party/angle/third_party/spirv-headers" ;Expat > + "third_party/angle/third_party/spirv-tools" ;Expat > + "third_party/angle/third_party/vulkan-headers" ;ASL2.0 > + "third_party/angle/third_party/vulkan-loader" ;ASL2.0 > + "third_party/angle/third_party/vulkan-tools" ;ASL2.0 > + "third_party/angle/third_party/vulkan-validation-layers" ;ASL2.0 > + "third_party/apple_apsl" ;APSL2.0 > + "third_party/blink" ;BSD-3 > + "third_party/boringssl" ;OpenSSL/ISC (Google additions are ISC) > + "third_party/boringssl/src/third_party/fiat" ;Expat > + "third_party/breakpad" ;BSD-3 > + "third_party/brotli" ;Expat > + "third_party/cacheinvalidation" ;ASL2.0 > + "third_party/catapult" ;BSD-3 > + "third_party/catapult/common/py_vulcanize/third_party/rcssmin" ;ASL2= .0 > + "third_party/catapult/common/py_vulcanize/third_party/rjsmin" ;ASL2.0 > + "third_party/catapult/third_party/polymer" ;BSD-3 > + "third_party/catapult/tracing/third_party/d3" ;BSD-3 > + "third_party/catapult/tracing/third_party/gl-matrix" ;Expat > + "third_party/catapult/tracing/third_party/jszip" ;Expat or GPL3 > + "third_party/catapult/tracing/third_party/mannwhitneyu" ;Expat > + "third_party/catapult/tracing/third_party/oboe" ;BSD-2 > + "third_party/catapult/tracing/third_party/pako" ;Expat > + "third_party/ced" ;BSD-3 > + "third_party/cld_3" ;ASL2.0 > + "third_party/closure_compiler" ;ASL2.0 > + "third_party/crashpad" ;ASL2.0 > + "third_party/crashpad/crashpad/third_party/zlib/zlib_crashpad.h" ;Zl= ib > + "third_party/crc32c" ;BSD-3 > + "third_party/cros_system_api" ;BSD-3 > + "third_party/dom_distiller_js" ;BSD-3 > + "third_party/fips181" ;BSD-3 > + "third_party/flatbuffers" ;ASL2.0 > + "third_party/google_input_tools" ;ASL2.0 > + "third_party/google_input_tools/third_party/closure_library" ;ASL2.0 > + "third_party/google_input_tools/third_party/closure_library/third_pa= rty/closure" ;Expat > + "third_party/googletest" ;BSD-3 > + "third_party/hunspell" ;MPL1.1/GPL2+/LGPL2.1+ > + "third_party/iccjpeg" ;IJG > + "third_party/inspector_protocol" ;BSD-3 > + "third_party/jinja2" ;BSD-3 > + "third_party/jstemplate" ;ASL2.0 > + "third_party/khronos" ;Expat, SGI > + "third_party/leveldatabase" ;BSD-3 > + "third_party/libXNVCtrl" ;Expat > + "third_party/libaddressinput" ;ASL2.0 > + "third_party/libaom" ;BSD-2 or "Alliance for Open Media Patent Licen= se 1.0" > + "third_party/libaom/source/libaom/third_party/vector" ;Expat > + "third_party/libaom/source/libaom/third_party/x86inc" ;ISC > + "third_party/libjingle_xmpp" ;BSD-3 > + "third_party/libphonenumber" ;ASL2.0 > + "third_party/libsecret" ;LGPL2.1+ > + "third_party/libsrtp" ;BSD-3 > + "third_party/libsync" ;ASL2.0 > + "third_party/libudev" ;LGPL2.1+ > + "third_party/libwebm" ;BSD-3 > + "third_party/libxml/chromium" ;BSD-3 > + "third_party/libyuv" ;BSD-3 > + "third_party/lss" ;BSD-3 > + "third_party/markupsafe" ;BSD-3 > + "third_party/mesa_headers" ;Expat, SGI > + "third_party/metrics_proto" ;BSD-3 > + "third_party/modp_b64" ;BSD-3 > + "third_party/nasm" ;BSD-2 > + "third_party/node" ;Expat > + "third_party/node/node_modules/polymer-bundler/lib/third_party/Uglif= yJS2" ;BSD-2 > + "third_party/ots" ;BSD-3 > + "third_party/pdfium" ;BSD-3 > + "third_party/pdfium/third_party/agg23" ;Expat > + "third_party/pdfium/third_party/base" ;BSD-3 > + "third_party/pdfium/third_party/bigint" ;Public domain, BSD-3 > + "third_party/pdfium/third_party/skia_shared" ;BSD-3 > + "third_party/pdfium/third_party/freetype/include/pstables.h" ;FreeTy= pe > + "third_party/ply" ;BSD-3 > + "third_party/polymer" ;BSD-3 > + "third_party/protobuf" ;BSD-3 > + "third_party/protobuf/third_party/six" ;Expat > + "third_party/pyjson5" ;ASL2.0 > + "third_party/qcms" ;Expat > + "third_party/rnnoise" ;BSD-3 > + "third_party/s2cellid" ;ASL2.0 > + "third_party/sfntly" ;ASL2.0 > + "third_party/skia" ;BSD-3 > + "third_party/skia/third_party/gif" ;MPL1.1/GPL2+/LGPL2.1+ > + "third_party/skia/third_party/skcms" ;BSD-3 > + "third_party/skia/third_party/vulkan" ;BSD-3 > + "third_party/smhasher" ;Expat, public domain > + "third_party/speech-dispatcher" ;GPL2+ > + "third_party/spirv-headers" ;ASL2.0 > + "third_party/SPIRV-Tools" ;ASL2.0 > + "third_party/sqlite" ;Public domain > + "third_party/ungoogled" ;BSD-3 > + "third_party/usb_ids" ;BSD-3 > + "third_party/usrsctp" ;BSD-2 > + "third_party/web-animations-js" ;ASL2.0 > + "third_party/webdriver" ;ASL2.0 > + "third_party/webrtc" ;BSD-3 > + "third_party/webrtc/common_audio/third_party/fft4g" ;Non-copyleft > + "third_party/webrtc/common_audio/third_party/spl_sqrt_floor" ;Public= domain > + "third_party/webrtc/modules/third_party/fft" ;Non-copyleft > + "third_party/webrtc/modules/third_party/g711" ;Public domain > + "third_party/webrtc/modules/third_party/g722" ;Public domain > + "third_party/webrtc/rtc_base/third_party/base64" ;Non-copyleft > + "third_party/webrtc/rtc_base/third_party/sigslot" ;Public domain > + "third_party/widevine/cdm/widevine_cdm_version.h" ;BSD-3 > + "third_party/widevine/cdm/widevine_cdm_common.h" ;BSD-3 > + "third_party/woff2" ;ASL2.0 > + "third_party/xdg-utils" ;Expat > + "third_party/yasm/run_yasm.py" ;BSD-2 or BSD-3 > + "third_party/zlib/google" ;BSD-3 > + "url/third_party/mozilla" ;BSD-3, MPL1.1/GPL2+/LGPL2.1+ > + "v8/src/third_party/utf8-decoder" ;Expat > + "v8/src/third_party/valgrind" ;BSD-4 > + "v8/third_party/inspector_protocol" ;BSD-3 > + "v8/third_party/v8/builtins")) ;PSFL > + > +(define* (computed-origin-method gexp-promise hash-algo hash > + #:optional (name "source") > + #:key (system (%current-system)) > + (guile (default-guile))) > + "Return a derivation that executes the G-expression that results > +from forcing GEXP-PROMISE." > + (mlet %store-monad ((guile (package->derivation guile system))) > + (gexp->derivation (or name "computed-origin") > + (force gexp-promise) > + #:system system > + #:guile-for-build guile))) > + > +(define %chromium-version "72.0.3626.81") > +(define %ungoogled-revision "f9b9074c322a67b04baf0982797cd7b7e09614b5") > + > +;; This is a computed origin that does the following: > +;; 1) Runs the Ungoogled scripts on a pristine Chromium tarball. > +;; 2) Prunes all third_party folders that are not explicitly preserved. > +;; 3) Adjusts "GN" build files such that system libraries are preferred. > +(define ungoogled-chromium-source > + (let* ((chromium-source > + (origin > + (method url-fetch) > + (uri (string-append "https://commondatastorage.googleapis.co= m" > + "/chromium-browser-official/chromium-" > + %chromium-version ".tar.xz")) > + (sha256 > + (base32 > + "01l0vlvcckpag376mjld7qprv63l0z8li689k0h6v3h0i7irzs6z")))) > + (ungoogled-source > + (origin > + (method git-fetch) > + (uri (git-reference (url "https://github.com/mbakke/ungoogle= d-chromium") > + (commit %ungoogled-revision))) > + (file-name (git-file-name "ungoogled-chromium" > + (string-take %ungoogled-revision 7= ))) > + (sha256 > + (base32 > + "0gmk1n3i7lbm7rw8zl4df171yhvrlimj8ksj096bf2dlfhbd44rb"))))) > + > + (origin > + (method computed-origin-method) > + (file-name (string-append "ungoogled-chromium-" %chromium-version = ".tar.xz")) > + (sha256 #f) > + (uri > + (delay > + (with-imported-modules '((guix build utils)) > + #~(begin > + (use-modules (guix build utils)) > + (let ((chromium-dir (string-append "chromium-" #$%chro= mium-version)) > + (preserved-files (list #$@%preserved-third-party-fi= les))) > + > + (mkdir "/tmp/bin") > + (set-path-environment-variable > + "PATH" '("bin") > + (list "/tmp" > + #+(canonical-package patch) > + #+(canonical-package xz) > + #+(canonical-package tar) > + #+python-2 > + #+python)) > + > + (copy-recursively #+ungoogled-source "/tmp/ungoogled") > + > + (with-directory-excursion "/tmp/ungoogled" > + > + (format #t "Unpacking chromium tarball...~%") > + (force-output) > + (invoke "tar" "xf" #+chromium-source) > + > + (format #t "Ungooglifying...~%") > + (force-output) > + (invoke "python3" "run_buildkit_cli.py" "prune" > + "-b" "config_bundles/guix" chromium-dir) > + (invoke "python3" "run_buildkit_cli.py" "patches" "ap= ply" > + "-b" "config_bundles/guix" chromium-dir) > + (invoke "python3" "run_buildkit_cli.py" "domains" "ap= ply" > + "-b" "config_bundles/linux_rooted" > + "-c" "/tmp/domainscache.tar.gz" chromium-dir) > + > + (with-directory-excursion chromium-dir > + (format #t "Pruning third party files...~%") > + (force-output) > + (apply invoke "python" > + "build/linux/unbundle/remove_bundled_librar= ies.py" > + "--do-remove" preserved-files) > + > + (format #t "Replacing GN files...~%") > + (force-output) > + (invoke "python3" "build/linux/unbundle/replace_gn_= files.py" > + "--system-libraries" "ffmpeg" "flac" "fontc= onfig" > + "freetype" "harfbuzz-ng" "icu" "libdrm" "li= bevent" > + "libjpeg" "libpng" "libvpx" "libwebp" "libx= ml" > + "libxslt" "openh264" "opus" "re2" "snappy" = "yasm" > + "zlib")) > + > + (format #t (string-append "Packing new Ungoogled tarb= all ...~%")) > + (force-output) > + (invoke "tar" "cvfa" #$output > + ;; Avoid non-determinism in the archive. > + "--mtime=3D@0" > + "--owner=3Droot:0" > + "--group=3Droot:0" > + "--sort=3Dname" > + chromium-dir) > + > + #t))))))))) > + > +(define opus+custom > + (package/inherit opus > + (name "opus+custom") > + (arguments > + (substitute-keyword-arguments (package-arguments opus) > + ((#:configure-flags flags ''()) > + ;; Opus Custom is an optional extension of the Opus > + ;; specification that allows for unsupported frame > + ;; sizes. Chromium requires that this is enabled. > + `(cons "--enable-custom-modes" > + ,flags)))))) > + > +(define libvpx/chromium > + ;; Chromium 66 and later requires an unreleased libvpx, so we take the > + ;; commit from "third_party/libvpx/README.chromium" in the tarball. > + (let ((version (package-version libvpx)) > + (commit "e188b5435de71bcd602c378f1ac0441111f0f915") > + (revision "0")) > + (package/inherit libvpx > + (name "libvpx-chromium") > + (version (git-version version revision commit)) > + (source (origin > + (method git-fetch) > + (uri (git-reference > + (url "https://chromium.googlesource.com/webm/libvp= x") > + (commit commit))) > + (file-name (git-file-name name version)) > + (sha256 > + (base32 > + "0v7lzvgy45zh7zwzmmzkvbcqmhs4xa97z0h97hd3j6myrxcfz1n9"= ))))))) > + > +;; Transitional package until HarfBuzz 2.2 is available in Guix master b= ranch. > +(define harfbuzz/chromium > + (package/inherit harfbuzz > + (version "2.2.0") > + (source (origin > + (inherit (package-source harfbuzz)) > + (uri (string-append "https://www.freedesktop.org/software/= harfbuzz" > + "/release/harfbuzz-" version ".tar.bz2= ")) > + (sha256 > + (base32 > + "047q63jr513azf3g1y7f5xn60b4jdjs9zsmrx04sfw5rasyzrk5p"))= )))) > + > +(define-public ungoogled-chromium > + (package > + (name "ungoogled-chromium") > + (version %chromium-version) > + (synopsis "Graphical web browser") > + (source ungoogled-chromium-source) > + (build-system gnu-build-system) > + (arguments > + `(#:tests? #f > + ;; FIXME: There is a "gn" option specifically for setting -rpath,= but > + ;; it overrides the RUNPATH set by the linker. > + #:validate-runpath? #f > + #:modules ((guix build gnu-build-system) > + (guix build utils) > + (ice-9 ftw) > + (ice-9 regex) > + (srfi srfi-26)) > + #:configure-flags > + ;; See tools/gn/docs/cookbook.md and > + ;; https://www.chromium.org/developers/gn-build-configuration > + ;; for usage. Run "./gn args . --list" in the Release > + ;; directory for an exhaustive list of supported flags. > + ;; (Note: The 'configure' phase will do that for you.) > + (list "is_debug=3Dfalse" > + "use_gold=3Dfalse" > + "use_lld=3Dfalse" > + "linux_use_bundled_binutils=3Dfalse" > + "use_custom_libcxx=3Dfalse" > + "use_sysroot=3Dfalse" > + "enable_precompiled_headers=3Dfalse" > + "goma_dir=3D\"\"" > + "enable_nacl=3Dfalse" > + "enable_nacl_nonsfi=3Dfalse" > + "use_allocator=3D\"none\"" ;don't use tcmalloc > + "use_unofficial_version_number=3Dfalse" > + > + ;; Define a custom toolchain that simply looks up CC, AR and > + ;; friends from the environment. > + "custom_toolchain=3D\"//build/toolchain/linux/unbundle:defa= ult\"" > + "host_toolchain=3D\"//build/toolchain/linux/unbundle:defaul= t\"" > + > + ;; Don't assume it's clang. > + "is_clang=3Dfalse" > + > + ;; Optimize for building everything at once, as opposed to > + ;; incrementally for development. See "docs/jumbo.md". > + "use_jumbo_build=3Dtrue" > + > + ;; Disable type-checking for the Web UI to avoid a Java dep= endency. > + "closure_compile=3Dfalse" > + > + ;; Disable debugging features to save space. > + "blink_symbol_level=3D0" > + "enable_iterator_debugging=3Dfalse" > + > + ;; Some of the unbundled libraries throws deprecation > + ;; warnings, etc. Ignore it. > + "treat_warnings_as_errors=3Dfalse" > + > + ;; Don't add any API keys. End users can set them in the > + ;; environment if desired. See > + ;; . > + "use_official_google_api_keys=3Dfalse" > + > + ;; Disable "safe browsing", which pulls in a dependency on > + ;; the nonfree "unrar" program (as of m66). > + "safe_browsing_mode=3D0" > + > + ;; Disable "field trials". > + "fieldtrial_testing_like_official_build=3Dtrue" > + > + ;; Ungoogled components. > + "enable_mdns=3Dfalse" > + "enable_one_click_signin=3Dfalse" > + "enable_reading_list=3Dfalse" > + "enable_remoting=3Dfalse" > + "enable_reporting=3Dfalse" > + "enable_service_discovery=3Dfalse" > + "enable_swiftshader=3Dfalse" > + "use_vaapi=3Dtrue" > + > + ;; Use system libraries where possible. > + "use_system_freetype=3Dtrue" > + "use_system_harfbuzz=3Dtrue" > + "use_system_lcms2=3Dtrue" > + "use_system_libdrm=3Dtrue" > + "use_system_libjpeg=3Dtrue" > + "use_system_libpng=3Dtrue" > + ;;"use_system_libsync=3Dtrue" > + "use_system_zlib=3Dtrue" > + > + "use_gnome_keyring=3Dfalse" ;deprecated by libsecret > + "use_openh264=3Dtrue" > + "use_pulseaudio=3Dtrue" > + "link_pulseaudio=3Dtrue" > + > + ;; Don't arbitrarily restrict formats supported by system f= fmpeg. > + "proprietary_codecs=3Dtrue" > + "ffmpeg_branding=3D\"Chrome\"" > + > + ;; WebRTC stuff. > + "rtc_use_h264=3Dtrue" > + ;; Don't use bundled sources. > + "rtc_build_json=3Dfalse" > + "rtc_build_libevent=3Dfalse" > + "rtc_build_libvpx=3Dfalse" > + "rtc_build_opus=3Dfalse" > + "rtc_build_ssl=3Dfalse" > + > + "rtc_build_libsrtp=3Dtrue" ;FIXME: fails to find headers > + "rtc_build_usrsctp=3Dtrue" ;TODO: package this > + (string-append "rtc_jsoncpp_root=3D\"" > + (assoc-ref %build-inputs "jsoncpp") > + "/include/jsoncpp/json\"") > + (string-append "rtc_ssl_root=3D\"" > + (assoc-ref %build-inputs "openssl") > + "/include/openssl\"")) > + #:phases > + (modify-phases %standard-phases > + (add-after 'unpack 'patch-stuff > + (lambda* (#:key inputs #:allow-other-keys) > + (substitute* "printing/cups_config_helper.py" > + (("cups_config =3D.*") > + (string-append "cups_config =3D '" (assoc-ref inputs "cu= ps") > + "/bin/cups-config'\n"))) > + > + (substitute* > + '("base/process/launch_posix.cc" > + "base/third_party/dynamic_annotations/dynamic_annotat= ions.c" > + "sandbox/linux/seccomp-bpf/sandbox_bpf.cc" > + "sandbox/linux/services/credentials.cc" > + "sandbox/linux/services/namespace_utils.cc" > + "sandbox/linux/services/syscall_wrappers.cc" > + "sandbox/linux/syscall_broker/broker_host.cc") > + (("include \"base/third_party/valgrind/") "include \"valg= rind/")) > + > + (for-each (lambda (file) > + (substitute* file > + ;; Fix opus include path. > + ;; Do not substitute opus_private.h. > + (("#include \"opus\\.h\"") > + "#include \"opus/opus.h\"") > + (("#include \"opus_custom\\.h\"") > + "#include \"opus/opus_custom.h\"") > + (("#include \"opus_defines\\.h\"") > + "#include \"opus/opus_defines.h\"") > + (("#include \"opus_multistream\\.h\"") > + "#include \"opus/opus_multistream.h\"") > + (("#include \"opus_types\\.h\"") > + "#include \"opus/opus_types.h\""))) > + (find-files (string-append "third_party/webrtc/mo= dules" > + "/audio_coding/codecs/= opus"))) > + > + (substitute* "chrome/common/chrome_paths.cc" > + (("/usr/share/chromium/extensions") > + ;; TODO: Add ~/.guix-profile. > + "/run/current-system/profile/share/chromium/extensions")) > + > + ;; XXX: Should be unnecessary when use_system_lcms2=3Dtrue. > + (substitute* "third_party/pdfium/core/fxcodec/codec/ccodec_= iccmodule.h" > + (("include \"third_party/lcms/include/lcms2\\.h\"") > + "include \"lcms2.h\"")) > + > + (substitute* > + "third_party/breakpad/breakpad/src/common/linux/libcurl= _wrapper.h" > + (("include \"third_party/curl") "include \"curl")) > + > + (substitute* "third_party/webrtc/rtc_base/strings/json.h" > + (("#include \"third_party/jsoncpp/") "#include \"json/")) > + > + (substitute* "media/base/decode_capabilities.cc" > + (("third_party/libvpx/source/libvpx/") "")) > + > + (substitute* "ui/gfx/skia_util.h" > + (("third_party/vulkan/include/") "")) > + > + ;; Building chromedriver embeds some files using the ZIP > + ;; format which doesn't support timestamps before > + ;; 1980. Therefore, advance the timestamps of the files > + ;; which are included so that building chromedriver > + ;; works. > + (let ((circa-1980 (* 10 366 24 60 60))) > + (for-each (lambda (file) > + (utime file circa-1980 circa-1980)) > + '("chrome/test/chromedriver/extension/backgroun= d.js" > + "chrome/test/chromedriver/extension/manifest.= json"))) > + > + #t)) > + (add-before 'configure 'prepare-build-environment > + (lambda* (#:key inputs #:allow-other-keys) > + > + ;; Make sure the right build tools are used. > + (setenv "AR" "ar") (setenv "NM" "nm") > + (setenv "CC" "gcc") (setenv "CXX" "g++") > + > + ;; Work around . > + (unsetenv "C_INCLUDE_PATH") > + (unsetenv "CPLUS_INCLUDE_PATH") > + > + ;; TODO: pre-compile instead. Avoids a race condition. > + (setenv "PYTHONDONTWRITEBYTECODE" "1") > + > + ;; XXX: How portable is this. > + (mkdir-p "third_party/node/linux/node-linux-x64") > + (symlink (string-append (assoc-ref inputs "node") "/bin") > + "third_party/node/linux/node-linux-x64/bin") > + > + #t)) > + (replace 'configure > + (lambda* (#:key configure-flags #:allow-other-keys) > + (let ((args (string-join configure-flags " "))) > + ;; Generate ninja build files. > + (invoke "gn" "gen" "out/Release" > + (string-append "--args=3D" args)) > + > + ;; Print the full list of supported arguments as well as > + ;; their current status for convenience. > + (format #t "Dumping configure flags...\n") > + (invoke "gn" "args" "out/Release" "--list")))) > + (replace 'build > + (lambda* (#:key outputs #:allow-other-keys) > + (invoke "ninja" "-C" "out/Release" > + "-j" (number->string (parallel-job-count)) > + "chrome" > + "chromedriver"))) > + (replace 'install > + (lambda* (#:key inputs outputs #:allow-other-keys) > + (let* ((out (assoc-ref outputs "out")) > + (bin (string-append out "/bin")) > + (exe (string-append bin "/chromium")) > + (lib (string-append out "/lib")) > + (man (string-append out "/share/man/man1"= )) > + (applications (string-append out "/share/applicati= ons")) > + (install-regexp (make-regexp "\\.(bin|pak)$")) > + (locales (string-append lib "/locales")) > + (resources (string-append lib "/resources")) > + (preferences (assoc-ref inputs "master-preference= s")) > + (gtk+ (assoc-ref inputs "gtk+")) > + (mesa (assoc-ref inputs "mesa")) > + (nss (assoc-ref inputs "nss")) > + (udev (assoc-ref inputs "udev")) > + (sh (which "sh"))) > + > + (substitute* '("chrome/app/resources/manpage.1.in" > + "chrome/installer/linux/common/desktop.tem= plate") > + (("@@MENUNAME@@") "Chromium") > + (("@@PACKAGE@@") "chromium") > + (("/usr/bin/@@USR_BIN_SYMLINK_NAME@@") exe)) > + > + (mkdir-p man) > + (copy-file "chrome/app/resources/manpage.1.in" > + (string-append man "/chromium.1")) > + > + (mkdir-p applications) > + (copy-file "chrome/installer/linux/common/desktop.templat= e" > + (string-append applications "/chromium.desktop= ")) > + > + (mkdir-p lib) > + (copy-file preferences (string-append lib "/master_prefer= ences")) > + > + (with-directory-excursion "out/Release" > + (for-each (lambda (file) > + (install-file file lib)) > + (scandir "." (cut regexp-exec install-regexp = <>))) > + (copy-file "chrome" (string-append lib "/chromium")) > + > + ;; TODO: Install icons from "../../chrome/app/themes" i= nto > + ;; "out/share/icons/hicolor/$size". > + (install-file > + "product_logo_48.png" > + (string-append out "/share/icons/48x48/chromium.png")) > + > + (copy-recursively "locales" locales) > + (copy-recursively "resources" resources) > + > + (mkdir-p bin) > + (symlink "../lib/chromium" exe) > + (install-file "chromedriver" bin) > + > + (wrap-program exe > + ;; TODO: Get these in RUNPATH. > + `("LD_LIBRARY_PATH" ":" prefix > + (,(string-append lib ":" nss "/lib/nss:" gtk+ "/lib= :" > + mesa "/lib:" udev "/lib"))) > + ;; Avoid file manager crash. See . > + `("XDG_DATA_DIRS" ":" prefix (,(string-append gtk+ "/= share")))) > + #t))))))) > + (native-inputs > + `(("bison" ,bison) > + ("gcc" ,gcc-8) > + ("gn" ,gn) > + ("gperf" ,gperf) > + ("ninja" ,ninja) > + ("node" ,node) > + ("pkg-config" ,pkg-config) > + ("which" ,which) > + ("yasm" ,yasm) > + > + ;; This file contains defaults for new user profiles. > + ("master-preferences" ,(local-file "aux-files/chromium/master-pre= ferences.json")) > + > + ("python-beautifulsoup4" ,python2-beautifulsoup4) > + ("python-html5lib" ,python2-html5lib) > + ("python" ,python-2))) > + (inputs > + `(("alsa-lib" ,alsa-lib) > + ("atk" ,atk) > + ("cups" ,cups) > + ("curl" ,curl) > + ("dbus" ,dbus) > + ("dbus-glib" ,dbus-glib) > + ("expat" ,expat) > + ("flac" ,flac) > + ("ffmpeg" ,ffmpeg) > + ("fontconfig" ,fontconfig) > + ("freetype" ,freetype) > + ("gdk-pixbuf" ,gdk-pixbuf) > + ("glib" ,glib) > + ("gtk+" ,gtk+) > + ("harfbuzz" ,harfbuzz/chromium) > + ("icu4c" ,icu4c) > + ("jsoncpp" ,jsoncpp) > + ("lcms" ,lcms) > + ("libevent" ,libevent) > + ("libffi" ,libffi) > + ("libjpeg-turbo" ,libjpeg-turbo) > + ("libpng" ,libpng) > + ("libva" ,libva) > + ("libvpx" ,libvpx/chromium) > + ("libwebp" ,libwebp) > + ("libx11" ,libx11) > + ("libxcb" ,libxcb) > + ("libxcomposite" ,libxcomposite) > + ("libxcursor" ,libxcursor) > + ("libxdamage" ,libxdamage) > + ("libxext" ,libxext) > + ("libxfixes" ,libxfixes) > + ("libxi" ,libxi) > + ("libxml2" ,libxml2) > + ("libxrandr" ,libxrandr) > + ("libxrender" ,libxrender) > + ("libxscrnsaver" ,libxscrnsaver) > + ("libxslt" ,libxslt) > + ("libxtst" ,libxtst) > + ("mesa" ,mesa) > + ("minizip" ,minizip) > + ("mit-krb5" ,mit-krb5) > + ("nss" ,nss) > + ("openh264" ,openh264) > + ("openjpeg" ,openjpeg) ;PDFium only > + ("openssl" ,openssl) > + ("opus" ,opus+custom) > + ("pango" ,pango) > + ("pciutils" ,pciutils) > + ("pulseaudio" ,pulseaudio) > + ("re2" ,re2) > + ("snappy" ,snappy) > + ("speech-dispatcher" ,speech-dispatcher) > + ("udev" ,eudev) > + ("valgrind" ,valgrind) > + ("vulkan-headers" ,vulkan-headers))) > + (home-page "https://www.chromium.org/") > + (description > + "Ungoogled-Chromium is the Chromium web browser, sans integration w= ith > +Google web services.") > + ;; Chromium is developed as BSD-3, but bundles a large number of thi= rd-party > + ;; components with other licenses. For full information, see chrome= ://credits. > + (license (list license:bsd-3 > + license:bsd-2 > + license:expat > + license:asl2.0 > + license:mpl1.1 > + license:mpl2.0 > + license:public-domain > + license:isc > + (license:non-copyleft "chrome://credits" > + "See chrome://credits for more = information.") > + license:lgpl2.1+)))) -- Joshua Branson Sent from Emacs and Gnus