;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; Copyright © 2022, 2023 Giacomo Leidi ;;; Copyright © 2022 Mathieu Othacehe ;;; Copyright © 2022 Jonathan Brielmaier (define-module (nongnu packages chrome) #:use-module (gnu packages base) #:use-module (gnu packages compression) #:use-module (gnu packages curl) #:use-module (gnu packages fonts) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gl) #:use-module (gnu packages gtk) #:use-module (gnu packages image) #:use-module (gnu packages linux) #:use-module (gnu packages pciutils) #:use-module (gnu packages photo) #:use-module (gnu packages qt) #:use-module (gnu packages video) #:use-module (gnu packages wget) #:use-module (gnu packages xiph) #:use-module (gnu packages xorg) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix build-system gnu) #:use-module (nonguix build-system chromium-binary) #:use-module (nonguix licenses) #:use-module (ice-9 string-fun)) (define-public (make-google-chrome repo version hash) (let* ((name (string-append "google-chrome-" repo)) (appname (if (string=? repo "stable") "chrome" (string-replace-substring name "google-" "")))) (package (name name) (version version) (source (origin (method url-fetch) (uri (string-append "https://dl.google.com/linux/chrome/deb/pool/main/g/" name "/" name "_" version "-1_amd64.deb")) (sha256 (base32 hash)))) (build-system chromium-binary-build-system) (arguments (list ;; almost 300MB, faster to download and build from Google servers #:substitutable? #f #:wrapper-plan #~(let ((path (string-append "opt/google/" #$appname "/"))) (map (lambda (file) (string-append path file)) '("chrome" "chrome-sandbox" "chrome_crashpad_handler" "libEGL.so" "libGLESv2.so" "liboptimization_guide_internal.so" "libqt5_shim.so" "libqt6_shim.so" "libvk_swiftshader.so" "libvulkan.so.1" "WidevineCdm/_platform_specific/linux_x64/libwidevinecdm.so" #$@(if (string=? repo "stable") '("nacl_helper") '())))) #:install-plan #~'(("opt/" "/share") ("usr/share/" "/share")) #:phases #~(modify-phases %standard-phases (add-before 'install 'patch-assets ;; Many thanks to ;; https://github.com/NixOS/nixpkgs/blob/master/pkgs/applications/networking/browsers/google-chrome/default.nix (lambda _ (let* ((bin (string-append #$output "/bin")) (share (string-append #$output "/share")) (opt "./opt") (usr/share "./usr/share") (old-exe (string-append "/opt/google/" #$appname "/google-" #$appname)) (exe (string-append bin "/google-" #$appname))) ;; This allows us to override CHROME_WRAPPER later. (substitute* (string-append opt "/google/" #$appname "/google-" #$appname) (("CHROME_WRAPPER") "WRAPPER")) (substitute* (string-append usr/share "/applications/google-" #$appname ".desktop") (("^Exec=.*") (string-append "Exec=" exe "\n"))) (substitute* (string-append usr/share "/gnome-control-center/default-apps/google-" #$appname ".xml") ((old-exe) exe)) (substitute* (string-append usr/share "/menu/google-" #$appname ".menu") (("/opt") share) ((old-exe) exe))))) (add-after 'install 'install-icons (lambda _ (define (format-icon-size name) (car (string-split (string-drop-right (string-drop name 13) 4) #\_))) (let ((icons (string-append #$output "/share/icons/hicolor")) (share (string-append #$output "/share/google/" #$appname))) (for-each (lambda (icon) (let* ((icon-name (basename icon)) (icon-size (format-icon-size icon-name)) (target (string-append icons "/" icon-size "x" icon-size "/apps/google-" #$appname ".png"))) (mkdir-p (dirname target)) (rename-file icon target))) (find-files share "product_logo_.*\\.png"))))) (add-before 'install-wrapper 'install-exe (lambda _ (let* ((bin (string-append #$output "/bin")) (exe (string-append bin "/google-" #$appname)) (share (string-append #$output "/share")) (chrome-target (string-append share "/google/" #$appname "/google-" #$appname))) (mkdir-p bin) (symlink chrome-target exe) (wrap-program exe '("CHROME_WRAPPER" = (#$appname))))))))) (inputs (list bzip2 curl flac font-liberation gdk-pixbuf harfbuzz libexif libglvnd libpng libva libxscrnsaver opus pciutils pipewire qtbase-5 qtbase snappy util-linux xdg-utils wget)) (synopsis "Freeware web browser") (supported-systems '("x86_64-linux")) (description "Google Chrome is a cross-platform web browser developed by Google.") (home-page "https://www.google.com/chrome/") (license (nonfree "https://www.google.com/intl/en/chrome/terms/"))))) (define-public google-chrome-stable (make-google-chrome "stable" "121.0.6167.139" "1b08wqflp1j5yqpw2g9z2s239gs8bzqbxigcxk93aqwf5c21ijkh")) (define-public google-chrome-beta (make-google-chrome "beta" "122.0.6261.6" "1b12bjcg99f6bjfhm311hdx9s1a4i13mcgxbvf1gpzq8989c1g96")) (define-public google-chrome-unstable (make-google-chrome "unstable" "123.0.6262.5" "04mf9nysdn77371fxa3z0wbvy2k09vw49s3lrcynlwgiwrz89a3m"))