gnu/packages/video.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015 David Thompson <davet@gnu.org>
   4 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   6 ;;;
   7 ;;; This file is part of GNU Guix.
   8 ;;;
   9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  10 ;;; under the terms of the GNU General Public License as published by
  11 ;;; the Free Software Foundation; either version 3 of the License, or (at
  12 ;;; your option) any later version.
  13 ;;;
  14 ;;; GNU Guix is distributed in the hope that it will be useful, but
  15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;;; GNU General Public License for more details.
  18 ;;;
  19 ;;; You should have received a copy of the GNU General Public License
  20 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 (define-module (gnu packages video)
  23   #:use-module (ice-9 match)
  24   #:use-module ((guix licenses) #:prefix license:)
  25   #:use-module (guix utils)
  26   #:use-module (guix packages)
  27   #:use-module (guix download)
  28   #:use-module (guix git-download)
  29   #:use-module (guix build-system cmake)
  30   #:use-module (guix build-system gnu)
  31   #:use-module (guix build-system python)
  32   #:use-module (guix build-system waf)
  33   #:use-module (gnu packages)
  34   #:use-module (gnu packages algebra)
  35   #:use-module (gnu packages audio)
  36   #:use-module (gnu packages autotools)
  37   #:use-module (gnu packages avahi)
  38   #:use-module (gnu packages base)
  39   #:use-module (gnu packages cdrom)
  40   #:use-module (gnu packages compression)
  41   #:use-module (gnu packages databases)
  42   #:use-module (gnu packages doxygen)
  43   #:use-module (gnu packages elf)
  44   #:use-module (gnu packages fontutils)
  45   #:use-module (gnu packages fribidi)
  46   #:use-module (gnu packages gettext)
  47   #:use-module (gnu packages ghostscript)
  48   #:use-module (gnu packages gl)
  49   #:use-module (gnu packages glib)
  50   #:use-module (gnu packages guile)
  51   #:use-module (gnu packages gnupg)
  52   #:use-module (gnu packages gtk)
  53   #:use-module (gnu packages image)
  54   #:use-module (gnu packages linux)
  55   #:use-module (gnu packages lua)
  56   #:use-module (gnu packages mp3)
  57   #:use-module (gnu packages ncurses)
  58   #:use-module (gnu packages ocr)
  59   #:use-module (gnu packages perl)
  60   #:use-module (gnu packages pkg-config)
  61   #:use-module (gnu packages pulseaudio)
  62   #:use-module (gnu packages python)
  63   #:use-module (gnu packages qt)
  64   #:use-module (gnu packages samba)
  65   #:use-module (gnu packages sdl)
  66   #:use-module (gnu packages ssh)
  67   #:use-module (gnu packages texinfo)
  68   #:use-module (gnu packages texlive)
  69   #:use-module (gnu packages textutils)
  70   #:use-module (gnu packages tls)
  71   #:use-module (gnu packages version-control)
  72   #:use-module (gnu packages web)
  73   #:use-module (gnu packages xdisorg)
  74   #:use-module (gnu packages xiph)
  75   #:use-module (gnu packages xml)
  76   #:use-module (gnu packages xorg)
  77   #:use-module (gnu packages yasm)
  78   #:use-module (gnu packages zip))
  79
  80 (define-public aalib
  81   (package
  82     (name "aalib")
  83     (version "1.4rc5")
  84     (source (origin
  85               (method url-fetch)
  86               (uri (string-append "mirror://sourceforge/aa-project/"
  87                                   name "-" version ".tar.gz"))
  88               (sha256
  89                (base32
  90                 "1vkh19gb76agvh4h87ysbrgy82hrw88lnsvhynjf4vng629dmpgv"))))
  91     (build-system gnu-build-system)
  92     (native-inputs
  93      `(("makeinfo" ,texinfo)))
  94     (inputs
  95      `(("ncurses" ,ncurses)))
  96     (arguments
  97      '(#:phases
  98        (modify-phases %standard-phases
  99          (replace 'configure
 100                   (lambda* (#:key inputs outputs #:allow-other-keys)
 101                     ;; This old `configure' script doesn't support
 102                     ;; variables passed as arguments.
 103                     (let ((out     (assoc-ref outputs "out"))
 104                           (ncurses (assoc-ref inputs "ncurses")))
 105                       (setenv "CONFIG_SHELL" (which "bash"))
 106                       (zero? (system* "./configure"
 107                                       (string-append "--prefix=" out)
 108                                       (string-append "--with-ncurses="
 109                                                      ncurses)))))))))
 110     (home-page "http://aa-project.sourceforge.net/aalib/")
 111     (synopsis "ASCII-art library")
 112     (description
 113      "AA-lib is a low level gfx library which does not require graphics device.
 114 In fact, there is no graphical output possible.  AA-lib replaces those
 115 old-fashioned output methods with powerful ascii-art renderer.")
 116     (license license:lgpl2.0+)))
 117
 118 (define-public liba52
 119   (package
 120     (name "liba52")
 121     (version "0.7.4")
 122     (source (origin
 123               (method url-fetch)
 124               (uri (string-append
 125                     ;; A mirror://sourceforge URI doesn't work, presumably
 126                     ;; because the SourceForge project is misconfigured.
 127                     "http://liba52.sourceforge.net/files/a52dec-" version
 128                     ".tar.gz"))
 129               (sha256
 130                (base32
 131                 "0czccp4fcpf2ykp16xcrzdfmnircz1ynhls334q374xknd5747d2"))
 132               (patches (map search-patch '("liba52-enable-pic.patch"
 133                                            "liba52-set-soname.patch"
 134                                            "liba52-use-mtune-not-mcpu.patch"
 135                                            "liba52-link-with-libm.patch")))))
 136     (build-system gnu-build-system)
 137     ;; XXX We need to run ./bootstrap because of the build system fixes above.
 138     (native-inputs
 139      `(("autoconf" ,autoconf)
 140        ("automake" ,automake)
 141        ("libtool" ,libtool)))
 142     (arguments `(#:configure-flags '("--enable-shared")
 143                  #:phases
 144                  (modify-phases %standard-phases
 145                    ;; XXX We need to run ./bootstrap because of the build
 146                    ;; system fixes above.
 147                    (add-after
 148                     'unpack 'bootstrap
 149                     (lambda _ (zero? (system* "sh" "bootstrap")))))))
 150     (home-page "http://liba52.sourceforge.net/")
 151     (synopsis "ATSC A/52 stream decoder")
 152     (description "liba52 is a library for decoding ATSC A/52 streams.  The
 153 A/52 standard is used in a variety of applications, including digital
 154 television and DVD.  It is also known as AC-3.")
 155     (license license:gpl2+)))
 156
 157 (define-public libmpeg2
 158   (package
 159     (name "libmpeg2")
 160     (version "0.5.1")
 161     (source (origin
 162               (method url-fetch)
 163               ;; A mirror://sourceforge URI doesn't work, presumably
 164               ;; because the SourceForge project is misconfigured.
 165               (uri (string-append "http://libmpeg2.sourceforge.net/files/"
 166                                   name "-" version ".tar.gz"))
 167               (sha256
 168                (base32
 169                 "1m3i322n2fwgrvbs1yck7g5md1dbg22bhq5xdqmjpz5m7j4jxqny"))))
 170     (inputs
 171      `(("libx11" ,libx11)
 172        ("libxext" ,libxext)
 173        ("libxv" ,libxv)
 174        ("libsm" ,libsm)
 175        ("libice" ,libice)
 176        ("sdl" ,sdl)))
 177     (build-system gnu-build-system)
 178     (home-page "http://libmpeg2.sourceforge.net/")
 179     (synopsis "MPEG1 and MPEG2 video decoder library")
 180     (description
 181      "libmpeg2 is a library which can decode MPEG1 and MPEG2 video streams.")
 182     (license license:gpl2+)))
 183
 184 (define-public libx264
 185   (package
 186     (name "libx264")
 187     (version "20150706-2245")
 188     (source (origin
 189               (method url-fetch)
 190               (uri (string-append "ftp://ftp.videolan.org/pub/x264/snapshots/"
 191                                   "x264-snapshot-" version ".tar.bz2"))
 192               (sha256
 193                (base32
 194                 "0v04xq25q66gsk78i4kryy7503ki87jxbhln2c0qpvyy0d47p466"))))
 195     (build-system gnu-build-system)
 196     (native-inputs
 197      `(("pkg-config" ,pkg-config)
 198        ("yasm" ,yasm)))
 199     ;; TODO: Add gpac input
 200     (arguments
 201      `(#:tests? #f  ;no check target
 202        #:configure-flags '("--enable-shared"
 203                            ;; Don't build the command-line program.  If we
 204                            ;; want it later, we should do so in a different
 205                            ;; package to avoid a circular dependency (the x264
 206                            ;; program depends on ffmpeg and ffmpeg depends on
 207                            ;; libx264).
 208                            "--disable-cli")))
 209     (home-page "http://www.videolan.org/developers/x264.html")
 210     (synopsis "H.264 video coding library")
 211     (description "libx264 is an advanced encoding library for creating
 212 H.264 (MPEG-4 AVC) video streams.")
 213     (license (list license:gpl2+         ;most files
 214                    license:isc           ;common/x86/x86inc.asm
 215                    license:lgpl2.1+      ;extras/getopt.c
 216                    license:bsd-3         ;extras/inttypes.h
 217                    (license:non-copyleft ;extras/cl*.h
 218                     "file://extras/cl.h"
 219                     "See extras/cl.h in the distribution.")))))
 220
 221 (define-public libass
 222   (package
 223     (name "libass")
 224     (version "0.12.1")
 225     (source (origin
 226               (method url-fetch)
 227               (uri (string-append
 228                     "https://github.com/libass/libass/releases/download/"
 229                     version "/libass-" version ".tar.xz"))
 230               (sha256
 231                (base32
 232                 "1mwj2nk9g6cq6f8m1hf0ijg1299rghhy9naahqq43sc2whblb1l7"))))
 233     (build-system gnu-build-system)
 234     (native-inputs
 235      `(("pkg-config" ,pkg-config)
 236        ("yasm" ,yasm)))
 237     (propagated-inputs
 238      `(("freetype" ,freetype)
 239        ("fribidi" ,fribidi)
 240        ("fontconfig" ,fontconfig)
 241        ("harfbuzz" ,harfbuzz)
 242        ("enca" ,enca)))
 243     (home-page "https://github.com/libass/libass")
 244     (synopsis "Subtitle rendering library for the ASS/SSA format")
 245     (description "libass is a subtitle rendering library for the
 246 ASS/SSA (Advanced Substation Alpha/SubStation Alpha) subtitle format.")
 247     (license license:isc)))
 248
 249 (define-public libcaca
 250   (package
 251     (name "libcaca")
 252     (version "0.99.beta19")
 253     (source (origin
 254               (method url-fetch)
 255               (uri (string-append "http://caca.zoy.org/files/libcaca/libcaca-"
 256                                   version ".tar.gz"))
 257               (sha256
 258                (base32
 259                 "1x3j6yfyxl52adgnabycr0n38j9hx2j74la0hz0n8cnh9ry4d2qj"))))
 260     (build-system gnu-build-system)
 261     (native-inputs `(("pkg-config" ,pkg-config)))
 262     (inputs
 263      `(("freeglut" ,freeglut)
 264        ("ftgl" ,ftgl)
 265        ("libx11" ,libx11)
 266        ("mesa" ,mesa)
 267        ("ncurses" ,ncurses)
 268        ("zlib" ,zlib)))
 269     (home-page "http://caca.zoy.org/wiki/libcaca")
 270     (synopsis "Colour ASCII-art library")
 271     (description "libcaca is a graphics library that outputs text instead of
 272 pixels, so that it can work on older video cards or text terminals.  It
 273 supports Unicode, 2048 colors, dithering of color images, and advanced text
 274 canvas operations.")
 275     (license (license:fsf-free "file://COPYING")))) ;WTFPL version 2
 276
 277 (define-public libdca
 278   (package
 279     (name "libdca")
 280     (version "0.0.5")
 281     (source (origin
 282               (method url-fetch)
 283               (uri (string-append
 284                     "http://download.videolan.org/pub/videolan/libdca/"
 285                     version "/libdca-" version ".tar.bz2"))
 286               (sha256
 287                (base32
 288                 "0hh6a7l8vvccsd5i1fkv9av2gzv9fy8m0b8jpsn5p6hh4bh2586v"))))
 289     (build-system gnu-build-system)
 290     (home-page "http://www.videolan.org/developers/libdca.html")
 291     (synopsis "DTS Coherent Acoustics decoder")
 292     (description "libdca is a library for decoding DTS Coherent Acoustics
 293 streams.")
 294     (license license:gpl2+)))
 295
 296 (define-public libdv
 297   (package
 298     (name "libdv")
 299     (version "1.0.0")
 300     (source (origin
 301               (method url-fetch)
 302               (uri (string-append
 303                     "mirror://sourceforge/libdv/libdv-" version ".tar.gz"))
 304               (sha256
 305                (base32
 306                 "1fl96f2xh2slkv1i1ix7kqk576a0ak1d33cylm0mbhm96d0761d3"))))
 307     (build-system gnu-build-system)
 308     (native-inputs `(("pkg-config" ,pkg-config)))
 309     (inputs `(("libxv" ,libxv)))
 310     (home-page "http://libdv.sourceforge.net/")
 311     (synopsis "DV video (IEC 61834 and SMPTE 314M) codec")
 312     (description "The Quasar DV codec (libdv) is a software codec for DV
 313 video, the encoding format used by most digital camcorders, typically those
 314 that support the IEEE 1394 (a.k.a. FireWire or i.Link) interface.  Libdv was
 315 developed according to the official standards for DV video: IEC 61834 and
 316 SMPTE 314M.")
 317     (license license:lgpl2.1+)))
 318
 319 (define-public libva
 320   (package
 321     (name "libva")
 322     (version "1.5.1")
 323     (source
 324      (origin
 325        (method url-fetch)
 326        (uri (string-append
 327              "http://www.freedesktop.org/software/vaapi/releases/libva/libva-"
 328              version".tar.bz2"))
 329        (sha256
 330         (base32 "01d01mm9fgpwzqycmjjcj3in3vvzcibi3f64icsw2sksmmgb4495"))))
 331     (build-system gnu-build-system)
 332     (native-inputs
 333      `(("pkg-config" ,pkg-config)))
 334     (inputs
 335      `(("libdrm" ,libdrm)
 336        ("libx11" ,libx11)
 337        ("libxext" ,libxext)
 338        ("libxfixes" ,libxfixes)
 339        ("mesa" ,mesa)))
 340     (arguments
 341      `(#:phases
 342        (modify-phases %standard-phases
 343          (add-before
 344           'build 'fix-dlopen-paths
 345           (lambda* (#:key outputs #:allow-other-keys)
 346             (let ((out (assoc-ref outputs "out")))
 347               (substitute* "va/drm/va_drm_auth_x11.c"
 348                 (("\"libva-x11\\.so\\.%d\"")
 349                  (string-append "\"" out "/lib/libva-x11.so.%d\"")))))))
 350        ;; Most drivers are in mesa's $prefix/lib/dri, so use that.  (Can be
 351        ;; overridden at run-time via LIBVA_DRIVERS_PATH.)
 352        #:configure-flags
 353        (list (string-append "--with-drivers-path="
 354                             (assoc-ref %build-inputs "mesa") "/lib/dri"))
 355        ;; However, we can't write to mesa's store directory, so override the
 356        ;; following make variable to install the dummy driver to libva's
 357        ;; $prefix/lib/dri directory.
 358        #:make-flags
 359        (list (string-append "dummy_drv_video_ladir="
 360                             (assoc-ref %outputs "out") "/lib/dri"))))
 361     (home-page "http://www.freedesktop.org/wiki/Software/vaapi/")
 362     (synopsis "Video acceleration library")
 363     (description "The main motivation for VA-API (Video Acceleration API) is
 364 to enable hardware accelerated video decode/encode at various
 365 entry-points (VLD, IDCT, Motion Compensation etc.) for prevailing coding
 366 standards (MPEG-2, MPEG-4 ASP/H.263, MPEG-4 AVC/H.264, and VC-1/VMW3).")
 367     (license license:expat)))
 368
 369 (define-public ffmpeg
 370   (package
 371     (name "ffmpeg")
 372     (version "2.7.1")
 373     (source (origin
 374              (method url-fetch)
 375              (uri (string-append "http://www.ffmpeg.org/releases/ffmpeg-"
 376                                  version ".tar.bz2"))
 377              (sha256
 378               (base32
 379                "087pyx1wxvniq3wgj6z80wrb7ampwwsmwndmr7lymzhm4iyvj1vy"))))
 380     (build-system gnu-build-system)
 381     (inputs
 382      `(("fontconfig" ,fontconfig)
 383        ("freetype" ,freetype)
 384        ("opus" ,opus)
 385        ("ladspa" ,ladspa)
 386        ("lame" ,lame)
 387        ("libass" ,libass)
 388        ("libbluray" ,libbluray)
 389        ("libcaca" ,libcaca)
 390        ("libcdio-paranoia" ,libcdio-paranoia)
 391        ("libquvi" ,libquvi)
 392        ("libtheora" ,libtheora)
 393        ("libvorbis" ,libvorbis)
 394        ("libvpx" ,libvpx)
 395        ("libx264" ,libx264)
 396        ("openal" ,openal)
 397        ("pulseaudio" ,pulseaudio)
 398        ("soxr" ,soxr)
 399        ("speex" ,speex)
 400        ("twolame" ,twolame)
 401        ("xvid" ,xvid)
 402        ("zlib", zlib)))
 403     (native-inputs
 404      `(("bc" ,bc)
 405        ("bzip2" ,bzip2)
 406        ("perl" ,perl)
 407        ("pkg-config" ,pkg-config)
 408        ("texinfo" ,texinfo)
 409        ("python" ,python-2) ; scripts use interpreter python2
 410        ("speex" ,speex)
 411        ("yasm" ,yasm)))
 412     (arguments
 413      `(#:test-target "fate"
 414        #:phases
 415        (modify-phases %standard-phases
 416          (replace
 417           'configure
 418           ;; configure does not work followed by "SHELL=..." and
 419           ;; "CONFIG_SHELL=..."; set environment variables instead
 420           (lambda* (#:key outputs configure-flags #:allow-other-keys)
 421             (let ((out (assoc-ref outputs "out")))
 422               (substitute* "configure"
 423                 (("#! /bin/sh") (string-append "#!" (which "bash"))))
 424               (setenv "SHELL" (which "bash"))
 425               (setenv "CONFIG_SHELL" (which "bash"))
 426               ;; possible additional inputs:
 427               ;;   --enable-avisynth        enable reading of AviSynth script files [no]
 428               ;;   --enable-frei0r          enable frei0r video filtering
 429               ;;   --enable-libaacplus      enable AAC+ encoding via libaacplus [no]
 430               ;;   --enable-libcelt         enable CELT decoding via libcelt [no]
 431               ;;   --enable-libdc1394       enable IIDC-1394 grabbing using libdc1394
 432               ;;                            and libraw1394 [no]
 433               ;;   --enable-libfaac         enable AAC encoding via libfaac [no]
 434               ;;   --enable-libfdk-aac      enable AAC de/encoding via libfdk-aac [no]
 435               ;;   --enable-libflite        enable flite (voice synthesis) support via libflite [no]
 436               ;;   --enable-libgme          enable Game Music Emu via libgme [no]
 437               ;;   --enable-libgsm          enable GSM de/encoding via libgsm [no]
 438               ;;   --enable-libiec61883     enable iec61883 via libiec61883 [no]
 439               ;;   --enable-libilbc         enable iLBC de/encoding via libilbc [no]
 440               ;;   --enable-libmodplug      enable ModPlug via libmodplug [no]
 441               ;;   --enable-libnut          enable NUT (de)muxing via libnut,
 442               ;;                            native (de)muxer exists [no]
 443               ;;   --enable-libopencore-amrnb enable AMR-NB de/encoding via libopencore-amrnb [no]
 444               ;;   --enable-libopencore-amrwb enable AMR-WB decoding via libopencore-amrwb [no]
 445               ;;   --enable-libopencv       enable video filtering via libopencv [no]
 446               ;;   --enable-libopenjpeg     enable JPEG 2000 de/encoding via OpenJPEG [no]
 447               ;;   --enable-librtmp         enable RTMP[E] support via librtmp [no]
 448               ;;   --enable-libschroedinger enable Dirac de/encoding via libschroedinger [no]
 449               ;;   --enable-libshine        enable fixed-point MP3 encoding via libshine [no]
 450               ;;   --enable-libssh          enable SFTP protocol via libssh [no]
 451               ;;                            (libssh2 does not work)
 452               ;;   --enable-libstagefright-h264  enable H.264 decoding via libstagefright [no]
 453               ;;   --enable-libutvideo      enable Ut Video encoding and decoding via libutvideo [no]
 454               ;;   --enable-libv4l2         enable libv4l2/v4l-utils [no]
 455               ;;   --enable-libvidstab      enable video stabilization using vid.stab [no]
 456               ;;   --enable-libvo-aacenc    enable AAC encoding via libvo-aacenc [no]
 457               ;;   --enable-libvo-amrwbenc  enable AMR-WB encoding via libvo-amrwbenc [no]
 458               ;;   --enable-libwavpack      enable wavpack encoding via libwavpack [no]
 459               ;;   --enable-libxavs         enable AVS encoding via xavs [no]
 460               ;;   --enable-libzmq          enable message passing via libzmq [no]
 461               ;;   --enable-libzvbi         enable teletext support via libzvbi [no]
 462               ;;   --enable-opencl          enable OpenCL code
 463               ;;   --enable-x11grab         enable X11 grabbing [no]
 464               (zero? (system*
 465                       "./configure"
 466                       (string-append "--prefix=" out)
 467                       ;; Add $libdir to the RUNPATH of all the binaries.
 468                       (string-append "--extra-ldflags=-Wl,-rpath="
 469                                      %output "/lib")
 470                       "--enable-avresample"
 471                       "--enable-gpl" ; enable optional gpl licensed parts
 472                       "--enable-shared"
 473                       "--enable-fontconfig"
 474                       ;; "--enable-gnutls" ; causes test failures
 475                       "--enable-ladspa"
 476                       "--enable-libass"
 477                       "--enable-libbluray"
 478                       "--enable-libcaca"
 479                       "--enable-libcdio"
 480                       "--enable-libfreetype"
 481                       "--enable-libmp3lame"
 482                       "--enable-libopus"
 483                       "--enable-libpulse"
 484                       "--enable-libquvi"
 485                       "--enable-libsoxr"
 486                       "--enable-libspeex"
 487                       "--enable-libtheora"
 488                       "--enable-libtwolame"
 489                       "--enable-libvorbis"
 490                       "--enable-libvpx"
 491                       "--enable-libxvid"
 492                       "--enable-libx264"
 493                       "--enable-openal"
 494
 495                       "--enable-runtime-cpudetect"
 496
 497                       ;; Runtime cpu detection is not implemented on
 498                       ;; MIPS, so we disable some features.
 499                       "--disable-mips32r2"
 500                       "--disable-mipsdspr1"
 501                       "--disable-mipsdspr2"
 502                       "--disable-mipsfpu")))))
 503          (add-before
 504           'check 'set-ld-library-path
 505           (lambda _
 506             ;; Allow $(top_builddir)/ffmpeg to find its dependencies when
 507             ;; running tests.
 508             (let* ((dso  (find-files "." "\\.so$"))
 509                    (path (string-join (map dirname dso) ":")))
 510               (format #t "setting LD_LIBRARY_PATH to ~s~%" path)
 511               (setenv "LD_LIBRARY_PATH" path)
 512               #t))))))
 513     (home-page "http://www.ffmpeg.org/")
 514     (synopsis "Audio and video framework")
 515     (description "FFmpeg is a complete, cross-platform solution to record,
 516 convert and stream audio and video.  It includes the libavcodec
 517 audio/video codec library.")
 518     (license license:gpl2+)))
 519
 520 (define-public vlc
 521   (package
 522     (name "vlc")
 523     (version "2.2.0")
 524     (source (origin
 525              (method url-fetch)
 526              (uri (string-append
 527                    "http://download.videolan.org/pub/videolan/vlc/"
 528                    version "/vlc-" version ".tar.xz"))
 529              (sha256
 530               (base32
 531                "05smn9hqdp7iscc1dj4cxp1mrlad7b50lhlnlqisfzf493i2f2jy"))))
 532     (build-system gnu-build-system)
 533     (native-inputs
 534      `(("git" ,git) ; needed for a test
 535        ("pkg-config" ,pkg-config)))
 536     ;; FIXME: Add optional inputs once available.
 537     (inputs
 538      `(("alsa-lib" ,alsa-lib)
 539        ("avahi" ,avahi)
 540        ("dbus" ,dbus)
 541        ("flac" ,flac)
 542        ("ffmpeg" ,ffmpeg)
 543        ("fontconfig" ,fontconfig)
 544        ("freetype" ,freetype)
 545        ("gnutls" ,gnutls)
 546        ("libcddb" ,libcddb)
 547        ("libgcrypt" ,libgcrypt)
 548        ("libkate" ,libkate)
 549        ("libmad" ,libmad)
 550        ("libogg" ,libogg)
 551        ("libpng" ,libpng)
 552        ("libsamplerate" ,libsamplerate)
 553        ("libssh2" ,libssh2)
 554        ("libvorbis" ,libvorbis)
 555        ("libtheora" ,libtheora)
 556        ("libxext" ,libxext)
 557        ("libxinerama" ,libxinerama)
 558        ("libxml2" ,libxml2)
 559        ("libxpm" ,libxpm)
 560        ("lua" ,lua-5.1)
 561        ("mesa" ,mesa)
 562        ("opus" ,opus)
 563        ("perl" ,perl)
 564        ("pulseaudio" ,pulseaudio)
 565        ("python" ,python-wrapper)
 566        ("qt" ,qt-4)
 567        ("sdl" ,sdl)
 568        ("sdl-image" ,sdl-image)
 569        ("speex" ,speex)
 570        ("xcb-util-keysyms" ,xcb-util-keysyms)))
 571     (arguments
 572      `(#:configure-flags
 573        `("--disable-a52" ; FIXME: reenable once available
 574          ,(string-append "LDFLAGS=-Wl,-rpath -Wl,"
 575                          (assoc-ref %build-inputs "ffmpeg")
 576                          "/lib")))) ; needed for the tests
 577     (home-page "https://www.videolan.org/")
 578     (synopsis "Audio and video framework")
 579     (description "VLC is a cross-platform multimedia player and framework
 580 that plays most multimedia files as well as DVD, Audio CD, VCD, and various
 581 treaming protocols.")
 582     (license license:gpl2+)))
 583
 584 (define-public mplayer
 585   (package
 586     (name "mplayer")
 587     (version "1.1.1")
 588     (source (origin
 589              (method url-fetch)
 590              (uri (string-append
 591                    "http://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
 592                    version ".tar.xz"))
 593              (sha256
 594               (base32
 595                "0xlcg7rszrwmw29wqr0plsw5d1rq0hb7vjsq7bmmfsly2z1wg3yf"))))
 596     (build-system gnu-build-system)
 597     ;; FIXME: Add additional inputs once available.
 598     (native-inputs
 599      `(("pkg-config" ,pkg-config)))
 600     (inputs
 601      `(("alsa-lib" ,alsa-lib)
 602        ("cdparanoia" ,cdparanoia)
 603        ("fontconfig" ,fontconfig)
 604        ("freetype" ,freetype)
 605        ("lame" ,lame)
 606        ("libmpg123" ,mpg123)                      ; audio codec for MP3
 607 ;;        ("giflib" ,giflib) ; uses QuantizeBuffer, requires version >= 5
 608        ("libjpeg" ,libjpeg)
 609        ("libpng" ,libpng)
 610        ("libtheora" ,libtheora)
 611        ("libvorbis" ,libvorbis)
 612        ("libx11" ,libx11)
 613        ("libxxf86dga" ,libxxf86dga)
 614        ("libxinerama" ,libxinerama)
 615        ("libxv" ,libxv)
 616        ("mesa" ,mesa)
 617        ("perl" ,perl)
 618        ("pulseaudio" ,pulseaudio)
 619        ("python" ,python-wrapper)
 620        ("sdl" ,sdl)
 621        ("speex" ,speex)
 622        ("yasm" ,yasm)
 623        ("zlib" ,zlib)))
 624     (arguments
 625      `(#:tests? #f ; no test target
 626        #:phases
 627          (alist-replace
 628           'configure
 629           ;; configure does not work followed by "SHELL=..." and
 630           ;; "CONFIG_SHELL=..."; set environment variables instead
 631           (lambda* (#:key inputs outputs #:allow-other-keys)
 632             (let ((out (assoc-ref outputs "out"))
 633                   (libx11 (assoc-ref inputs "libx11")))
 634               (substitute* "configure"
 635                 (("#! /bin/sh") (string-append "#!" (which "bash"))))
 636               (setenv "SHELL" (which "bash"))
 637               (setenv "CONFIG_SHELL" (which "bash"))
 638               (zero? (system*
 639                       "./configure"
 640                       (string-append "--extra-cflags=-I"
 641                                      libx11 "/include") ; to detect libx11
 642                       "--disable-tremor-internal" ; forces external libvorbis
 643                       (string-append "--prefix=" out)
 644                       ;; Enable runtime cpu detection where supported,
 645                       ;; and choose a suitable target.
 646                       ,@(match (or (%current-target-system)
 647                                    (%current-system))
 648                           ("x86_64-linux"
 649                            '("--enable-runtime-cpudetection"
 650                              "--target=x86_64-linux"))
 651                           ("i686-linux"
 652                            '("--enable-runtime-cpudetection"
 653                              "--target=i686-linux"))
 654                           ("mips64el-linux"
 655                            '("--target=mips3-linux"))
 656                           (_ (list (string-append
 657                                     "--target="
 658                                     (or (%current-target-system)
 659                                         (nix-system->gnu-triplet
 660                                          (%current-system)))))))
 661                       "--disable-neon"
 662                       "--disable-iwmmxt"))))
 663           %standard-phases)))
 664     (home-page "http://www.mplayerhq.hu/design7/news.html")
 665     (synopsis "Audio and video player")
 666     (description "MPlayer is a movie player.  It plays most MPEG/VOB, AVI,
 667 Ogg/OGM, VIVO, ASF/WMA/WMV, QT/MOV/MP4, RealMedia, Matroska, NUT,
 668 NuppelVideo, FLI, YUV4MPEG, FILM, RoQ, PVA files.  One can watch VideoCD,
 669 SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
 670     (license license:gpl2)))
 671
 672 ;;; This is not version 2; it's a fork literally named "mplayer2".
 673 (define-public mplayer2
 674   (package
 675     (name "mplayer2")
 676     ;; There are no tarballs.  The 2.0 git tag, which is actually the first
 677     ;; release is from 2011.  The latest commit is from 2013 October, so we
 678     ;; use that commit.
 679     (version "201310")
 680     (source (origin
 681               (method git-fetch)
 682               (uri (git-reference
 683                     ;; XXX Change this if mplayer2.org goes up again.
 684                     (url "http://repo.or.cz/mplayer2.git")
 685                     (commit "2c378c71a4d9b1df382db9aa787b646628b4e3f9")))
 686               (sha256
 687                (base32
 688                 "0s8554sanj6cvnf0h148nsmjgy5v0568nmcza7grpv6fnmddpfam"))
 689               (file-name (string-append name "-" version "-checkout"))
 690               ;; Warning: after using this patch, one must pass the -ltheora
 691               ;; linker flag manually to configure; see below.
 692               (patches (list (search-patch "mplayer2-theora-fix.patch")))))
 693     (build-system gnu-build-system)
 694     (native-inputs
 695      `(("pkg-config" ,pkg-config)
 696        ("perl" ,perl)
 697        ("python" ,python)
 698        ("python-2" ,python-2)
 699        ("python-docutils" ,python-docutils)
 700        ;; ./configure uses which(1) to find rst2man.py.
 701        ("which" ,which)))
 702     ;; Missing features: DirectFB, Xss screensaver extensions, VDPAU, MNG,
 703     ;; libnut, DirectShow TV interface, Radio interfaces of all kinds, vstream
 704     ;; client, XMSS inputplugin support, joystick, lirc/lircc, and openal.
 705     ;; OpenAL support is experimental and causes compilation to fail with
 706     ;; linker errors.
 707     (inputs
 708      `(("alsa-lib" ,alsa-lib)
 709        ("faad2" ,faad2)
 710        ("ffmpeg" ,ffmpeg)
 711        ("gettext" ,gnu-gettext)
 712        ("jack" ,jack-2)
 713        ("ladspa" ,ladspa)
 714        ("lcms" ,lcms)
 715        ("liba52" ,liba52)
 716        ("libass" ,libass)
 717        ("libbluray" ,libbluray)
 718        ("libbs2b" ,libbs2b)
 719        ("libcaca" ,libcaca)
 720        ("libcdio-paranoia" ,libcdio-paranoia)
 721        ("libdca" ,libdca)
 722        ("libdv" ,libdv)
 723        ("libdvdread" ,libdvdread)
 724        ("libdvdnav" ,libdvdnav-4)
 725        ("libjpeg" ,libjpeg)
 726        ("libmad" ,libmad)
 727        ("libpng" ,libpng)
 728        ("libquvi" ,libquvi)
 729        ("libtheora" ,libtheora)
 730        ("libungif" ,libungif)
 731        ("libvorbis" ,libvorbis)
 732        ("libx11" ,libx11)
 733        ("libxinerama" ,libxinerama)
 734        ("libxv" ,libxv)
 735        ("mesa" ,mesa)
 736        ("mpg123" ,mpg123)
 737        ("ncurses" ,ncurses)
 738        ("portaudio" ,portaudio)
 739        ("pulseaudio" ,pulseaudio)
 740        ("rsound" ,rsound)
 741        ("samba" ,samba)
 742        ("sdl" ,sdl)
 743        ("speex" ,speex)
 744        ("xvid" ,xvid)))
 745     (arguments
 746      '(#:phases
 747        (alist-replace
 748         'configure
 749         ;; ./configure does not work followed by "SHELL=..." and
 750         ;; "CONFIG_SHELL=..."; set environment variables instead.
 751         (lambda* (#:key inputs outputs #:allow-other-keys)
 752           (setenv "SHELL" (which "bash"))
 753           (setenv "CONFIG_SHELL" (which "bash"))
 754           (substitute* "configure"
 755             (("/usr/X11") (assoc-ref inputs "libx11")))
 756           (zero?
 757            (system* "./configure"
 758                     (string-append "--prefix=" (assoc-ref outputs "out"))
 759                     "--enable-translation"
 760                     "--enable-runtime-cpudetection"
 761                     ;; This is needed in accordance with the theora patch.
 762                     "--extra-libs=-ltheoradec")))
 763         (alist-cons-before
 764          'build 'fix-TOOLS-shebangs
 765          (lambda _
 766            (substitute* (find-files "TOOLS" "\\.(sh|pl|py)$")
 767              (("/usr/bin/env") (which "env"))
 768              (("/usr/bin/perl") (which "perl"))
 769              (("/usr/bin/python3") (which "python3"))
 770              (("/usr/bin/python") (which "python"))))
 771          (alist-cons-before
 772           'build 'fix-input-buffer-padding-size
 773           (lambda _
 774             (substitute* "libmpdemux/demuxer.h"
 775               ;; This has to match with FFmpeg's FF_INPUT_BUFFER_PADDING_SIZE,
 776               ;; which has changed at some point.
 777               (("(#define MP_INPUT_BUFFER_PADDING_SIZE )[0-9]*" all)
 778                (string-append all "32"))))
 779           %standard-phases)))
 780        ;; No 'check' target.
 781        #:tests? #f))
 782     ;; XXX Change this if mplayer2.org goes up again.
 783     (home-page "http://repo.or.cz/w/mplayer2.git")
 784     (synopsis "Audio and video player")
 785     (description "mplayer2 is a general-purpose audio and video player.  It's
 786 a fork of the original MPlayer project, and contains further development in
 787 several areas.")
 788     ;; See file Copyright.  Most files are gpl2+ or compatible, but talloc.c
 789     ;; is under lgpl3+, thus the whole project becomes gpl3+.
 790     (license license:gpl3+)))
 791
 792 (define-public mpv
 793   (package
 794     (name "mpv")
 795     (version "0.9.0")
 796     (source (origin
 797               (method url-fetch)
 798               (uri (string-append
 799                     "https://github.com/mpv-player/mpv/archive/v" version
 800                     ".tar.gz"))
 801               (sha256
 802                (base32
 803                 "08nx0g6ji2d90f5w62g327szhkb7id7jzwgf3x069rc5id1x3bx7"))
 804               (file-name (string-append name "-" version ".tar.gz"))))
 805     (build-system waf-build-system)
 806     (native-inputs
 807      `(("perl" ,perl)
 808        ("pkg-config" ,pkg-config)
 809        ("python-docutils" ,python-docutils)))
 810     ;; Missing features: libguess, Wayland, VDPAU, V4L2
 811     (inputs
 812      `(("alsa-lib" ,alsa-lib)
 813        ("enca" ,enca)
 814        ("ffmpeg" ,ffmpeg)
 815        ("jack" ,jack-2)
 816        ("ladspa" ,ladspa)
 817        ("lcms" ,lcms)
 818        ("libass" ,libass)
 819        ("libbluray" ,libbluray)
 820        ("libcaca" ,libcaca)
 821        ("libbs2b" ,libbs2b)
 822        ("libcdio-paranoia" ,libcdio-paranoia)
 823        ("libdvdread" ,libdvdread)
 824        ("libdvdnav" ,libdvdnav)
 825        ("libjpeg" ,libjpeg)
 826        ("libva" ,libva)
 827        ("libx11" ,libx11)
 828        ("libxext" ,libxext)
 829        ("libxinerama" ,libxinerama)
 830        ("libxrandr" ,libxrandr)
 831        ("libxscrnsaver" ,libxscrnsaver)
 832        ("libxv" ,libxv)
 833        ("lua" ,lua)
 834        ("mesa" ,mesa)
 835        ("mpg123" ,mpg123)
 836        ("pulseaudio" ,pulseaudio)
 837        ("rsound" ,rsound)
 838        ("samba" ,samba)
 839        ("vapoursynth" ,vapoursynth)
 840        ("waf" ,(origin
 841                  (method url-fetch)
 842                  ;; Keep this in sync with the version in the bootstrap.py
 843                  ;; script of the source tarball.
 844                  (uri "http://www.freehackers.org/~tnagy/release/waf-1.8.4")
 845                  (sha256
 846                   (base32
 847                    "1a7skwgpl91adhcwlmdr76xzdpidh91hvcmj34zz6548bpx3a87h"))))
 848        ("youtube-dl" ,youtube-dl)
 849        ("zlib" ,zlib)))
 850     (arguments
 851      '(#:phases
 852        (modify-phases %standard-phases
 853          (add-before
 854           'configure 'setup-waf
 855           (lambda* (#:key inputs #:allow-other-keys)
 856             (copy-file (assoc-ref inputs "waf") "waf")
 857             (setenv "CC" "gcc")))
 858          (add-before
 859           'configure 'patch-wscript
 860           (lambda* (#:key inputs #:allow-other-keys)
 861             (substitute* "wscript"
 862               ;; XXX Remove this when our Samba package provides a .pc file.
 863               (("check_pkg_config\\('smbclient'\\)")
 864                "check_cc(lib='smbclient')")
 865               ;; XXX Remove this when our Lua package provides a .pc file.
 866               (("check_lua")
 867                "check_cc(lib='lua')")))))
 868        ;; No check function defined.
 869        #:tests? #f))
 870     (home-page "http://mpv.io/")
 871     (synopsis "Audio and video player")
 872     (description "mpv is a general-purpose audio and video player.  It is a
 873 fork of mplayer2 and MPlayer.  It shares some features with the former
 874 projects while introducing many more.")
 875     (license license:gpl2+)))
 876
 877 (define-public libvpx
 878   (package
 879     (name "libvpx")
 880     (version "1.4.0")
 881     (source (origin
 882               (method url-fetch)
 883               (uri (string-append "http://storage.googleapis.com/"
 884                                   "downloads.webmproject.org/releases/webm/"
 885                                   name "-" version ".tar.bz2"))
 886               (sha256
 887                (base32
 888                 "1r0ql5kgy0c8mh5w7iiqvsd7w5njl9f9cclc7m52ln8assrdk0pm"))))
 889     (build-system gnu-build-system)
 890     (arguments
 891      `(#:phases (alist-replace
 892                  'configure
 893                  (lambda* (#:key outputs #:allow-other-keys)
 894                    (setenv "CONFIG_SHELL" (which "bash"))
 895                    (let ((out (assoc-ref outputs "out")))
 896                      (setenv "LDFLAGS"
 897                              (string-append "-Wl,-rpath=" out "/lib"))
 898                      (zero? (system* "./configure"
 899                                      "--enable-shared"
 900                                      "--as=yasm"
 901                                      ,@(if (and (not (%current-target-system))
 902                                                 (string-prefix?
 903                                                  "armhf-"
 904                                                  (%current-system)))
 905                                            ;; When building on ARMv7, libvpx
 906                                            ;; assumes that NEON will be
 907                                            ;; available.  On Guix, armhf
 908                                            ;; does not require NEON, so we
 909                                            ;; build for ARMv6 and -marm (since
 910                                            ;; no thumb2 on ARMv6) to ensure
 911                                            ;; compatibility with all ARMv7
 912                                            ;; cores we support.  Based on
 913                                            ;; the Debian libvpx package.
 914                                            '("--target=armv6-linux-gcc"
 915                                              "--extra-cflags=-marm"
 916                                              "--enable-small")
 917                                            '())
 918                                      (string-append "--prefix=" out)))))
 919                  %standard-phases)
 920        #:tests? #f)) ; no check target
 921     (native-inputs
 922      `(("perl" ,perl)
 923        ("yasm" ,yasm)))
 924     (synopsis "VP8/VP9 video codec")
 925     (description "libvpx is a codec for the VP8/VP9 video compression format.")
 926     (license license:bsd-3)
 927     (home-page "http://www.webmproject.org/")))
 928
 929 (define-public youtube-dl
 930   (package
 931     (name "youtube-dl")
 932     (version "2015.06.25")
 933     (source (origin
 934               (method url-fetch)
 935               (uri (string-append "http://youtube-dl.org/downloads/"
 936                                   version "/youtube-dl-"
 937                                   version ".tar.gz"))
 938               (sha256
 939                (base32
 940                 "0a46qh27x5hhd9qpgsj171kh1kxxasz75771icqi2kp7m05zar3f"))))
 941     (build-system python-build-system)
 942     (inputs `(("setuptools" ,python-setuptools)))
 943     (home-page "http://youtube-dl.org")
 944     (synopsis "Download videos from YouTube.com and other sites")
 945     (description
 946      "youtube-dl is a small command-line program to download videos from
 947 YouTube.com and a few more sites.")
 948     (license license:public-domain)))
 949
 950 (define-public libbluray
 951   (package
 952     (name "libbluray")
 953     (version "0.7.0")
 954     (source (origin
 955               (method url-fetch)
 956               (uri (string-append "http://download.videolan.org/videolan/"
 957                                   name "/" version "/"
 958                                   name "-" version ".tar.bz2"))
 959               (sha256
 960                (base32
 961                 "13dngs4b4cv29f6b825dq14n77mfhvk1kjb42axpq494pfgyp6zp"))))
 962     (build-system gnu-build-system)
 963     (native-inputs `(("pkg-config" ,pkg-config)))
 964     (inputs
 965      `(("doxygen" ,doxygen)
 966        ("fontconfig" ,fontconfig)
 967        ("freetype" ,freetype)
 968        ("libxml2" ,libxml2)
 969        ("perl" ,perl)                   ;for doxygen
 970        ("texlive" ,texlive)))
 971     (home-page "http://www.videolan.org/developers/libbluray.html")
 972     (synopsis "Blu-Ray Disc playback library")
 973     (description
 974      "libbluray is a library designed for Blu-Ray Disc playback for media
 975 players, like VLC or MPlayer.")
 976     (license license:lgpl2.1+)))
 977
 978 (define-public libdvdread
 979   (package
 980     (name "libdvdread")
 981     (version "5.0.3")
 982     (source (origin
 983               (method url-fetch)
 984               (uri (string-append "http://download.videolan.org/videolan/"
 985                                   name "/" version "/"
 986                                   name "-" version ".tar.bz2"))
 987               (sha256
 988                (base32
 989                 "0ayqiq0psq18rcp6f5pz82sxsq66v0kwv0y55dbrcg68plnxy71j"))))
 990     (build-system gnu-build-system)
 991     (home-page "http://dvdnav.mplayerhq.hu/")
 992     (synopsis "Library for reading video DVDs")
 993     (description
 994      "Libdvdread provides a simple foundation for reading DVD video
 995 disks.  It provides the functionality that is required to access many
 996 DVDs.  It parses IFO files, reads NAV-blocks, and performs CSS
 997 authentication and descrambling (if an external libdvdcss library is
 998 installed).")
 999     (license license:gpl2+)))
1000
1001 (define-public libdvdnav
1002   (package
1003     (name "libdvdnav")
1004     (version "5.0.3")
1005     (source (origin
1006               (method url-fetch)
1007               (uri (string-append "http://download.videolan.org/videolan/"
1008                                   name "/" version "/"
1009                                   name "-" version ".tar.bz2"))
1010               (sha256
1011                (base32
1012                 "0v8byv5z598k06rqzdmj7739vc86xq3zf79zfr698dib7lz055sh"))))
1013     (build-system gnu-build-system)
1014     (native-inputs
1015      `(("pkg-config" ,pkg-config)))
1016     (inputs
1017      `(("libdvdread" ,libdvdread)))
1018     (home-page "http://dvdnav.mplayerhq.hu/")
1019     (synopsis "Library for video DVD navigation features")
1020     (description
1021      "Libdvdnav is a library for developers of multimedia
1022 applications.  It allows easy use of sophisticated DVD navigation features
1023 such as DVD menus, multiangle playback and even interactive DVD games.  All
1024 this functionality is provided through a simple API which provides the DVD
1025 playback as a single logical stream of blocks, intermitted by special
1026 dvdnav events to report certain conditions.  The main usage of libdvdnav is
1027 a loop regularly calling a function to get the next block, surrounded by
1028 additional calls to tell the library of user interaction.  The whole
1029 DVD virtual machine and internal playback states are completely
1030 encapsulated.")
1031     (license license:gpl2+)))
1032
1033 (define-public libdvdnav-4
1034   (package
1035     (inherit libdvdnav)
1036     (version "4.2.1")
1037     (source (origin
1038               (method url-fetch)
1039               (uri
1040                (string-append
1041                 "http://download.videolan.org/videolan/libdvdnav/libdvdnav-"
1042                 version ".tar.xz"))
1043               (sha256
1044                (base32
1045                 "0wi3gy408c8xj0ism0hckv5jbfh3lg4pmgxv87gbch9jrhp2gjkz"))))
1046     (native-inputs
1047      `(("pkg-config" ,pkg-config)
1048        ("autoconf" ,autoconf)
1049        ("automake" ,automake)
1050        ("libtool" ,libtool)))
1051     (arguments
1052      '(#:phases
1053        (alist-cons-after
1054         'unpack 'autoreconf
1055         (lambda _
1056           (zero? (system* "autoreconf" "-vif")))
1057         %standard-phases)))))
1058
1059 (define-public libdvdcss
1060   (package
1061     (name "libdvdcss")
1062     (version "1.3.0")
1063     (source (origin
1064               (method url-fetch)
1065               (uri (string-append "http://download.videolan.org/videolan/"
1066                                   name "/" version "/"
1067                                   name "-" version ".tar.bz2"))
1068               (sha256
1069                (base32
1070                 "158k9zagmbk5bkbz96l6lwhh7xcgfcnzflkr4vblskhcab6llhbw"))))
1071     (build-system gnu-build-system)
1072     (home-page "http://www.videolan.org/developers/libdvdcss.html")
1073     (synopsis "Library for accessing DVDs as block devices")
1074     (description
1075      "libdvdcss is a simple library designed for accessing DVDs like a block
1076 device without having to bother about the decryption.")
1077     (license license:gpl2+)))
1078
1079 (define-public srt2vtt
1080   (package
1081     (name "srt2vtt")
1082     (version "0.1")
1083     (source (origin
1084               (method url-fetch)
1085               (uri (string-append
1086                     "http://dthompson.us/releases/srt2vtt/srt2vtt-"
1087                     version ".tar.gz"))
1088               (sha256
1089                (base32
1090                 "16b377znjm6qlga5yb8aj7b7bcisa1ghcnj2lrb1d30lvxp4liif"))))
1091     (build-system gnu-build-system)
1092     (inputs
1093      `(("guile" ,guile-2.0)))
1094     (synopsis "SubRip to WebVTT subtitle converter")
1095     (description "srt2vtt converts SubRip formatted subtitles to WebVTT format
1096 for use with HTML5 video.")
1097     (home-page "http://dthompson.us/pages/software/srt2vtt")
1098     (license license:gpl3+)))
1099
1100 (define-public avidemux
1101   (package
1102     (name "avidemux")
1103     (version "2.6.8")
1104     (source (origin
1105              (method url-fetch)
1106              (uri (string-append
1107                    "mirror://sourceforge/avidemux/avidemux_"
1108                    version ".tar.gz"))
1109              (sha256
1110               (base32
1111                "10p60wjkzf1bxqcb6i7bx4hbqy3vqg598p3l9lc4v2c9b8iqr682"))))
1112     (build-system cmake-build-system)
1113     (native-inputs
1114      `(("pkg-config" ,pkg-config)))
1115     ;; FIXME: Once packaged, add libraries not found during the build.
1116     (inputs
1117      `(("alsa-lib" ,alsa-lib)
1118        ("fontconfig" ,fontconfig)
1119        ("freetype" ,freetype)
1120        ("fribidi" ,fribidi)
1121        ("glu" ,glu)
1122        ("gtk+" ,gtk+)
1123        ("jack" ,jack-1)
1124        ("lame" ,lame)
1125        ("libvorbis" ,libvorbis)
1126        ("libvpx" ,libvpx)
1127        ("libxv" ,libxv)
1128        ("perl" ,perl)
1129        ("pulseaudio" ,pulseaudio)
1130        ("python" ,python-wrapper)
1131        ("qt" ,qt-4)
1132        ("sdl" ,sdl)
1133        ("sqlite" ,sqlite)
1134        ("yasm" ,yasm)
1135        ("zlib" ,zlib)))
1136     (arguments
1137      `(#:tests? #f ; no check target
1138        #:phases
1139        ;; Make sure files inside the included ffmpeg tarball are
1140        ;; patch-shebanged.
1141        (alist-cons-before
1142         'patch-source-shebangs 'unpack-ffmpeg
1143         (lambda _
1144           (with-directory-excursion "avidemux_core/ffmpeg_package"
1145             (system* "tar" "xf" "ffmpeg-1.2.1.tar.bz2")
1146             (delete-file "ffmpeg-1.2.1.tar.bz2")))
1147         (alist-cons-after
1148          'patch-source-shebangs 'repack-ffmpeg
1149          (lambda _
1150            (with-directory-excursion "avidemux_core/ffmpeg_package"
1151              (substitute* "ffmpeg-1.2.1/configure"
1152                (("#! /bin/sh") (string-append "#!" (which "bash"))))
1153              (system* "tar" "cjf" "ffmpeg-1.2.1.tar.bz2" "ffmpeg-1.2.1"
1154                       ;; avoid non-determinism in the archive
1155                       "--mtime=@0" "--owner=root:0" "--group=root:0")
1156              (delete-file-recursively "ffmpeg-1.2.1")))
1157          (alist-replace 'configure
1158           (lambda _
1159             ;; Copy-paste settings from the cmake build system.
1160             (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
1161             (setenv "CMAKE_INCLUDE_PATH" (getenv "CPATH")))
1162           (alist-replace 'build
1163             (lambda* (#:key inputs outputs #:allow-other-keys)
1164               (let*
1165                 ((out (assoc-ref outputs "out"))
1166                  (lib (string-append out "/lib64"))
1167                  (top (getcwd))
1168                  (sdl (assoc-ref inputs "sdl"))
1169                  (build_component
1170                    (lambda* (component srcdir #:optional (args '()))
1171                      (let ((builddir (string-append "build_" component)))
1172                        (mkdir builddir)
1173                        (with-directory-excursion builddir
1174                         (zero? (and
1175                           (apply system* "cmake"
1176                                  "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
1177                                  (string-append "-DCMAKE_INSTALL_PREFIX=" out)
1178                                  (string-append "-DCMAKE_INSTALL_RPATH=" lib)
1179                                  (string-append "-DCMAKE_SHARED_LINKER_FLAGS="
1180                                                 "\"-Wl,-rpath=" lib "\"")
1181                                  (string-append "-DAVIDEMUX_SOURCE_DIR=" top)
1182                                  (string-append "-DSDL_INCLUDE_DIR="
1183                                                 sdl "/include/SDL")
1184                                  (string-append "../" srcdir)
1185                                  args)
1186                           (system* "make" "-j"
1187                                    (number->string (parallel-job-count)))
1188                           (system* "make" "install"))))))))
1189                 (mkdir out)
1190                 (and (build_component "core" "avidemux_core")
1191                      (build_component "cli" "avidemux/cli")
1192                      (build_component "qt4" "avidemux/qt4")
1193                      (build_component "gtk" "avidemux/gtk")
1194                      (build_component "plugins_common" "avidemux_plugins"
1195                                      '("-DPLUGIN_UI=COMMON"))
1196                      (build_component "plugins_cli" "avidemux_plugins"
1197                                      '("-DPLUGIN_UI=CLI"))
1198                      (build_component "plugins_qt4" "avidemux_plugins"
1199                                      '("-DPLUGIN_UI=QT4"))
1200                      (build_component "plugins_gtk" "avidemux_plugins"
1201                                      '("-DPLUGIN_UI=GTK"))
1202                      (build_component "plugins_settings" "avidemux_plugins"
1203                                      '("-DPLUGIN_UI=SETTINGS")))
1204                 ;; Remove .exe and .dll file.
1205                 (delete-file-recursively
1206                   (string-append out "/share/ADM6_addons"))))
1207             (alist-delete 'install
1208                %standard-phases)))))))
1209     (home-page "http://fixounet.free.fr/avidemux/")
1210     (synopsis "Video editor")
1211     (description "Avidemux is a video editor designed for simple cutting,
1212 filtering and encoding tasks.  It supports many file types, including AVI,
1213 DVD compatible MPEG files, MP4 and ASF, using a variety of codecs.  Tasks
1214 can be automated using projects, job queue and powerful scripting
1215 capabilities.")
1216     ;; Software with various licenses is included, see License.txt.
1217     (license license:gpl2+)))
1218
1219 (define-public vapoursynth
1220   (package
1221     (name "vapoursynth")
1222     (version "26")
1223     (source (origin
1224               (method url-fetch)
1225               (uri (string-append
1226                     "https://github.com/vapoursynth/vapoursynth/archive/R"
1227                     version ".tar.gz"))
1228               (sha256
1229                (base32
1230                 "1qbg5kg0kgrxldd0ckn1s7vy7vx2ig8nqzv6djp38fxccpzw3x9k"))))
1231     (build-system gnu-build-system)
1232     (native-inputs
1233      `(("autoconf" ,autoconf)
1234        ("automake" ,automake)
1235        ("cython" ,python-cython)
1236        ("libtool" ,libtool)
1237        ("pkg-config" ,pkg-config)
1238        ("python" ,python)
1239        ("yasm" ,yasm)))
1240     (inputs
1241      `(("ffmpeg" ,ffmpeg)
1242        ("libass" ,libass)
1243        ("tesseract-ocr" ,tesseract-ocr)))
1244     (arguments
1245      '(#:phases
1246        (modify-phases %standard-phases
1247          (add-after
1248           'unpack 'autogen
1249           (lambda _
1250             (zero? (system* "sh" "autogen.sh")))))))
1251     (home-page "http://www.vapoursynth.com/")
1252     (synopsis "Video processing framework")
1253     (description "VapourSynth is a C++ library and Python module for video
1254 manipulation.  It aims to be a modern rewrite of Avisynth, supporting
1255 multithreading, generalized colorspaces, per frame properties, and videos with
1256 format changes.")
1257     ;; As seen from the source files.
1258     (license license:lgpl2.1+)))
1259
1260 (define-public xvid
1261   (package
1262     (name "xvid")
1263     (version "1.3.3")
1264     (source (origin
1265               (method url-fetch)
1266               (uri (string-append
1267                     "http://downloads.xvid.org/downloads/xvidcore-"
1268                     version ".tar.bz2"))
1269               (sha256
1270                (base32
1271                 "0m5g75qvapr7xpywg6a83v5x19kw1nm9l2q48lg7jvvpba0bmqdh"))))
1272     (build-system gnu-build-system)
1273     (native-inputs `(("yasm" ,yasm)))
1274     (arguments
1275      '(#:phases
1276        (alist-cons-before
1277         'configure 'pre-configure
1278         (lambda _
1279           (chdir "build/generic")
1280           (substitute* "configure"
1281             (("#! /bin/sh") (string-append "#!" (which "sh")))))
1282         %standard-phases)
1283        ;; No 'check' target.
1284        #:tests? #f))
1285     (home-page "https://www.xvid.com/")
1286     (synopsis "MPEG-4 Part 2 Advanced Simple Profile video codec")
1287     (description "Xvid is an MPEG-4 Part 2 Advanced Simple Profile (ASP) video
1288 codec library.  It uses ASP features such as b-frames, global and quarter
1289 pixel motion compensation, lumi masking, trellis quantization, and H.263, MPEG
1290 and custom quantization matrices.")
1291     (license license:gpl2+)))
1292
1293 (define-public livestreamer
1294   (package
1295     (name "livestreamer")
1296     (version "1.12.1")
1297     (source (origin
1298               (method url-fetch)
1299               (uri (string-append
1300                     "https://github.com/chrippa/livestreamer/archive/v"
1301                     version ".tar.gz"))
1302               (file-name (string-append "livestreamer-" version ".tar.gz"))
1303               (sha256
1304                (base32
1305                 "1dhgk8v8q1h3km4g5jc0cmjsxdaa2d456fvdb2wk7hmxmmwbqm9j"))))
1306     (build-system python-build-system)
1307     (arguments
1308      '(#:tests? #f)) ; tests rely on external web servers
1309     (native-inputs
1310      `(("python-setuptools" ,python-setuptools)))
1311     (propagated-inputs
1312      `(("python-requests" ,python-requests)
1313        ("python-singledispatch" ,python-singledispatch)))
1314     (synopsis "Internet video stream viewer")
1315     (description "Livestreamer is a command-line utility that extracts streams
1316 from various services and pipes them into a video playing application.")
1317     (home-page "http://livestreamer.io/")
1318     (license license:bsd-2)))