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

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

  #:use-module (guix packages)

  #:use-module (guix download)

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

  #:use-module (guix build-system glib-or-gtk)

  #:use-module (guix utils)

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

  #:use-module (gnu packages)

  #:use-module (gnu packages algebra)

  #:use-module (gnu packages boost)

  #:use-module (gnu packages compression)

  #:use-module (gnu packages fontutils)

  #:use-module (gnu packages freedesktop)

  #:use-module (gnu packages gl)

  #:use-module (gnu packages glib)

  #:use-module (gnu packages gnome)

  #:use-module (gnu packages gtk)

  #:use-module (gnu packages libreoffice) ; hunspell

  #:use-module (gnu packages linux)

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

  #:use-module (gnu packages pulseaudio)

  #:use-module (gnu packages video)

  #:use-module (gnu packages wxwidgets)

  #:use-module (gnu packages xml)

  #:use-module (gnu packages xorg))

(define-public aegisub

  (package

    (name "aegisub-wip")

    (version "3.2.2")

    (source (origin

              (method url-fetch)

              (uri (string-append

                     "http://ftp.aegisub.org/pub/archives/releases/source/"

                     name "-" version ".tar.xz"))

              (sha256

               (base32

                "11b83qazc8h0iidyj1rprnnjdivj1lpphvpa08y53n42bfa36pn5"))))

    (build-system gnu-build-system)

    (arguments

     `(#:configure-flags

       (list "--disable-update-checker"

             "--without-portaudio"

             "--without-openal"

             "--without-oss")

       ;; tests require busted, a lua package we don't have yet

       #:tests? #f

       #:phases

       (modify-phases %standard-phases

         (add-before 'configure 'fix-ldflags

           (lambda _

             (setenv "LDFLAGS" "-pthread"))))))

    (inputs

     `(("boost" ,boost)

       ("desktop-file-utils" ,desktop-file-utils)

       ("ffms2" ,ffms2)

       ("fftw" ,fftw)

       ("hunspell" ,hunspell)

       ("mesa" ,mesa)

       ("libass" ,libass)

       ("alsa-lib" ,alsa-lib)

       ("pulseaudio" ,pulseaudio)

       ("libx11" ,libx11)

       ("freetype" ,freetype)

       ("wxwidgets-gtk2" ,wxwidgets-gtk2)))

    (native-inputs

     `(("intltool" ,intltool)

       ("pkg-config" ,pkg-config)))

    (home-page "http://www.aegisub.org/")

    (synopsis "Subtitle engine")

    (description

      "Aegisub is a tool for creating and modifying subtitles.  Aegisub makes

it quick and easy to time subtitles to audio, and features many powerful

tools for styling them, including a built-in real-time video preview.")

    (license (list license:bsd-3 ; the package is licensed under the bsd-3, except

                   license:mpl1.1 ; for vendor/universalchardet under the mpl1.1

                   license:expat)))) ; and src/gl that is under a license similar

   ; the the Expat license, with a rewording (Software -> Materials). (called MIT

   ; by upstream). See https://github.com/Aegisub/Aegisub/blob/master/LICENCE

   ; src/MatroskaParser.(c|h) is under bsd-3 with permission from the author

(define-public gupnp-tools

  (package

    (name "gupnp-tools")

    (version "0.8.13")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://download.gnome.org/sources/gupnp-tools/"

                                  (version-major+minor version) "/gupnp-tools-"

                                  version ".tar.xz"))

              (sha256

               (base32

                "1vbr4iqi7nl7kq982agd3liw10gx67s95idd0pjy5h1jsnwyqgda"))))

    (build-system glib-or-gtk-build-system)

    (inputs

     `(("gssdp" ,gssdp)

       ("gupnp" ,gupnp)

       ("gupnp-av" ,gupnp-av)

       ("gtk3" ,gtk+)

       ("gtksourceview" ,gtksourceview)

       ("libsoup" ,libsoup)

       ("libxml" ,libxml2)

       ("util-linux" ,util-linux)))

    (native-inputs

     `(("gobject-introspection" ,gobject-introspection)

       ("pkg-config" ,pkg-config)

       ("vala" ,vala)))

    (home-page "")

    (synopsis "")

    (description "")

    (license license:lgpl2.0)))