;;; 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 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 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 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 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.21.0")

   (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/2017/sqlite-autoconf-"

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

            (sha256

             (base32

              "1qxvzdjwzw6k0kqjfabj86rnq87xdbwbca7laxxdhnh0fmkm3pfp"))))))

(define-public firefox

  (package

    (name "firefox")

    (version "59.0.2")

    (source (origin

              (method url-fetch)

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

              (sha256

               (base32

                "0cr8b6hrhr8ql31w9vjy79gzyzx4d608fwr8bv7apqlp0sn84wsv"))

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

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

    (arguments

     `(#: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")

             #t))

         (replace 'install

           (lambda _

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

             #t))

         (replace 'configure

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

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

    (inputs

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

       ("sqlite" ,sqlite-for-firefox)

       ("startup-notification" ,startup-notification)

       ("unzip" ,unzip)

       ("zip" ,zip)

       ("zlib" ,zlib)))

    (native-inputs

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