;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2019, 2020, 2021 Marius Bakke ;;; Copyright © 2019 Alex Griffin ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages chromium) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix gexp) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix utils) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) #:use-module (gnu packages) #:use-module (gnu packages assembly) #:use-module (gnu packages base) #:use-module (gnu packages bash) #: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 freedesktop) #:use-module (gnu packages ghostscript) #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #: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 llvm) #:use-module (gnu packages kerberos) #:use-module (gnu packages ninja) #:use-module (gnu packages node) #:use-module (gnu packages nss) #:use-module (gnu packages pciutils) #:use-module (gnu packages pkg-config) #:use-module (gnu packages protobuf) #: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 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) #:use-module (ice-9 match) #:use-module (srfi srfi-1)) (define %preserved-third-party-files '("base/third_party/cityhash" ;Expat "base/third_party/double_conversion" ;BSD-3 "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.0+ or Academic 2.0 "base/third_party/xdg_user_dirs" ;Expat ;; XXX: Chromium requires a newer C++ standard library. Remove this when ;; the default GCC is 9 or later. "buildtools/third_party/libc++" ;ASL2.0, with LLVM exceptions "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/mozilla_security_manager" ;MPL-1.1/GPL2+/LGPL2.1+ "net/third_party/nss" ;MPL-2.0 "net/third_party/quiche" ;BSD-3 "net-rw-r--r--gnu/local.mk1

-rw-r--r--gnu/packages/mail.scm44

-rw-r--r--gnu/packages/patches/m4-gets-undeclared.patch45

3 files changed, 31 insertions, 59 deletions

, just remove everything to save ~70MiB. '("third_party/blink/perf_tests")) (define* (debian-patch name hash #:optional (revision %debian-revision)) (origin (method url-fetch) (uri (string-append "https://salsa.debian.org/chromium-team/chromium/-/raw/" revision "/debian/patches/" name)) (file-name (match (string-split name #\/) ((category name) (string-append "ungoogled-chromium-" category "-" name)))) (sha256 (base32 hash)))) (define %chromium-version "91.0.4472.114") (define %debian-revision "debian/90.0.4430.85-1") ;; Note: use 'git describe --long' even for exact tags to placate the ;; custom version format for ungoogled-chromium. (define %ungoogled-revision "91.0.4472.114-1-0-ga9eb6fd") (define %debian-patches (list (debian-patch "fixes/nomerge.patch" "0lybs2b5gk08j8cr6vjrs9d3drd7qfw013z2r0y00by8dnpm74i3") (debian-patch "system/nspr.patch" "1gdirn1k1i841l8zp8xgr95kl16b5nx827am9rcxj8sfkm8hgkn3") (debian-patch "system/zlib.patch" "0j313bd3q8qc065j60x97dckrfgbwl4qxc8jhz33iihvv4lwziwv") (debian-patch "system/openjpeg.patch" "048405xh84pys0kky81vlqhaxjyxvcql4py217z01qxiv991zxaj"))) (define %ungoogled-origin (origin (method git-fetch) (uri (git-reference (url "https://github.com/Eloston/ungoogled-chromium") (commit %ungoogled-revision))) (file-name (git-file-name "ungoogled-chromium" %ungoogled-revision)) (sha256 (base32 "1xb5g3hybaiwn3y1zw1fxd3g0zwmvplrs06sdqnxzsr1qm8b874h")))) (define %guix-patches (list (local-file (assume-valid-file-name (search-patch "ungoogled-chromium-extension-search-path.patch"))))) ;; This is a source 'snippet' that does the following: ;; *) Applies various patches for unbundling purposes and libstdc++ compatibility. ;; *) Runs the ungoogled patch-, domain substitution-, and scrubbing scripts. ;; *) Prunes all third_party directories that are not explicitly preserved. ;; *) Adjusts "GN" build files such that system libraries are preferred. (define ungoogled-chromium-snippet ;; Note: delay to cope with cyclic module imports at the top level. (delay #~(begin (let ((chromium-dir (getcwd))) (set-path-environment-variable "PATH" '("bin") (list #+patch #+python-wrapper #+xz)) ;; Apply patches before running the ungoogled scripts because ;; domain substitution may break some of the patches. (format #t "Applying assorted build fixes...~%") (force-output) (for-each (lambda (patch) (invoke "patch" "-p1" "--force" "--input" patch "--no-backup-if-mismatch")) (append '#+%debian-patches '#+%guix-patches)) (with-directory-excursion #+%ungoogled-origin (format #t "Ungooglifying...~%") (force-output) (invoke "python" "utils/prune_binaries.py" chromium-dir "pruning.list") (invoke "python" "utils/patches.py" "apply" chromium-dir "patches") (invoke "python" "utils/domain_substitution.py" "apply" "-r" "domain_regex.list" "-f" "domain_substitution.list" "-c" "/tmp/domainscache.tar.gz" chromium-dir)) ;; Run after the ungoogled scripts to avoid interfering with ;; patches or file lists. (format #t "Removing blacklisted files...~%") (force-output) (for-each delete-file-recursively '#$%blacklisted-files) (format #t "Pruning third party files...~%") (force-output) (apply invoke (string-append #+python-2 "/bin/python") "build/linux/unbundle/remove_bundled_libraries.py" "--do-remove" '#$%preserved-third-party-files) (format #t "Replacing GN files...~%") (force-output) ;; XXX: Chromium no longer relies on overriding ICU's UCHAR_TYPE, ;; but the unbundling code was not updated. Remove for M92. (substitute* "build/linux/unbundle/icu.gn" (("\"UCHAR_TYPE=uint16_t\",") "")) (substitute* "tools/generate_shim_headers/generate_shim_headers.py" ;; The "is_official_build" configure option enables certain ;; release optimizations like those used in the commercial ;; Chrome browser. Unfortunately it also requires using the ;; bundled libraries: lose that restriction. (("#if defined\$OFFICIAL_BUILD\$") "#if 0")) (invoke "python" "build/linux/unbundle/replace_gn_files.py" "--system-libraries" "ffmpeg" "flac" "fontconfig" "freetype" "harfbuzz-ng" "icu" "libdrm" "libevent" "libjpeg" "libpng" "libwebp" "libxml" "libxslt" "openh264" "opus" "snappy" "zlib") #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)))))) ;; WebRTC in Chromium 88 requires an unreleased version of libvpx. Use the ;; commit mentioned in "third_party/libvpx/README.chromium". (define libvpx/chromium (package (inherit libvpx) (version "1.9.0-147-g61edec1ef") (source (origin (inherit (package-source libvpx)) (uri (git-reference (url "https://chromium.googlesource.com/webm/libvpx") (commit (string-append "v" version)))) (file-name (git-file-name "libvpx" version)) (sha256 (base32 "0mw13y7j2lg8jj3alm9367c3b40b6s218fdz3nn1m2k85c78wzr7")))))) ;; 'make-ld-wrapper' can only work with an 'ld' executable, so we need ;; this trick to make it wrap 'lld'. (define (make-lld-wrapper lld) (define lld-as-ld (computed-file "lld-ld" #~(begin (mkdir #$output) (mkdir (string-append #$output "/bin")) (symlink #$(file-append lld "/bin/lld") (string-append #$output "/bin/ld"))))) ;; Create a wrapper for LLD that inserts appropriate -rpath entries. (define lld-wrapper (make-ld-wrapper "lld-wrapper" #:binutils lld-as-ld)) ;; Clang looks for an 'ld.lld' executable, so we need to symlink it back. (computed-file "lld-wrapped" #~(begin (mkdir #$output) (mkdir (string-append #$output "/bin")) (symlink #$(file-append lld-wrapper "/bin/ld") (string-append #$output "/bin/lld")) (symlink "lld" (string-append #$output "/bin/ld.lld"))))) (define-public ungoogled-chromium (package (name "ungoogled-chromium") (version (string-append %chromium-version "-0." (match (string-split %ungoogled-revision #\-) ((version revision commits g+short) (string-drop g+short 1))))) (synopsis "Graphical web browser") (source (origin (method url-fetch) (uri (string-append "https://commondatastorage.googleapis.com" "/chromium-browser-official/chromium-" %chromium-version ".tar.xz")) (sha256 (base32 "0wbyiwbdazgjjgj9vs56x26q3g9r80a57gfl0f2rfl1j7xwgxiy1")) (modules '((guix build utils))) (snippet (force ungoogled-chromium-snippet)))) (build-system gnu-build-system) (arguments `(#:tests? #f ;; FIXME: Chromiums RUNPATH lacks entries for some libraries. #:validate-runpath? #f #:modules ((guix build gnu-build-system) (guix build utils) (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=false" ;; Use the "official" release optimizations, as opposed to ;; a developer build. "is_official_build=true" "clang_use_chrome_plugins=false" "chrome_pgo_phase=0" "use_sysroot=false" "goma_dir=\"\"" "enable_nacl=false" "enable_nacl_nonsfi=false" "use_unofficial_version_number=false" "treat_warnings_as_errors=false" "use_official_google_api_keys=false" "fieldtrial_testing_like_official_build=true" "safe_browsing_mode=0" "enable_mdns=false" "enable_one_click_signin=false" "enable_reading_list=false" "enable_remoting=false" "enable_reporting=false" "enable_service_discovery=false" "enable_vr=false" "enable_widevine=false" ;; Disable type-checking for the Web UI to avoid a Java dependency. "enable_js_type_check=false" ;; Disable code using TensorFlow until it has been scrutinized ;; by the ungoogled project. "build_with_tflite_lib=false" ;; Define a custom toolchain that simply looks up CC, AR and ;; friends from the environment. "custom_toolchain=\"//build/toolchain/linux/unbundle:default\"" "host_toolchain=\"//build/toolchain/linux/unbundle:default\"" ;; Prefer system libraries. "use_system_freetype=true" "use_system_harfbuzz=true" "use_system_lcms2=true" "use_system_libdrm=true" "use_system_libjpeg=true" "use_system_libopenjpeg2=true" "use_system_libpng=true" "use_system_wayland_scanner=true" (string-append "system_wayland_scanner_path=\"" (assoc-ref %build-inputs "wayland-scanner") "/bin/wayland-scanner\"") "use_system_zlib=true" "use_gnome_keyring=false" ;deprecated by libsecret "use_pulseaudio=true" "link_pulseaudio=true" "icu_use_data_file=false" ;; FIXME: Using system protobuf with "is_official_build" causes an ;; invalid opcode and "protoc-gen-plugin: Plugin killed by signal 4". ;;"perfetto_use_system_protobuf=true" ;; VA-API acceleration is currently only supported on x86_64-linux. ,@(if (string-prefix? "x86_64" (or (%current-target-system) (%current-system))) '("use_vaapi=true") '()) "media_use_ffmpeg=true" "media_use_libvpx=true" "media_use_openh264=true" ;; Do not artifically restrict formats supported by system ffmpeg. "proprietary_codecs=true" "ffmpeg_branding=\"Chrome\"" ;; WebRTC stuff. "rtc_use_h264=true" "rtc_use_pipewire=true" "rtc_link_pipewire=true" "rtc_pipewire_version=\"0.3\"" ;; Don't use bundled sources. "rtc_build_json=true" ;FIXME: libc++ std::string ABI difference "rtc_build_libevent=false" "rtc_build_libvpx=false" "rtc_build_opus=false" "rtc_build_libsrtp=true" ;FIXME: fails to find headers "rtc_build_usrsctp=true" ;TODO: package this "rtc_build_ssl=true") ;XXX: the bundled BoringSSL is required? #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-stuff (lambda* (#:key inputs #:allow-other-keys) (let ((openjpeg (assoc-ref inputs "openjpeg"))) (substitute* "third_party/pdfium/BUILD.gn" ;; This include path is added by Debians openjpeg patch. (("/usr/include/openjpeg") (string-append openjpeg "/include/openjpeg")))) (substitute* '("base/process/launch_posix.cc" "base/third_party/dynamic_annotations/dynamic_annotations.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 \"valgrind/")) (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/modules" "/audio_coding/codecs/opus"))) ;; Many files try to include ICU headers from "third_party/icu/...". ;; Remove the "third_party/" prefix to use system headers instead. (substitute* (find-files "chrome" "\\.cc$") (("third_party/icu/source/(common|i18n)/") "")) ;; XXX: Should be unnecessary when use_system_lcms2=true. (substitute* "third_party/pdfium/core/fxcodec/icc/iccmodule.h" (("include \"third_party/lcms/include/lcms2\\.h\"") "include \"lcms2.h\"")) ;; Add missing include statement. (substitute* "third_party/pdfium/core/fxcodec/png/png_decoder.cpp" (("#include \"core/fxcodec/fx_codec.h\"" all) (string-append all "\n#include \"core/fxcodec/fx_codec_def.h\""))) (substitute* "third_party/breakpad/breakpad/src/common/linux/libcurl_wrapper.h" (("include \"third_party/curl") "include \"curl")) (substitute* '("components/viz/common/gpu/vulkan_context_provider.h" "components/viz/common/resources/resource_format_utils.h" "gpu/config/gpu_util.cc") (("third_party/vulkan_headers/include/") "")) (substitute* "third_party/skia/include/gpu/vk/GrVkVulkan.h" (("include/third_party/vulkan/") "")) #t)) (add-after 'patch-stuff 'add-absolute-references (lambda* (#:key inputs #:allow-other-keys) (let ((cups (assoc-ref inputs "cups")) (nss (assoc-ref inputs "nss")) (mesa (assoc-ref inputs "mesa")) (udev (assoc-ref inputs "udev"))) (substitute* "printing/cups_config_helper.py" (("cups_config =.*") (string-append "cups_config = '" cups "/bin/cups-config'\n"))) (substitute* "crypto/nss_util.cc" (("libnssckbi\\.so") (string-append nss "/lib/nss/libnssckbi.so"))) (substitute* "device/udev_linux/udev1_loader.cc" (("libudev\\.so\\.1") (string-append udev "/lib/libudev.so.1"))) (substitute* '("ui/ozone/platform/x11/gl_ozone_glx.cc" "ui/ozone/common/egl_util.cc" "ui/gl/init/gl_initializer_linux_x11.cc" "third_party/angle/src/libANGLE/renderer/gl/glx/FunctionsGLX.cpp") (("libGL\\.so\\.1") (string-append mesa "/lib/libGL.so.1")) (("libEGL\\.so\\.1") (string-append mesa "/lib/libEGL.so.1")) (("libGLESv2\\.so\\.2") (string-append mesa "/lib/libGLESv2.so.2"))) #t))) (add-before 'configure 'prepare-build-environment (lambda* (#:key inputs #:allow-other-keys) ;; Define the GN toolchain. (setenv "AR" "llvm-ar") (setenv "NM" "llvm-nm") (setenv "CC" "clang") (setenv "CXX" "clang++") (let ((gcc (assoc-ref inputs "gcc"))) ;; Remove the default compiler from CPLUS_INCLUDE_PATH to ;; prevent header conflict with the bundled libcxx. (setenv "CPLUS_INCLUDE_PATH" (string-join (delete (string-append gcc "/include/c++") (string-split (getenv "CPLUS_INCLUDE_PATH") #\:)) ":")) (format #t "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%" (getenv "CPLUS_INCLUDE_PATH"))) (setenv "CXXFLAGS" (string-join '(;; Do not optimize away null pointer safety checks. "-fno-delete-null-pointer-checks" ;; Disable warnings about unknown warnings that require ;; Clang plugins or newer versions. "-Wno-unknown-warning-option"))) (setenv "CFLAGS" "-Wno-unknown-warning-option") ;; 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=" 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")))) (add-before 'build 'increase-resource-limits (lambda _ ;; XXX: Chromiums linking step requires a lot of simultaneous file ;; accesses. Having a too low ulimit will result in bogus linker ;; errors such as "foo.a: error adding symbols: malformed archive". ;; Try increasing the soft resource limit of max open files to 2048, ;; or equal to the hard limit, whichever is lower. (call-with-values (lambda () (getrlimit 'nofile)) (lambda (soft hard) (when (and soft (< soft 2048)) (if hard (setrlimit 'nofile (min hard 2048) hard) (setrlimit 'nofile 2048 #f)) (format #t "increased maximum number of open files from ~d to ~d~%" soft (if hard (min hard 2048) 2048))))) #t)) (replace 'build (lambda* (#:key (parallel-build? #t) #:allow-other-keys) (invoke "ninja" "-C" "out/Release" "-j" (if parallel-build? (number->string (parallel-job-count)) "1") "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/applications")) (libs '("chrome_100_percent.pak" "chrome_200_percent.pak" "resources.pak" "v8_context_snapshot.bin" ;; Chromium ships its own libGL ;; implementation called ANGLE. "libEGL.so" "libGLESv2.so")) (locales (string-append lib "/locales")) (resources (string-append lib "/resources")) (preferences (assoc-ref inputs "master-preferences")) (gtk+ (assoc-ref inputs "gtk+")) (xdg-utils (assoc-ref inputs "xdg-utils")) (sh (which "sh"))) (substitute* '("chrome/app/resources/manpage.1.in" "chrome/installer/linux/common/desktop.template") (("@@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.template" (string-append applications "/chromium.desktop")) (mkdir-p lib) (copy-file preferences (string-append lib "/master_preferences")) (with-directory-excursion "out/Release" (for-each (cut install-file <> lib) libs) (copy-file "chrome" (string-append lib "/chromium")) (copy-recursively "locales" locales) (copy-recursively "resources" resources) (mkdir-p bin) (symlink "../lib/chromium" exe) (install-file "chromedriver" bin) (for-each (lambda (so) (install-file so (string-append lib "/swiftshader"))) (find-files "swiftshader" "\\.so$")) (wrap-program exe ;; Avoid file manager crash. See . `("XDG_DATA_DIRS" ":" prefix (,(string-append gtk+ "/share"))) `("PATH" ":" prefix (,(string-append xdg-utils "/bin"))))) (with-directory-excursion "chrome/app/theme/chromium" (for-each (lambda (size) (let ((icons (string-append out "/share/icons/hicolor/" size "x" size "/apps"))) (mkdir-p icons) (copy-file (string-append "product_logo_" size ".png") (string-append icons "/chromium.png")))) '("24" "48" "64" "128" "256"))) #t)))))) (native-inputs `(("bison" ,bison) ("clang" ,clang-11) ("gn" ,gn) ("gperf" ,gperf) ("ld-wrapper" ,(make-lld-wrapper lld)) ("ninja" ,ninja) ("node" ,node) ("pkg-config" ,pkg-config) ("which" ,which) ;; This file contains defaults for new user profiles. ("master-preferences" ,(local-file "aux-files/chromium/master-preferences.json")) ("python-beautifulsoup4" ,python2-beautifulsoup4) ("python-html5lib" ,python2-html5lib) ("python" ,python-2) ("wayland-scanner" ,wayland))) (inputs `(("alsa-lib" ,alsa-lib) ("atk" ,atk) ("cups" ,cups) ("curl" ,curl) ("dbus" ,dbus) ("expat" ,expat) ("flac" ,flac) ("ffmpeg" ,ffmpeg) ("fontconfig" ,fontconfig) ("freetype" ,freetype) ("gdk-pixbuf" ,gdk-pixbuf) ("glib" ,glib) ("gtk+" ,gtk+) ("harfbuzz" ,harfbuzz) ("icu4c" ,icu4c-69) ("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 ("opus" ,opus+custom) ("pango" ,pango) ("pciutils" ,pciutils) ("pipewire" ,pipewire-0.3) ("pulseaudio" ,pulseaudio) ("snappy" ,snappy) ("speech-dispatcher" ,speech-dispatcher) ("udev" ,eudev) ("valgrind" ,valgrind) ("vulkan-headers" ,vulkan-headers) ("wayland" ,wayland) ("xdg-utils" ,xdg-utils))) (native-search-paths (list (search-path-specification (variable "CHROMIUM_EXTENSION_DIRECTORY") (separator #f) ;single entry (files '("share/chromium/extensions"))))) ;; Building Chromium takes ... a very long time. On a single core, a busy ;; mid-end x86 system may need more than 24 hours to complete the build. (properties '((timeout . 144000) ;40 hours ;; The linking step may take more than an hour on some hardware. (max-silent-time . 7200) (cpe-name . "chrome"))) (home-page "https://github.com/Eloston/ungoogled-chromium") (description "Ungoogled-Chromium is the Chromium web browser, with some functionality disabled in order to protect the users privacy.") ;; Chromium is developed as BSD-3, but bundles a large number of third-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+)))) (define-public ungoogled-chromium/wayland (package (inherit ungoogled-chromium) (name "ungoogled-chromium-wayland") (native-inputs '()) (inputs `(("bash" ,bash-minimal) ("glibc-locales" ,glibc-utf8-locales) ("ungoogled-chromium" ,ungoogled-chromium))) (build-system trivial-build-system) (arguments '(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils)) (let* ((bash (assoc-ref %build-inputs "bash")) (chromium (assoc-ref %build-inputs "ungoogled-chromium")) (locales (assoc-ref %build-inputs "glibc-locales")) (out (assoc-ref %outputs "out")) (exe (string-append out "/bin/chromium"))) ;; Use a Unicode locale so we can substitute the file below. (setenv "GUIX_LOCPATH" (string-append locales "/lib/locale")) (setlocale LC_ALL "en_US.utf8") (mkdir-p (dirname exe)) (symlink (string-append chromium "/bin/chromedriver") (string-append out "/bin/chromedriver")) (call-with-output-file exe (lambda (port) (format port "#!~a exec ~a --enable-features=UseOzonePlatform --ozone-platform=wayland $@" (string-append bash "/bin/bash") (string-append chromium "/bin/chromium")))) (chmod exe #o555) ;; Provide the manual and .desktop file. (copy-recursively (string-append chromium "/share") (string-append out "/share")) (substitute* (string-append out "/share/applications/chromium.desktop") ((chromium) out)) #t))))))