(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 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"))))))))

   (version "3.21.0")

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

              "1qxvzdjwzw6k0kqjfabj86rnq87xdbwbca7laxxdhnh0fmkm3pfp"))))))

    (version "59.0.2")

              (uri (string-append "https://hg.mozilla.org/releases/mozilla-release/"

                                  "archive/239e434d6d2b8e1e2b697c3416d1e96d48fe98e5.tar.bz2"))

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

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

              ;                    version ".source.tar.xz"))

                "0cr8b6hrhr8ql31w9vjy79gzyzx4d608fwr8bv7apqlp0sn84wsv"))

      (modules '((guix build utils)))

      (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))))

    (build-system gnu-build-system)

     `(#:out-of-source? #t

       #:tests? #f

       ;#:configure-flags (list "--disable-necko-wifi"

       ;                        "--disable-stylo"

       ;                        "--disable-crashreporter"

       ;                        "--disable-updater"

       ;                        "--disable-tests"; Remove if we want to test

       ;                        "--enable-application=browser"

       ;                        "--enable-optimize=-O2"

       ;                        "--with-pthreads"

       ;                        ;; use system libraries

       ;                        "--enable-system-hunspell"

       ;                        "--enable-startup-notification"

       ;                        "--enable-alsa" "--enable-pulseaudio"

       ;                        "--enable-system-sqlite"

       ;                        "--with-system-libevent"

       ;                        "--with-system-libvpx"

       ;                        "--with-system-nspr"

       ;                        "--with-system-nss"

       ;                        "--with-system-icu"

       ;                        "--enable-system-cairo"

       ;                        "--enable-system-ffi"

       ;                        "--enable-system-pixman"

       ;                        "--with-system-bz2"

       ;                        "--with-system-jpeg"

       ;                        "--with-system-png"

       ;                        "--with-system-zlib")

       ;                        ;; clang is not found because it is assumed to be in

       ;                        ;; the same location as llvm.

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

       ;                        ;               (assoc-ref %build-inputs "clang-3.9.1")

       ;                        ;               "/bin/clang"))

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

       ;                        ;               (assoc-ref %build-inputs "clang-3.9.1")

       ;                        ;               "/lib"))

       ;; Race condition in python?

       ;;   EOFError: EOF read where object expected

       ;#:parallel-build? #f

       #:phases

       (modify-phases %standard-phases

         (replace 'build

           (lambda _

             (invoke (which "sh") "mach" "build" "--verbose")

         (replace 'install

             (invoke (which "sh") "mach" "install")

         (replace 'configure

            (setenv "SHELL" (which "bash"))

            (with-output-to-file "mozconfig"

              (lambda _

                (display (string-append

                           "ac_add_options --disable-necko-wifi

ac_add_options --enable-system-hunspell

ac_add_options --enable-startup-notification

ac_add_options --enable-system-sqlite

ac_add_options --with-system-libevent

ac_add_options --with-system-libvpx

ac_add_options --with-system-nspr

ac_add_options --with-system-nss

ac_add_options --with-system-icu

ac_add_options --prefix=" (assoc-ref outputs "out") "

ac_add_options --enable-application=browser

# For now, disable stylo: it requires clang which is not found by llvm-config

ac_add_options --disable-stylo

ac_add_options --disable-crashreporter

ac_add_options --disable-updater

# enabling the tests will use a lot more space and significantly

# increase the build time, for no obvious benefit.

ac_add_options --disable-tests

# Optimization for size is broken with gcc7

ac_add_options --enable-optimize=\"-O2\"

ac_add_options --enable-official-branding

# In firefox-59.0 system cairo breaks the build, so comment it.

#ac_add_options --enable-system-cairo

ac_add_options --enable-system-ffi

ac_add_options --enable-system-pixman

ac_add_options --with-pthreads

ac_add_options --with-system-bz2

ac_add_options --with-system-jpeg

ac_add_options --with-system-png

ac_add_options --with-system-zlib

mk_add_options MOZ_OBJDIR=@TOPSRCDIR@/firefox-build-dir

")))))))))

            ;(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)))

            ;  ;; We removed the embedded sqlite, so don't reference it.

            ;  (substitute* '("storage/moz.build" "dom/indexedDB/moz.build")

            ;    (("'/db/sqlite3/src',") ""))

            ;  (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)

            ;  (zero? (apply system* bash

            ;                (string-append srcdir "/configure")

            ;                flags))))))))

     `(("alsa-lib" ,alsa-lib)

       ("bzip2" ,bzip2)

       ("cairo" ,cairo)

       ("cups" ,cups)

       ("dbus-glib" ,dbus-glib)

       ("gdk-pixbuf" ,gdk-pixbuf)

       ("glib" ,glib)

       ("gtk+" ,gtk+)

       ("gtk+-2" ,gtk+-2)

       ("pango" ,pango)

       ("freetype" ,freetype)

       ("hunspell" ,hunspell)

       ("libcanberra" ,libcanberra)

       ("libgnome" ,libgnome)

       ("libjpeg-turbo" ,libjpeg-turbo)

       ("libxft" ,libxft)

       ("libevent" ,libevent-2.0)

       ("libxinerama" ,libxinerama)

       ("libxscrnsaver" ,libxscrnsaver)

       ("libxcomposite" ,libxcomposite)

       ("libxt" ,libxt)

       ("libffi" ,libffi)

       ("ffmpeg" ,ffmpeg)

       ("libpng-apng" ,libpng-apng-for-firefox)

       ("libvpx" ,libvpx)

       ("icu4c" ,icu4c)

       ("pixman" ,pixman)

       ("pulseaudio" ,pulseaudio)

       ("mesa" ,mesa)

       ("nspr" ,nspr)

       ("nss" ,nss-for-firefox)

       ("startup-notification" ,startup-notification)

       ("unzip" ,unzip)

       ("zip" ,zip)

       ("zlib" ,zlib)))

     `(("perl" ,perl)

       ("python" ,python-2) ; Python 3 not supported

       ("python2-pysqlite" ,python2-pysqlite)

       ("yasm" ,yasm)

       ("pkg-config" ,pkg-config)

       ("autoconf" ,autoconf-2.13)

       ("which" ,which)

       ("rust" ,rust)

       ("cargo" ,rust "cargo")

       ("libtool" ,libtool)

       ("clang-3.9.1" ,clang-3.9.1)

       ("llvm-3.9.1" ,llvm-3.9.1)))

    (home-page "https://mozilla.org")

    (synopsis "Web browser")

    (description "")

    (license (package-license icecat))))