;;; GNU Guix --- Functional package management for GNU

;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>

;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>

;;; Copyright © 2014, 2015, 2016, 2017 Mark H Weaver <mhw@netris.org>

;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>

;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>

;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>

;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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 <http://www.gnu.org/licenses/>.

(define-module (more packages gnuzilla)

  #:use-module ((srfi srfi-1) #:hide (zip))

  #:use-module ((srfi srfi-26))

  #:use-module (gnu packages)

  #:use-module ((guix licenses) #:prefix license:)

  #:use-module (guix utils)

  #:use-module (guix packages)

  #:use-module (guix download)

  #:use-module (guix build-system cargo)

  #:use-module (guix build-system gnu)

  #:use-module (more packages google)

  #:use-module (gnu packages assembly)

  #:use-module (gnu packages autotools)

  #:use-module (gnu packages base)

  #:use-module (gnu packages bison)

  #:use-module (gnu packages cmake)

  #:use-module (gnu packages commencement)

  #:use-module (gnu packages compression)

  #:use-module (gnu packages cups)

  #:use-module (gnu packages curl)

  #:use-module (gnu packages databases)

  #:use-module (gnu packages flex)

  #:use-module (gnu packages fontutils)

  #:use-module (gnu packages gcc)

  #:use-module (gnu packages gl)

  #:use-module (gnu packages glib)

  #:use-module (gnu packages gnome)

  #:use-module (gnu packages gnuzilla)

  #:use-module (gnu packages gtk)

  #:use-module (gnu packages icu4c)

  #:use-module (gnu packages image)

  #:use-module (gnu packages libcanberra)

  #:use-module (gnu packages libevent)

  #:use-module (gnu packages libffi)

  #:use-module (gnu packages libreoffice)

  #:use-module (gnu packages linux)

  #:use-module (gnu packages llvm)

  #:use-module (gnu packages nss)

  #:use-module (gnu packages perl)

  #:use-module (gnu packages pkg-config)

  #:use-module (gnu packages pulseaudio)

  #:use-module (gnu packages python)

  #:use-module (gnu packages rust)

  #:use-module (gnu packages sqlite)

  #:use-module (gnu packages version-control)

  #:use-module (gnu packages video)

  #:use-module (gnu packages xdisorg)

  #:use-module (gnu packages xorg)

  #:use-module (ice-9 match))

;(define-public icecat-skia

;  (package

;    (inherit icecat)

;    (name "icecat-skia")

;    (inputs

;     `(("skia" ,skia)

;       ,@(package-inputs icecat)))

;    (arguments (substitute-keyword-arguments (package-arguments icecat)

;                 ((#:configure-flags flags)

;                  `(cons* "--enable-skia" ,flags))))))

;(define-public icu4c-for-firefox

;  (package

;   (inherit icu4c)

;   (name "icu4c")

;   (version "59.1")

;   (source (origin

;            (method url-fetch)

;            (uri (string-append

;                  "http://download.icu-project.org/files/icu4c/"

;                  version

;                  "/icu4c-"

;                  (string-map (lambda (x) (if (char=? x #\.) #\_ x)) version)

;                  "-src.tgz"))

;            (sha256

;             (base32 "1zkmbg2932ggvpgjp8pys0cj6z8bw087y8858009shkrjfpzscki"))))))

;(define nss-for-firefox

;  (package

;    (inherit nss)

;    (name "nss")

;    (version "3.34.1")

;    (source (origin

;              (method url-fetch)

;              (uri (let ((version-with-underscores

;                          (string-join (string-split version #\.) "_")))

;                     (string-append

;                      "https://ftp.mozilla.org/pub/mozilla.org/security/nss/"

;                      "releases/NSS_" version-with-underscores "_RTM/src/"

;                      "nss-" version ".tar.gz")))

;              (sha256

;               (base32

;                "186x33wsk4mzjz7dzbn8p0py9a0nzkgzpfkdv4rlyy5gghv5vhd3"))

;              ;; Create nss.pc and nss-config.

;              (patches (search-patches "nss-pkgconfig.patch"

;                                       "nss-increase-test-timeout.patch"))))))

;(define-public libpng-apng-for-firefox

;  (package

;    (inherit libpng-apng)

;    (name "libpng-apng")

;    (version "1.6.34")

;    (source

;     (origin

;       (method url-fetch)

;       (uri (list (string-append "mirror://sourceforge/libpng/libpng16/"

;                                 version "/libpng-" version ".tar.xz")

;                  (string-append

;                   "ftp://ftp.simplesystems.org/pub/libpng/png/src"

;                   "/libpng16/libpng-" version ".tar.xz")

;                  (string-append

;                   "ftp://ftp.simplesystems.org/pub/libpng/png/src/history"

;                   "/libpng16/libpng-" version ".tar.xz")))

;       (sha256

;        (base32

;         "1xjr0v34fyjgnhvaa1zixcpx5yvxcg4zwvfh0fyklfyfj86rc7ig"))))

;    (inputs

;     `(("apng" ,(origin

;                  (method url-fetch)

;                  (uri

;                   (string-append "mirror://sourceforge/libpng-apng/libpng16/"

;                                  version "/libpng-" version "-apng.patch.gz"))

;                  (sha256

;                   (base32

;                    "1ha4npf9mfrzp0srg8a5amks5ww84xzfpjbsj8k3yjjpai798qg6"))))))))

(define-public sqlite-for-firefox

  (package

   (inherit sqlite)

   (name "sqlite")

   (version "3.25.2")

   (source (origin

            (method url-fetch)

            (uri (let ((numeric-version

                        (match (string-split version #\.)

                          ((first-digit other-digits ...)

                           (string-append first-digit

                                          (string-pad-right

                                           (string-concatenate

                                            (map (cut string-pad <> 2 #\0)

                                                 other-digits))

                                           6 #\0))))))

                   (string-append "https://sqlite.org/2018/sqlite-autoconf-"

                                  numeric-version ".tar.gz")))

            (sha256

             (base32

              "109i1sfryghrdaynkqq9s9aq4347vy653bwkqwx4slix8a2196ns"))))

   (arguments

    `(#:configure-flags

      ;; Add -DSQLITE_SECURE_DELETE, -DSQLITE_ENABLE_UNLOCK_NOTIFY and

      ;; -DSQLITE_ENABLE_DBSTAT_VTAB to CFLAGS.  GNU Icecat will refuse

      ;; to use the system SQLite unless these options are enabled.

      (list "--enable-fts5" "--disable-static"

        (string-append "CFLAGS=-O2 -DSQLITE_SECURE_DELETE "

                       "-DSQLITE_ENABLE_UNLOCK_NOTIFY "

                       "-DSQLITE_ENABLE_DBSTAT_VTAB "

                       "-DSQLITE_ENABLE_FTS3=1 "

                       "-DSQLITE_ENABLE_FTS4=1 -DSQLITE_ENABLE_COLUMN_METADATA=1 "

                       "-DSQLITE_ENABLE_FTS3_TOKENIZER=1"))))))

(define-public firefox

  (package

    (inherit icecat)

    (name "firefox")

    (version "62.0.3")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://archive.mozilla.org/pub/firefox/"

                                  "releases/" version "/source/firefox-"

                                  version ".source.tar.xz"))

              (sha256

               (base32

                "0dj6x7mbnq7f1yx2hxzhzgqzazz7hmq5ir5jk0iya98jggmhdmf1"))

              (file-name (string-append name "-" version ".tar.bz2"))

              (modules '((guix build utils)))

              (snippet

                '(begin

                   (delete-file-recursively "mobile")

                   #t))))

    (arguments

      (substitute-keyword-arguments (package-arguments icecat)

        ((#:configure-flags cf)

         `(list "--enable-default-toolkit=cairo-gtk3"

                "--with-distribution-id=org.gnu"

                "--enable-startup-notification"

                "--enable-pulseaudio"

                "--disable-tests"

                "--disable-updater"

                "--disable-crashreporter"

                "--disable-maintenance-service"

                ;"--disable-eme"

                "--disable-gconf"

                "--disable-debug"

                "--disable-debug-symbols"

                (string-append "--with-clang-path="

                               (assoc-ref %build-inputs "clang") "/bin/clang")

                (string-append "--with-libclang-path="

                               (assoc-ref %build-inputs "clang") "/lib")

                "--enable-system-sqlite"

                "--with-system-libevent"

                "--with-system-libvpx"

                "--with-system-nspr"

                "--with-system-nss"

                "--with-system-icu"

                "CC=gcc"))

        ((#:phases phases)

         `(modify-phases ,phases

            (delete 'install-desktop-entry)

            (delete 'install-icons)

            (replace 'patch-cargo-checksums

              (lambda _

                (use-modules (guix build cargo-build-system))

                (let ((null-file "/dev/null")

                      (null-hash "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"))

                  (substitute* '("Cargo.lock")

                    (("(\"checksum .* = )\".*\"" all name)

                     (string-append name "\"" null-hash "\"")))

                  (let ((checksum-files (find-files "third_party/rust"

                                                    ".cargo-checksum.json")))

                    (for-each delete-file checksum-files)

                    (for-each

                     (lambda (filename)

                       (let ((dir (dirname filename)))

                         (display (string-append

                                   "patch-cargo-checksums: generate-checksums for "

                                   dir "\n"))

                         (generate-checksums dir null-file)))

                     checksum-files)))

                #t))

         (add-after 'unpack 'fix-stylo

           (lambda* (#:key inputs #:allow-other-keys)

             (substitute* "servo/components/style/build_gecko.rs"

               (("builder = builder.include")

                (string-append

                  "builder = builder.clang_arg(\"-cxx-isystem\");

                  builder = builder.clang_arg(\""

                  (assoc-ref inputs "gcc") "/include/c++\");

                  builder = builder.clang_arg(\"-cxx-isystem\");

                  builder = builder.clang_arg(\""

                  (car (find-files (string-append

                                     (assoc-ref inputs "gcc")

                                     "/include/c++")

                                   "-gnu$" #:directories? #t)) "\");

builder = builder.include")))

             #t))

         (add-after 'unpack 'fix-isnan

           (lambda _

             ;; There is a bug preventing SymbolTable_autogen.cpp from finding

             ;; isnan and isinf, although they are defined in that same file.

             ;; The reason seems to be that they are already defined in math.h

             (substitute* "gfx/angle/checkout/src/compiler/translator/SymbolTable_autogen.cpp"

			   (("^namespace sh")

				"#undef isnan

#undef isinf

namespace sh"))

             #t))

         (add-before 'build 'fix-cpath

           (lambda _

             (setenv "CPATH" (getenv "CPLUS_INCLUDE_PATH"))

             (unsetenv "CPLUS_INCLUDE_PATH")

             (setenv "CC" "gcc")

             #t))

         (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 "/intl/l10n")

                            ,@configure-flags)))

              (setenv "SHELL" bash)

              (setenv "CONFIG_SHELL" bash)

              (setenv "AUTOCONF" (which "autoconf")) ; must be autoconf-2.13

              (mkdir "../build")

              (chdir "../build")

              (format #t "build directory: ~s~%" (getcwd))

              (format #t "configure flags: ~s~%" flags)

              (apply invoke bash

                     (string-append srcdir "/configure")

                     flags))))

         ;; This fixes the file chooser crash that happens with GTK 3.

         (replace 'wrap-program

           (lambda* (#:key inputs outputs #:allow-other-keys)

             (let* ((out (assoc-ref outputs "out"))

                    (lib (string-append out "/lib"))

                    (gtk (assoc-ref inputs "gtk+"))

                    (gtk-share (string-append gtk "/share")))

               (wrap-program (car (find-files lib "^firefox$"))

                 `("XDG_DATA_DIRS" ":" prefix (,gtk-share)))

               #t)))))))

    (inputs

     `(("nspr" ,nspr)

       ("nss" ,nss)

       ("sqlite" ,sqlite-for-firefox)

       ,@(alist-delete "sqlite" (package-inputs icecat))))

    (native-inputs

     `(("gcc" ,gcc-6)

       ("gcc-toolchain-6" ,gcc-toolchain-6)

       ("python-3" ,python-3)

       ("clang" ,clang)

       ("llvm" ,llvm)

       ,@(package-native-inputs icecat)))))

      ;(snippet

      ; '(begin

      ;    (use-modules (ice-9 ftw))

      ;    ;; Remove bundled libraries that we don't use, since they may

      ;    ;; contain unpatched security flaws, they waste disk space and

      ;    ;; network bandwidth, and may cause confusion.

      ;    (for-each delete-file-recursively

      ;              '(;; FIXME: Removing the bundled icu breaks configure.

      ;                ;;   * The bundled icu headers are used in some places.

      ;                ;;   * The version number is taken from the bundled copy.

      ;                ;;"intl/icu"

      ;                ;;

      ;                ;; FIXME: A script from the bundled nspr is used.

      ;                ;;"nsprpub"

      ;                ;;

      ;                ;; TODO: Use system media libraries.  Waiting for:

      ;                ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=517422>

      ;                ;;   * libogg

      ;                ;;   * libtheora

      ;                ;;   * libvorbis

      ;                ;;   * libtremor (not yet in guix)

      ;                ;;   * libopus

      ;                ;;   * speex

      ;                ;;   * soundtouch (not yet in guix)

      ;                ;;

      ;                ;; TODO: Use system harfbuzz.  Waiting for:

      ;                ;; <https://bugzilla.mozilla.org/show_bug.cgi?id=847568>

      ;                ;;

      ;                ;; TODO: Use system graphite2.

      ;                ;;

      ;                "modules/freetype2"

      ;                "modules/zlib"

      ;                "modules/libbz2"

      ;                "ipc/chromium/src/third_party/libevent"

      ;                "media/libjpeg"

      ;                "media/libvpx"

      ;                "security/nss"

      ;                "gfx/cairo"

      ;                "js/src/ctypes/libffi"

      ;                "db/sqlite3"))

      ;    ;; Delete this file that has incorrect checksums

      ;    (for-each delete-file (find-files "." "\\.cargo-checksum.json"))

      ;    ;; Delete .pyc files, typically present in icecat source tarballs

      ;    (for-each delete-file (find-files "." "\\.pyc$"))

      ;    ;; Delete obj-* directories, sometimes present in icecat tarballs

      ;    (for-each delete-file-recursively

      ;              (scandir "." (lambda (name)

      ;                             (string-prefix? "obj-" name))))

      ;    #t))))))