gnu/packages/video.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2016 David Thompson <davet@gnu.org>
   4 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   6 ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2015 Andy Patterson <ajpatter@uwaterloo.ca>
   8 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
   9 ;;; Copyright © 2015, 2016 Alex Vong <alexvong1995@gmail.com>
  10 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  11 ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
  12 ;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
  13 ;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
  14 ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
  15 ;;;
  16 ;;; This file is part of GNU Guix.
  17 ;;;
  18 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  19 ;;; under the terms of the GNU General Public License as published by
  20 ;;; the Free Software Foundation; either version 3 of the License, or (at
  21 ;;; your option) any later version.
  22 ;;;
  23 ;;; GNU Guix is distributed in the hope that it will be useful, but
  24 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  25 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26 ;;; GNU General Public License for more details.
  27 ;;;
  28 ;;; You should have received a copy of the GNU General Public License
  29 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  30
  31 (define-module (gnu packages video)
  32   #:use-module (ice-9 match)
  33   #:use-module (srfi srfi-1)
  34   #:use-module (srfi srfi-26)
  35   #:use-module ((guix licenses) #:prefix license:)
  36   #:use-module (guix utils)
  37   #:use-module (guix packages)
  38   #:use-module (guix download)
  39   #:use-module (guix git-download)
  40   #:use-module (guix svn-download)
  41   #:use-module (guix build-system cmake)
  42   #:use-module (guix build-system gnu)
  43   #:use-module (guix build-system glib-or-gtk)
  44   #:use-module (guix build-system python)
  45   #:use-module (guix build-system waf)
  46   #:use-module (gnu packages)
  47   #:use-module (gnu packages algebra)
  48   #:use-module (gnu packages audio)
  49   #:use-module (gnu packages autotools)
  50   #:use-module (gnu packages avahi)
  51   #:use-module (gnu packages base)
  52   #:use-module (gnu packages bison)
  53   #:use-module (gnu packages cdrom)
  54   #:use-module (gnu packages compression)
  55   #:use-module (gnu packages curl)
  56   #:use-module (gnu packages databases)
  57   #:use-module (gnu packages elf)
  58   #:use-module (gnu packages flex)
  59   #:use-module (gnu packages fontutils)
  60   #:use-module (gnu packages freedesktop)
  61   #:use-module (gnu packages fribidi)
  62   #:use-module (gnu packages gettext)
  63   #:use-module (gnu packages ghostscript)
  64   #:use-module (gnu packages gl)
  65   #:use-module (gnu packages glib)
  66   #:use-module (gnu packages guile)
  67   #:use-module (gnu packages gnupg)
  68   #:use-module (gnu packages gtk)
  69   #:use-module (gnu packages image)
  70   #:use-module (gnu packages linux)
  71   #:use-module (gnu packages lua)
  72   #:use-module (gnu packages mp3)
  73   #:use-module (gnu packages ncurses)
  74   #:use-module (gnu packages ocr)
  75   #:use-module (gnu packages perl)
  76   #:use-module (gnu packages pkg-config)
  77   #:use-module (gnu packages popt)
  78   #:use-module (gnu packages pulseaudio)
  79   #:use-module (gnu packages python)
  80   #:use-module (gnu packages qt)
  81   #:use-module (gnu packages sdl)
  82   #:use-module (gnu packages ssh)
  83   #:use-module (gnu packages texinfo)
  84   #:use-module (gnu packages textutils)
  85   #:use-module (gnu packages tls)
  86   #:use-module (gnu packages version-control)
  87   #:use-module (gnu packages web)
  88   #:use-module (gnu packages xdisorg)
  89   #:use-module (gnu packages xiph)
  90   #:use-module (gnu packages xml)
  91   #:use-module (gnu packages xorg)
  92   #:use-module (gnu packages assembly)
  93   #:use-module (gnu packages zip))
  94
  95 (define-public aalib
  96   (package
  97     (name "aalib")
  98     (version "1.4rc5")
  99     (source (origin
 100               (method url-fetch)
 101               (uri (string-append "mirror://sourceforge/aa-project/aa-lib/"
 102                                   version "/" name "-" version ".tar.gz"))
 103               (sha256
 104                (base32
 105                 "1vkh19gb76agvh4h87ysbrgy82hrw88lnsvhynjf4vng629dmpgv"))))
 106     (build-system gnu-build-system)
 107     (native-inputs
 108      `(("makeinfo" ,texinfo)))
 109     (inputs
 110      `(("ncurses" ,ncurses)))
 111     (arguments
 112      `(#:phases
 113        (modify-phases %standard-phases
 114          (replace 'configure
 115                   (lambda* (#:key build inputs outputs #:allow-other-keys)
 116                     ;; This old `configure' script doesn't support
 117                     ;; variables passed as arguments.
 118                     (let ((out     (assoc-ref outputs "out"))
 119                           (ncurses (assoc-ref inputs "ncurses")))
 120                       (setenv "CONFIG_SHELL" (which "bash"))
 121                       (zero? (system* "./configure"
 122                                       (string-append "--prefix=" out)
 123                                       (string-append "--build=" build)
 124                                       ;; The ancient config.guess is unable to
 125                                       ;; guess the host triplet on mips64el.
 126                                       ,@(if (string=? "mips64el-linux"
 127                                                       (%current-system))
 128                                             '("--host=mips64el-unknown-linux-gnu")
 129                                             '())
 130                                       (string-append "--with-ncurses="
 131                                                      ncurses)))))))))
 132     (home-page "http://aa-project.sourceforge.net/aalib/")
 133     (synopsis "ASCII-art library")
 134     (description
 135      "AA-lib is a low level gfx library which does not require graphics device.
 136 In fact, there is no graphical output possible.  AA-lib replaces those
 137 old-fashioned output methods with powerful ascii-art renderer.")
 138     (license license:lgpl2.0+)))
 139
 140 (define-public liba52
 141   (package
 142     (name "liba52")
 143     (version "0.7.4")
 144     (source (origin
 145               (method url-fetch)
 146               (uri (string-append
 147                     ;; A mirror://sourceforge URI doesn't work, presumably
 148                     ;; because the SourceForge project is misconfigured.
 149                     "http://liba52.sourceforge.net/files/a52dec-" version
 150                     ".tar.gz"))
 151               (sha256
 152                (base32
 153                 "0czccp4fcpf2ykp16xcrzdfmnircz1ynhls334q374xknd5747d2"))
 154               (patches (search-patches "liba52-enable-pic.patch"
 155                                        "liba52-set-soname.patch"
 156                                        "liba52-use-mtune-not-mcpu.patch"
 157                                        "liba52-link-with-libm.patch"))))
 158     (build-system gnu-build-system)
 159     ;; XXX We need to run ./bootstrap because of the build system fixes above.
 160     (native-inputs
 161      `(("autoconf" ,autoconf)
 162        ("automake" ,automake)
 163        ("libtool" ,libtool)))
 164     (arguments `(#:configure-flags '("--enable-shared")
 165                  #:phases
 166                  (modify-phases %standard-phases
 167                    ;; XXX We need to run ./bootstrap because of the build
 168                    ;; system fixes above.
 169                    (add-after
 170                     'unpack 'bootstrap
 171                     (lambda _ (zero? (system* "sh" "bootstrap")))))))
 172     (home-page "http://liba52.sourceforge.net/")
 173     (synopsis "ATSC A/52 stream decoder")
 174     (description "liba52 is a library for decoding ATSC A/52 streams.  The
 175 A/52 standard is used in a variety of applications, including digital
 176 television and DVD.  It is also known as AC-3.")
 177     (license license:gpl2+)))
 178
 179 (define-public libmpeg2
 180   (package
 181     (name "libmpeg2")
 182     (version "0.5.1")
 183     (source (origin
 184               (method url-fetch)
 185               ;; A mirror://sourceforge URI doesn't work, presumably
 186               ;; because the SourceForge project is misconfigured.
 187               (uri (string-append "http://libmpeg2.sourceforge.net/files/"
 188                                   name "-" version ".tar.gz"))
 189               (sha256
 190                (base32
 191                 "1m3i322n2fwgrvbs1yck7g5md1dbg22bhq5xdqmjpz5m7j4jxqny"))))
 192     (inputs
 193      `(("libx11" ,libx11)
 194        ("libxext" ,libxext)
 195        ("libxv" ,libxv)
 196        ("libsm" ,libsm)
 197        ("libice" ,libice)
 198        ("sdl" ,sdl)))
 199     (build-system gnu-build-system)
 200     (home-page "http://libmpeg2.sourceforge.net/")
 201     (synopsis "MPEG1 and MPEG2 video decoder library")
 202     (description
 203      "libmpeg2 is a library which can decode MPEG1 and MPEG2 video streams.")
 204     (license license:gpl2+)))
 205
 206 (define-public libx264
 207   (package
 208     (name "libx264")
 209     (version "20160220-2245")
 210     (source (origin
 211               (method url-fetch)
 212               (uri (string-append "http://download.videolan.org/pub/x264/snapshots/"
 213                                   "x264-snapshot-" version ".tar.bz2"))
 214               (sha256
 215                (base32
 216                 "12zyzbiihfhamf7yi4qqaj6k0nisnrydvfr36kxadvmsm7dg4sj3"))))
 217     (build-system gnu-build-system)
 218     (native-inputs
 219      `(("pkg-config" ,pkg-config)
 220        ("yasm" ,yasm)))
 221     ;; TODO: Add gpac input
 222     (arguments
 223      `(#:tests? #f  ;no check target
 224        #:configure-flags '("--enable-shared"
 225                            ;; Don't build the command-line program.  If we
 226                            ;; want it later, we should do so in a different
 227                            ;; package to avoid a circular dependency (the x264
 228                            ;; program depends on ffmpeg and ffmpeg depends on
 229                            ;; libx264).
 230                            "--disable-cli"
 231
 232                            ;; On MIPS, we must pass "--disable-asm" or else
 233                            ;; configure fails after printing: "You specified a
 234                            ;; pre-MSA CPU in your CFLAGS. If you really want
 235                            ;; to run on such a CPU, configure with
 236                            ;; --disable-asm."
 237                            ,@(if (string-prefix? "mips"
 238                                                  (or (%current-target-system)
 239                                                      (%current-system)))
 240                                  '("--disable-asm")
 241                                  '()))))
 242     (home-page "http://www.videolan.org/developers/x264.html")
 243     (synopsis "H.264 video coding library")
 244     (description "libx264 is an advanced encoding library for creating
 245 H.264 (MPEG-4 AVC) video streams.")
 246     (license (list license:gpl2+         ;most files
 247                    license:isc           ;common/x86/x86inc.asm
 248                    license:lgpl2.1+      ;extras/getopt.c
 249                    license:bsd-3         ;extras/inttypes.h
 250                    (license:non-copyleft ;extras/cl*.h
 251                     "file://extras/cl.h"
 252                     "See extras/cl.h in the distribution.")))))
 253
 254 (define-public x265
 255   (package
 256     (name "x265")
 257     (version "2.1")
 258     (source
 259       (origin
 260         (method url-fetch)
 261         (uri (string-append "https://download.videolan.org/videolan/x265/"
 262                             "x265_" version ".tar.gz"))
 263         (sha256
 264          (base32
 265           "0hx6sr9l7586gs4qds2sj0i1m5brxkaqq3cwmibhfb559fpvkz48"))
 266         (modules '((guix build utils)))
 267         (snippet
 268          '(delete-file-recursively "source/compat/getopt"))))
 269     (build-system cmake-build-system)
 270     (arguments
 271      `(#:tests? #f ; tests are skipped if cpu-optimized code isn't built
 272        #:phases
 273        (modify-phases %standard-phases
 274          (add-before 'configure 'prepare-build
 275            (lambda _
 276              (delete-file-recursively "build")
 277              (chdir "source")
 278              #t)))))
 279     (home-page "http://x265.org/")
 280     (synopsis "Library for encoding h.265/HEVC video streams")
 281     (description "x265 is a H.265 / HEVC video encoder application library,
 282 designed to encode video or images into an H.265 / HEVC encoded bitstream.")
 283     (license license:gpl2+)))
 284
 285 (define-public libass
 286   (package
 287     (name "libass")
 288     (version "0.13.4")
 289     (source (origin
 290               (method url-fetch)
 291               (uri (string-append
 292                     "https://github.com/libass/libass/releases/download/"
 293                     version "/libass-" version ".tar.xz"))
 294               (sha256
 295                (base32
 296                 "1dlzkjybnpl2fkvyjq0qblb7qw12cs893bs7zj3rvf8ij342yjnq"))))
 297     (build-system gnu-build-system)
 298     (native-inputs
 299      `(("pkg-config" ,pkg-config)
 300        ("yasm" ,yasm)))
 301     (propagated-inputs
 302      `(("freetype" ,freetype)
 303        ("fribidi" ,fribidi)
 304        ("fontconfig" ,fontconfig)
 305        ("harfbuzz" ,harfbuzz)
 306        ("enca" ,enca)))
 307     (home-page "https://github.com/libass/libass")
 308     (synopsis "Subtitle rendering library for the ASS/SSA format")
 309     (description "libass is a subtitle rendering library for the
 310 ASS/SSA (Advanced Substation Alpha/SubStation Alpha) subtitle format.")
 311     (license license:isc)))
 312
 313 (define-public libcaca
 314   (package
 315     (name "libcaca")
 316     (version "0.99.beta19")
 317     (source (origin
 318               (method url-fetch)
 319               (uri (string-append "http://caca.zoy.org/files/libcaca/libcaca-"
 320                                   version ".tar.gz"))
 321               (sha256
 322                (base32
 323                 "1x3j6yfyxl52adgnabycr0n38j9hx2j74la0hz0n8cnh9ry4d2qj"))))
 324     (build-system gnu-build-system)
 325     (native-inputs `(("pkg-config" ,pkg-config)))
 326     (inputs
 327      `(("freeglut" ,freeglut)
 328        ("ftgl" ,ftgl)
 329        ("imlib2" ,imlib2)
 330        ("libx11" ,libx11)
 331        ("mesa" ,mesa)
 332        ("ncurses" ,ncurses)
 333        ("zlib" ,zlib)))
 334     (home-page "http://caca.zoy.org/wiki/libcaca")
 335     (synopsis "Colour ASCII-art library")
 336     (description "libcaca is a graphics library that outputs text instead of
 337 pixels, so that it can work on older video cards or text terminals.  It
 338 supports Unicode, 2048 colors, dithering of color images, and advanced text
 339 canvas operations.")
 340     (license (license:fsf-free "file://COPYING")))) ;WTFPL version 2
 341
 342 (define-public libdca
 343   (package
 344     (name "libdca")
 345     (version "0.0.5")
 346     (source (origin
 347               (method url-fetch)
 348               (uri (string-append
 349                     "http://download.videolan.org/pub/videolan/libdca/"
 350                     version "/libdca-" version ".tar.bz2"))
 351               (sha256
 352                (base32
 353                 "0hh6a7l8vvccsd5i1fkv9av2gzv9fy8m0b8jpsn5p6hh4bh2586v"))))
 354     (build-system gnu-build-system)
 355     (home-page "http://www.videolan.org/developers/libdca.html")
 356     (synopsis "DTS Coherent Acoustics decoder")
 357     (description "libdca is a library for decoding DTS Coherent Acoustics
 358 streams.")
 359     (license license:gpl2+)))
 360
 361 (define-public libdv
 362   (package
 363     (name "libdv")
 364     (version "1.0.0")
 365     (source (origin
 366               (method url-fetch)
 367               (uri (string-append
 368                     "mirror://sourceforge/" name "/" name "/"
 369                     version "/" name "-" version ".tar.gz"))
 370               (sha256
 371                (base32
 372                 "1fl96f2xh2slkv1i1ix7kqk576a0ak1d33cylm0mbhm96d0761d3"))))
 373     (build-system gnu-build-system)
 374     (native-inputs `(("pkg-config" ,pkg-config)))
 375     (inputs `(("libxv" ,libxv)))
 376     (home-page "http://libdv.sourceforge.net/")
 377     (synopsis "DV video (IEC 61834 and SMPTE 314M) codec")
 378     (description "The Quasar DV codec (libdv) is a software codec for DV
 379 video, the encoding format used by most digital camcorders, typically those
 380 that support the IEEE 1394 (a.k.a. FireWire or i.Link) interface.  Libdv was
 381 developed according to the official standards for DV video: IEC 61834 and
 382 SMPTE 314M.")
 383     (license license:lgpl2.1+)))
 384
 385 (define-public libva
 386   (package
 387     (name "libva")
 388     (version "1.7.1")
 389     (source
 390      (origin
 391        (method url-fetch)
 392        (uri (string-append
 393              "https://www.freedesktop.org/software/vaapi/releases/libva/libva-"
 394              version".tar.bz2"))
 395        (sha256
 396         (base32 "1j8mb3p9kafhp30r3kmndnrklvzycc2ym0w6xdqz6m7jap626028"))))
 397     (build-system gnu-build-system)
 398     (native-inputs
 399      `(("pkg-config" ,pkg-config)))
 400     (inputs
 401      `(("libdrm" ,libdrm)
 402        ("libx11" ,libx11)
 403        ("libxext" ,libxext)
 404        ("libxfixes" ,libxfixes)
 405        ("mesa" ,mesa)))
 406     (arguments
 407      `(#:phases
 408        (modify-phases %standard-phases
 409          (add-before
 410           'build 'fix-dlopen-paths
 411           (lambda* (#:key outputs #:allow-other-keys)
 412             (let ((out (assoc-ref outputs "out")))
 413               (substitute* "va/drm/va_drm_auth_x11.c"
 414                 (("\"libva-x11\\.so\\.%d\"")
 415                  (string-append "\"" out "/lib/libva-x11.so.%d\"")))))))
 416        ;; Most drivers are in mesa's $prefix/lib/dri, so use that.  (Can be
 417        ;; overridden at run-time via LIBVA_DRIVERS_PATH.)
 418        #:configure-flags
 419        (list (string-append "--with-drivers-path="
 420                             (assoc-ref %build-inputs "mesa") "/lib/dri"))
 421        ;; However, we can't write to mesa's store directory, so override the
 422        ;; following make variable to install the dummy driver to libva's
 423        ;; $prefix/lib/dri directory.
 424        #:make-flags
 425        (list (string-append "dummy_drv_video_ladir="
 426                             (assoc-ref %outputs "out") "/lib/dri"))))
 427     (home-page "https://www.freedesktop.org/wiki/Software/vaapi/")
 428     (synopsis "Video acceleration library")
 429     (description "The main motivation for VA-API (Video Acceleration API) is
 430 to enable hardware accelerated video decode/encode at various
 431 entry-points (VLD, IDCT, Motion Compensation etc.) for prevailing coding
 432 standards (MPEG-2, MPEG-4 ASP/H.263, MPEG-4 AVC/H.264, and VC-1/VMW3).")
 433     (license license:expat)))
 434
 435 (define-public ffmpeg
 436   (package
 437     (name "ffmpeg")
 438     (version "3.2")
 439     (source (origin
 440              (method url-fetch)
 441              (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
 442                                  version ".tar.xz"))
 443              (sha256
 444               (base32
 445                "1nnmd3h9pr2zic08isjcm1cmvcyd0aimpayb9r4qy45bihdhrxw8"))))
 446     (build-system gnu-build-system)
 447     (inputs
 448      `(("fontconfig" ,fontconfig)
 449        ("freetype" ,freetype)
 450        ("gnutls" ,gnutls)
 451        ("opus" ,opus)
 452        ("ladspa" ,ladspa)
 453        ("lame" ,lame)
 454        ("libass" ,libass)
 455        ("libbluray" ,libbluray)
 456        ("libcaca" ,libcaca)
 457        ("libcdio-paranoia" ,libcdio-paranoia)
 458        ("libtheora" ,libtheora)
 459        ("libvdpau" ,libvdpau)
 460        ("libvorbis" ,libvorbis)
 461        ("libvpx" ,libvpx)
 462        ("libx11" ,libx11)
 463        ("libx264" ,libx264)
 464        ("mesa" ,mesa)
 465        ("openal" ,openal)
 466        ("pulseaudio" ,pulseaudio)
 467        ("soxr" ,soxr)
 468        ("speex" ,speex)
 469        ("twolame" ,twolame)
 470        ("x265" ,x265)
 471        ("xvid" ,xvid)
 472        ("zlib" ,zlib)))
 473     (native-inputs
 474      `(("bc" ,bc)
 475        ("perl" ,perl)
 476        ("pkg-config" ,pkg-config)
 477        ("texinfo" ,texinfo)
 478        ("python" ,python-2) ; scripts use interpreter python2
 479        ("speex" ,speex)
 480        ("yasm" ,yasm)))
 481     (arguments
 482      `(#:test-target "fate"
 483        #:configure-flags
 484        ;; possible additional inputs:
 485        ;;   --enable-avisynth        enable reading of AviSynth script
 486        ;;                            files [no]
 487        ;;   --enable-frei0r          enable frei0r video filtering
 488        ;;   --enable-libaacplus      enable AAC+ encoding via libaacplus [no]
 489        ;;   --enable-libcelt         enable CELT decoding via libcelt [no]
 490        ;;   --enable-libdc1394       enable IIDC-1394 grabbing using libdc1394
 491        ;;                            and libraw1394 [no]
 492        ;;   --enable-libfaac         enable AAC encoding via libfaac [no]
 493        ;;   --enable-libfdk-aac      enable AAC de/encoding via libfdk-aac [no]
 494        ;;   --enable-libflite        enable flite (voice synthesis) support via
 495        ;;                            libflite [no]
 496        ;;   --enable-libgme          enable Game Music Emu via libgme [no]
 497        ;;   --enable-libgsm          enable GSM de/encoding via libgsm [no]
 498        ;;   --enable-libiec61883     enable iec61883 via libiec61883 [no]
 499        ;;   --enable-libilbc         enable iLBC de/encoding via libilbc [no]
 500        ;;   --enable-libmodplug      enable ModPlug via libmodplug [no]
 501        ;;   --enable-libnut          enable NUT (de)muxing via libnut,
 502        ;;                            native (de)muxer exists [no]
 503        ;;   --enable-libopencore-amrnb    enable AMR-NB de/encoding via
 504        ;;                                 libopencore-amrnb [no]
 505        ;;   --enable-libopencore-amrwb    enable AMR-WB decoding via
 506        ;;                                 libopencore-amrwb [no]
 507        ;;   --enable-libopencv       enable video filtering via libopencv [no]
 508        ;;   --enable-libopenjpeg     enable JPEG 2000 de/encoding via
 509        ;;                            OpenJPEG [no]
 510        ;;   --enable-librtmp         enable RTMP[E] support via librtmp [no]
 511        ;;   --enable-libschroedinger enable Dirac de/encoding via
 512        ;;                            libschroedinger [no]
 513        ;;   --enable-libshine        enable fixed-point MP3 encoding via
 514        ;;                            libshine [no]
 515        ;;   --enable-libssh          enable SFTP protocol via libssh [no]
 516        ;;                            (libssh2 does not work)
 517        ;;   --enable-libstagefright-h264  enable H.264 decoding via
 518        ;;                                 libstagefright [no]
 519        ;;   --enable-libutvideo      enable Ut Video encoding and decoding via
 520        ;;                            libutvideo [no]
 521        ;;   --enable-libv4l2         enable libv4l2/v4l-utils [no]
 522        ;;   --enable-libvidstab      enable video stabilization using
 523        ;;                            vid.stab [no]
 524        ;;   --enable-libvo-aacenc    enable AAC encoding via libvo-aacenc [no]
 525        ;;   --enable-libvo-amrwbenc  enable AMR-WB encoding via
 526        ;;                            libvo-amrwbenc [no]
 527        ;;   --enable-libwavpack      enable wavpack encoding via libwavpack [no]
 528        ;;   --enable-libxavs         enable AVS encoding via xavs [no]
 529        ;;   --enable-libzmq          enable message passing via libzmq [no]
 530        ;;   --enable-libzvbi         enable teletext support via libzvbi [no]
 531        ;;   --enable-opencl          enable OpenCL code
 532        '("--enable-avresample"
 533          "--enable-gpl" ; enable optional gpl licensed parts
 534          "--enable-shared"
 535          "--enable-fontconfig"
 536          "--enable-gnutls"
 537          "--enable-ladspa"
 538          "--enable-libass"
 539          "--enable-libbluray"
 540          "--enable-libcaca"
 541          "--enable-libcdio"
 542          "--enable-libfreetype"
 543          "--enable-libmp3lame"
 544          "--enable-libopus"
 545          "--enable-libpulse"
 546          "--enable-libsoxr"
 547          "--enable-libspeex"
 548          "--enable-libtheora"
 549          "--enable-libtwolame"
 550          "--enable-libvorbis"
 551          "--enable-libvpx"
 552          "--enable-libxvid"
 553          "--enable-libx264"
 554          "--enable-libx265"
 555          "--enable-openal"
 556          "--enable-opengl"
 557          "--enable-x11grab"
 558
 559          "--enable-runtime-cpudetect"
 560
 561          ;; Runtime cpu detection is not implemented on
 562          ;; MIPS, so we disable some features.
 563          "--disable-mips32r2"
 564          "--disable-mipsdsp"
 565          "--disable-mipsdspr2"
 566          "--disable-mipsfpu")
 567        #:phases
 568        (modify-phases %standard-phases
 569          (replace
 570           'configure
 571           ;; configure does not work followed by "SHELL=..." and
 572           ;; "CONFIG_SHELL=..."; set environment variables instead
 573           (lambda* (#:key outputs configure-flags #:allow-other-keys)
 574             (let ((out (assoc-ref outputs "out")))
 575               (substitute* "configure"
 576                 (("#! /bin/sh") (string-append "#!" (which "bash"))))
 577               (setenv "SHELL" (which "bash"))
 578               (setenv "CONFIG_SHELL" (which "bash"))
 579               (zero? (apply system*
 580                             "./configure"
 581                             (string-append "--prefix=" out)
 582                             ;; Add $libdir to the RUNPATH of all the binaries.
 583                             (string-append "--extra-ldflags=-Wl,-rpath="
 584                                            out "/lib")
 585                             configure-flags)))))
 586          (add-before
 587           'check 'set-ld-library-path
 588           (lambda _
 589             ;; Allow $(top_builddir)/ffmpeg to find its dependencies when
 590             ;; running tests.
 591             (let* ((dso  (find-files "." "\\.so$"))
 592                    (path (string-join (map dirname dso) ":")))
 593               (format #t "setting LD_LIBRARY_PATH to ~s~%" path)
 594               (setenv "LD_LIBRARY_PATH" path)
 595               #t))))))
 596     (home-page "https://www.ffmpeg.org/")
 597     (synopsis "Audio and video framework")
 598     (description "FFmpeg is a complete, cross-platform solution to record,
 599 convert and stream audio and video.  It includes the libavcodec
 600 audio/video codec library.")
 601     (license license:gpl2+)))
 602
 603 (define-public ffmpeg-2.8
 604   (package
 605     (inherit ffmpeg)
 606     (version "2.8.8")
 607     (source (origin
 608              (method url-fetch)
 609              (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
 610                                  version ".tar.xz"))
 611              (sha256
 612               (base32
 613                "1691bmq8j56rcys09xwvzjq16z25m8vczj5a50gdn7ydm9qjykpr"))))
 614     (arguments
 615      (substitute-keyword-arguments (package-arguments ffmpeg)
 616        ((#:configure-flags flags)
 617         `(map (lambda (flag)
 618                 (if (string=? flag "--disable-mipsdsp")
 619                     "--disable-mipsdspr1"
 620                     flag))
 621               ,flags))))))
 622
 623 (define-public vlc
 624   (package
 625     (name "vlc")
 626     (version "2.2.4")
 627     (source (origin
 628              (method url-fetch)
 629              (uri (string-append
 630                    "https://download.videolan.org/pub/videolan/vlc/"
 631                    version "/vlc-" version ".tar.xz"))
 632              (sha256
 633               (base32
 634                "1gjkrwlg8ab3skzl67cxb9qzg4187ifckd1z9kpy11q058fyjchn"))
 635              (modules '((guix build utils)))
 636              (snippet
 637               ;; There are two occurrences where __DATE__ and __TIME__ are
 638               ;; used to capture the build time and show it to the user.
 639               '(substitute* (find-files "." "help\\.c(pp)?$")
 640                  (("__DATE__") "\"2016\"")
 641                  (("__TIME__") "\"00:00\"")))))
 642     (build-system gnu-build-system)
 643     (native-inputs
 644      `(("git" ,git) ; needed for a test
 645        ("pkg-config" ,pkg-config)))
 646     ;; FIXME: Add optional inputs once available.
 647     (inputs
 648      `(("alsa-lib" ,alsa-lib)
 649        ("avahi" ,avahi)
 650        ("dbus" ,dbus)
 651        ("flac" ,flac)
 652        ("ffmpeg" ,ffmpeg-2.8)               ;fails to build against ffmpeg 3.0
 653        ("fontconfig" ,fontconfig)
 654        ("freetype" ,freetype)
 655        ("gnutls" ,gnutls)
 656        ("liba52" ,liba52)
 657        ("libcddb" ,libcddb)
 658        ("libgcrypt" ,libgcrypt)
 659        ("libkate" ,libkate)
 660        ("libmad" ,libmad)
 661        ("libogg" ,libogg)
 662        ("libpng" ,libpng)
 663        ("libsamplerate" ,libsamplerate)
 664        ("libssh2" ,libssh2)
 665        ("libvorbis" ,libvorbis)
 666        ("libtheora" ,libtheora)
 667        ("libxext" ,libxext)
 668        ("libxi" ,libxi)
 669        ("libxinerama" ,libxinerama)
 670        ("libxml2" ,libxml2)
 671        ("libxpm" ,libxpm)
 672        ("lua" ,lua-5.1)
 673        ("mesa" ,mesa)
 674        ("opus" ,opus)
 675        ("perl" ,perl)
 676        ("pulseaudio" ,pulseaudio)
 677        ("python" ,python-wrapper)
 678        ("qt" ,qt) ; FIXME: reenable modular qt after update - requires building
 679        ;("qtbase" ,qtbase) with -std=gnu++11.
 680        ;("qtx11extras" ,qtx11extras)
 681        ("sdl" ,sdl)
 682        ("sdl-image" ,sdl-image)
 683        ("speex" ,speex)
 684        ("x265" ,x265)
 685        ("xcb-util-keysyms" ,xcb-util-keysyms)))
 686     (arguments
 687      `(#:configure-flags
 688        `(;; Gross workaround for <https://trac.videolan.org/vlc/ticket/16907>.
 689          ;; In our case, this led to a test failure:
 690          ;;   test_libvlc_equalizer: libvlc/equalizer.c:122: test_equalizer: Assertion `isnan(libvlc_audio_equalizer_get_amp_at_index (equalizer, u_bands))' failed.
 691          "ac_cv_c_fast_math=no"
 692
 693          ,(string-append "LDFLAGS=-Wl,-rpath -Wl,"
 694                          (assoc-ref %build-inputs "ffmpeg")
 695                          "/lib"))                 ;needed for the tests
 696
 697        #:phases
 698        (modify-phases %standard-phases
 699          (add-before 'configure 'remove-visual-tests
 700            ;; Some of the tests require using the display to test out VLC,
 701            ;; which fails in our sandboxed build system
 702            (lambda _
 703              (substitute* "test/run_vlc.sh"
 704                           (("./vlc --ignore-config") "echo"))
 705              #t))
 706          (add-after 'install 'regenerate-plugin-cache
 707            (lambda* (#:key outputs #:allow-other-keys)
 708              ;; The 'install-exec-hook' rule in the top-level Makefile.am
 709              ;; generates 'lib/vlc/plugins/plugins.dat', a plugin cache, using
 710              ;; 'vlc-cache-gen'.  This file includes the mtime of the plugins
 711              ;; it references.  Thus, we first reset the timestamps of all
 712              ;; these files, and then regenerate the cache such that the
 713              ;; mtimes it includes are always zero instead of being dependent
 714              ;; on the build time.
 715              (let* ((out       (assoc-ref outputs "out"))
 716                     (pkglibdir (string-append out "/lib/vlc"))
 717                     (plugindir (string-append pkglibdir "/plugins"))
 718                     (cachegen  (string-append pkglibdir "/vlc-cache-gen")))
 719                ;; TODO: Factorize 'reset-timestamps'.
 720                (for-each (lambda (file)
 721                            (let ((s (lstat file)))
 722                              (unless (eq? (stat:type s) 'symlink)
 723                                (utime file 0 0 0 0))))
 724                          (find-files plugindir))
 725                (zero? (system* cachegen plugindir))))))))
 726     (home-page "https://www.videolan.org/")
 727     (synopsis "Audio and video framework")
 728     (description "VLC is a cross-platform multimedia player and framework
 729 that plays most multimedia files as well as DVD, Audio CD, VCD, and various
 730 treaming protocols.")
 731     (license license:gpl2+)))
 732
 733 (define-public mplayer
 734   (package
 735     (name "mplayer")
 736     (version "1.3.0")
 737     (source (origin
 738              (method url-fetch)
 739              (uri (string-append
 740                    "https://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
 741                    version ".tar.xz"))
 742              (sha256
 743               (base32
 744                "0hwqn04bdknb2ic88xd75smffxx63scvz0zvwvjb56nqj9n89l1s"))))
 745     (build-system gnu-build-system)
 746     ;; FIXME: Add additional inputs once available.
 747     (native-inputs
 748      `(("pkg-config" ,pkg-config)))
 749     (inputs
 750      `(("alsa-lib" ,alsa-lib)
 751        ("cdparanoia" ,cdparanoia)
 752        ("ffmpeg" ,ffmpeg)
 753        ("fontconfig" ,fontconfig)
 754        ("freetype" ,freetype)
 755 ;;        ("giflib" ,giflib) ; uses QuantizeBuffer, requires version >= 5
 756        ("lame" ,lame)
 757        ("libass" ,libass)
 758        ("libdvdcss" ,libdvdcss)
 759        ("libdvdnav" ,libdvdnav)
 760        ("libjpeg" ,libjpeg)
 761        ("libmpeg2" ,libmpeg2)
 762        ("libmpg123" ,mpg123)                      ; audio codec for MP3
 763        ("libpng" ,libpng)
 764        ("libtheora" ,libtheora)
 765        ("libvdpau" ,libvdpau)
 766        ("libvorbis" ,libvorbis)
 767        ("libx11" ,libx11)
 768        ("libx264" ,libx264)
 769        ("libxinerama" ,libxinerama)
 770        ("libxv" ,libxv)
 771        ("libxxf86dga" ,libxxf86dga)
 772        ("mesa" ,mesa)
 773        ("opus" ,opus)
 774        ("perl" ,perl)
 775        ("pulseaudio" ,pulseaudio)
 776        ("python" ,python-wrapper)
 777        ("sdl" ,sdl)
 778        ("speex" ,speex)
 779        ("yasm" ,yasm)
 780        ("zlib" ,zlib)))
 781     (arguments
 782      `(#:tests? #f ; no test target
 783        #:phases
 784        (modify-phases %standard-phases
 785         (replace 'configure
 786           ;; configure does not work followed by "SHELL=..." and
 787           ;; "CONFIG_SHELL=..."; set environment variables instead
 788           (lambda* (#:key inputs outputs #:allow-other-keys)
 789             (let ((out (assoc-ref outputs "out"))
 790                   (libx11 (assoc-ref inputs "libx11")))
 791               (substitute* "configure"
 792                 (("#! /bin/sh") (string-append "#!" (which "bash"))))
 793               (setenv "SHELL" (which "bash"))
 794               (setenv "CONFIG_SHELL" (which "bash"))
 795               (zero? (system*
 796                       "./configure"
 797                       (string-append "--extra-cflags=-I"
 798                                      libx11 "/include") ; to detect libx11
 799                       "--disable-ffmpeg_a" ; disables bundled ffmpeg
 800                       (string-append "--prefix=" out)
 801                       ;; Enable runtime cpu detection where supported,
 802                       ;; and choose a suitable target.
 803                       ,@(match (or (%current-target-system)
 804                                    (%current-system))
 805                           ("x86_64-linux"
 806                            '("--enable-runtime-cpudetection"
 807                              "--target=x86_64-linux"))
 808                           ("i686-linux"
 809                            '("--enable-runtime-cpudetection"
 810                              "--target=i686-linux"))
 811                           ("mips64el-linux"
 812                            '("--target=mips3-linux"))
 813                           (_ (list (string-append
 814                                     "--target="
 815                                     (or (%current-target-system)
 816                                         (nix-system->gnu-triplet
 817                                          (%current-system)))))))
 818                       "--disable-iwmmxt"))))))))
 819     (home-page "https://www.mplayerhq.hu/design7/news.html")
 820     (synopsis "Audio and video player")
 821     (description "MPlayer is a movie player.  It plays most MPEG/VOB, AVI,
 822 Ogg/OGM, VIVO, ASF/WMA/WMV, QT/MOV/MP4, RealMedia, Matroska, NUT,
 823 NuppelVideo, FLI, YUV4MPEG, FILM, RoQ, PVA files.  One can watch VideoCD,
 824 SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
 825     (license license:gpl2)))
 826
 827 (define-public mpv
 828   (package
 829     (name "mpv")
 830     (version "0.21.0")
 831     (source (origin
 832               (method url-fetch)
 833               (uri (string-append
 834                     "https://github.com/mpv-player/mpv/archive/v" version
 835                     ".tar.gz"))
 836               (sha256
 837                (base32
 838                 "1lwvvhldqrkp44zdm3wbi7qrsln13s8ympwwckqhwl4whp78wpyh"))
 839               (file-name (string-append name "-" version ".tar.gz"))))
 840     (build-system waf-build-system)
 841     (native-inputs
 842      `(("perl" ,perl)
 843        ("pkg-config" ,pkg-config)
 844        ("python-docutils" ,python-docutils)))
 845     ;; Missing features: libguess, Wayland, V4L2
 846     (inputs
 847      `(("alsa-lib" ,alsa-lib)
 848        ("enca" ,enca)
 849        ("ffmpeg" ,ffmpeg)
 850        ("jack" ,jack-1)
 851        ("ladspa" ,ladspa)
 852        ("lcms" ,lcms)
 853        ("libass" ,libass)
 854        ("libbluray" ,libbluray)
 855        ("libcaca" ,libcaca)
 856        ("libbs2b" ,libbs2b)
 857        ("libcdio-paranoia" ,libcdio-paranoia)
 858        ("libdvdread" ,libdvdread)
 859        ("libdvdnav" ,libdvdnav)
 860        ("libjpeg" ,libjpeg)
 861        ("libva" ,libva)
 862        ("libvdpau" ,libvdpau)
 863        ("libx11" ,libx11)
 864        ("libxext" ,libxext)
 865        ("libxinerama" ,libxinerama)
 866        ("libxrandr" ,libxrandr)
 867        ("libxscrnsaver" ,libxscrnsaver)
 868        ("libxv" ,libxv)
 869        ("lua" ,lua)
 870        ("mesa" ,mesa)
 871        ("mpg123" ,mpg123)
 872        ("pulseaudio" ,pulseaudio)
 873        ("rsound" ,rsound)
 874        ("waf" ,python-waf)
 875        ("youtube-dl" ,youtube-dl)
 876        ("zlib" ,zlib)))
 877     (arguments
 878      '(#:phases
 879        (modify-phases %standard-phases
 880          (add-before
 881           'configure 'setup-waf
 882           (lambda* (#:key inputs #:allow-other-keys)
 883             (copy-file (assoc-ref inputs "waf") "waf")
 884             (setenv "CC" "gcc"))))
 885        #:configure-flags (list "--enable-libmpv-shared" "--enable-zsh-comp")
 886        ;; No check function defined.
 887        #:tests? #f))
 888     (home-page "https://mpv.io/")
 889     (synopsis "Audio and video player")
 890     (description "mpv is a general-purpose audio and video player.  It is a
 891 fork of mplayer2 and MPlayer.  It shares some features with the former
 892 projects while introducing many more.")
 893     (license license:gpl2+)))
 894
 895 (define-public gnome-mpv
 896   (package
 897     (name "gnome-mpv")
 898     (version "0.10")
 899     (source
 900      (origin
 901        (method url-fetch)
 902        (uri (string-append "https://github.com/gnome-mpv/gnome-mpv/releases"
 903                            "/download/v" version "/gnome-mpv-" version
 904                            ".tar.xz"))
 905        (sha256
 906         (base32
 907          "10zizf926a82c753a80bi49rb5c4yqjyd6zin4xgmggspfxngncj"))))
 908     (native-inputs
 909      `(("intltool" ,intltool)
 910        ("pkg-config" ,pkg-config)))
 911     (inputs
 912      `(("gtk+" ,gtk+)
 913        ("libepoxy" ,libepoxy)
 914        ("mpv" ,mpv)))
 915     (build-system glib-or-gtk-build-system)
 916     (home-page "https://github.com/gnome-mpv/gnome-mpv")
 917     (synopsis "GTK+ frontend for the mpv media player")
 918     (description "GNOME MPV is a simple GTK+ frontend for the mpv media player.
 919 GNOME MPV interacts with mpv via the client API exported by libmpv, allowing
 920 access to mpv's powerful playback capabilities.")
 921     (license license:gpl3+)))
 922
 923 (define-public libvpx
 924   (package
 925     (name "libvpx")
 926     (version "1.6.0")
 927     (source (origin
 928               (method url-fetch)
 929               (uri (string-append "http://storage.googleapis.com/"
 930                                   "downloads.webmproject.org/releases/webm/"
 931                                   name "-" version ".tar.bz2"))
 932               (sha256
 933                (base32
 934                 "1basd6dda5di9p7jhc0f4f52wzm9c3hsravqspw6ibpcn5gbpbyh"))
 935               (patches (search-patches "libvpx-CVE-2016-2818.patch"))))
 936     (build-system gnu-build-system)
 937     (arguments
 938      `(#:phases
 939        (modify-phases %standard-phases
 940          (replace 'configure
 941            (lambda* (#:key outputs #:allow-other-keys)
 942              (setenv "CONFIG_SHELL" (which "bash"))
 943              (let ((out (assoc-ref outputs "out")))
 944                (setenv "LDFLAGS"
 945                        (string-append "-Wl,-rpath=" out "/lib"))
 946                (zero? (system* "./configure"
 947                                "--enable-shared"
 948                                "--as=yasm"
 949                                ;; Limit size to avoid CVE-2015-1258
 950                                "--size-limit=16384x16384"
 951                                (string-append "--prefix=" out)))))))
 952        #:tests? #f)) ; no check target
 953     (native-inputs
 954      `(("perl" ,perl)
 955        ("yasm" ,yasm)))
 956     (synopsis "VP8/VP9 video codec")
 957     (description "libvpx is a codec for the VP8/VP9 video compression format.")
 958     (license license:bsd-3)
 959     (home-page "http://www.webmproject.org/")))
 960
 961 (define-public youtube-dl
 962   (package
 963     (name "youtube-dl")
 964     (version "2016.10.16")
 965     (source (origin
 966               (method url-fetch)
 967               (uri (string-append "https://youtube-dl.org/downloads/"
 968                                   version "/youtube-dl-"
 969                                   version ".tar.gz"))
 970               (sha256
 971                (base32
 972                 "0q6cxbp1xx8xmwn3xbxh6gcbgqjxy3slzfca4dbkk9xl2yy9rwqg"))))
 973     (build-system python-build-system)
 974     (arguments
 975      ;; The problem here is that the directory for the man page and completion
 976      ;; files is relative, and for some reason, setup.py uses the
 977      ;; auto-detected sys.prefix instead of the user-defined "--prefix=FOO".
 978      ;; So, we need pass the prefix directly.  In addition, make sure the Bash
 979      ;; completion file is called 'youtube-dl' rather than
 980      ;; 'youtube-dl.bash-completion'.
 981      `(#:tests? #f ; Many tests fail. The test suite can be run with pytest.
 982        #:phases (modify-phases %standard-phases
 983                   (add-before 'install 'fix-the-data-directories
 984                     (lambda* (#:key outputs #:allow-other-keys)
 985                       (let ((prefix (assoc-ref outputs "out")))
 986                         (mkdir "bash-completion")
 987                         (rename-file "youtube-dl.bash-completion"
 988                                      "bash-completion/youtube-dl")
 989                         (substitute* "setup.py"
 990                           (("youtube-dl\\.bash-completion")
 991                            "bash-completion/youtube-dl")
 992                           (("'etc/")
 993                            (string-append "'" prefix "/etc/"))
 994                           (("'share/")
 995                            (string-append "'" prefix "/share/")))))))))
 996     (synopsis "Download videos from YouTube.com and other sites")
 997     (description
 998      "Youtube-dl is a small command-line program to download videos from
 999 YouTube.com and a few more sites.")
1000     (home-page "https://youtube-dl.org")
1001     (license license:public-domain)))
1002
1003 (define-public libbluray
1004   (package
1005     (name "libbluray")
1006     (version "0.9.3")
1007     (source (origin
1008               (method url-fetch)
1009               (uri (string-append "https://download.videolan.org/videolan/"
1010                                   name "/" version "/"
1011                                   name "-" version ".tar.bz2"))
1012               (sha256
1013                (base32
1014                 "1q1whviqv5sr9nr372h31zwid1rvbfbx3z4lzr8lnj25xha6cdm6"))))
1015     (build-system gnu-build-system)
1016     (arguments
1017      `(#:configure-flags '("--disable-bdjava")
1018        #:phases
1019        (modify-phases %standard-phases
1020          (add-before 'build 'fix-dlopen-paths
1021            (lambda* (#:key inputs #:allow-other-keys)
1022              (let ((libaacs (assoc-ref inputs "libaacs"))
1023                    (libbdplus (assoc-ref inputs "libbdplus")))
1024                (substitute* "src/libbluray/disc/aacs.c"
1025                  (("\"libaacs\"")
1026                   (string-append "\"" libaacs "/lib/libaacs\"")))
1027                (substitute* "src/libbluray/disc/bdplus.c"
1028                  (("\"libbdplus\"")
1029                   (string-append "\"" libbdplus "/lib/libbdplus\"")))
1030                #t))))))
1031     (native-inputs `(("pkg-config" ,pkg-config)))
1032     (inputs
1033      `(("fontconfig" ,fontconfig)
1034        ("freetype" ,freetype)
1035        ("libaacs" ,libaacs)
1036        ("libbdplus" ,libbdplus)
1037        ("libxml2" ,libxml2)))
1038     (home-page "https://www.videolan.org/developers/libbluray.html")
1039     (synopsis "Blu-Ray Disc playback library")
1040     (description
1041      "libbluray is a library designed for Blu-Ray Disc playback for media
1042 players, like VLC or MPlayer.")
1043     (license license:lgpl2.1+)))
1044
1045 (define-public libdvdread
1046   (package
1047     (name "libdvdread")
1048     (version "5.0.3")
1049     (source (origin
1050               (method url-fetch)
1051               (uri (string-append "http://download.videolan.org/videolan/"
1052                                   name "/" version "/"
1053                                   name "-" version ".tar.bz2"))
1054               (sha256
1055                (base32
1056                 "0ayqiq0psq18rcp6f5pz82sxsq66v0kwv0y55dbrcg68plnxy71j"))))
1057     (build-system gnu-build-system)
1058     (home-page "http://dvdnav.mplayerhq.hu/")
1059     (synopsis "Library for reading video DVDs")
1060     (description
1061      "Libdvdread provides a simple foundation for reading DVD video
1062 disks.  It provides the functionality that is required to access many
1063 DVDs.  It parses IFO files, reads NAV-blocks, and performs CSS
1064 authentication and descrambling (if an external libdvdcss library is
1065 installed).")
1066     (license license:gpl2+)))
1067
1068 (define-public libdvdnav
1069   (package
1070     (name "libdvdnav")
1071     (version "5.0.3")
1072     (source (origin
1073               (method url-fetch)
1074               (uri (string-append "http://download.videolan.org/videolan/"
1075                                   name "/" version "/"
1076                                   name "-" version ".tar.bz2"))
1077               (sha256
1078                (base32
1079                 "0v8byv5z598k06rqzdmj7739vc86xq3zf79zfr698dib7lz055sh"))))
1080     (build-system gnu-build-system)
1081     (native-inputs
1082      `(("pkg-config" ,pkg-config)))
1083     (inputs
1084      `(("libdvdread" ,libdvdread)))
1085     (home-page "http://dvdnav.mplayerhq.hu/")
1086     (synopsis "Library for video DVD navigation features")
1087     (description
1088      "Libdvdnav is a library for developers of multimedia
1089 applications.  It allows easy use of sophisticated DVD navigation features
1090 such as DVD menus, multiangle playback and even interactive DVD games.  All
1091 this functionality is provided through a simple API which provides the DVD
1092 playback as a single logical stream of blocks, intermitted by special
1093 dvdnav events to report certain conditions.  The main usage of libdvdnav is
1094 a loop regularly calling a function to get the next block, surrounded by
1095 additional calls to tell the library of user interaction.  The whole
1096 DVD virtual machine and internal playback states are completely
1097 encapsulated.")
1098     (license license:gpl2+)))
1099
1100 (define-public libdvdnav-4
1101   (package
1102     (inherit libdvdnav)
1103     (version "4.2.1")
1104     (source (origin
1105               (method url-fetch)
1106               (uri
1107                (string-append
1108                 "http://download.videolan.org/videolan/libdvdnav/libdvdnav-"
1109                 version ".tar.xz"))
1110               (sha256
1111                (base32
1112                 "0wi3gy408c8xj0ism0hckv5jbfh3lg4pmgxv87gbch9jrhp2gjkz"))))
1113     (native-inputs
1114      `(("pkg-config" ,pkg-config)
1115        ("autoconf" ,autoconf)
1116        ("automake" ,automake)
1117        ("libtool" ,libtool)))
1118     (arguments
1119      '(#:phases
1120        (alist-cons-after
1121         'unpack 'autoreconf
1122         (lambda _
1123           (zero? (system* "autoreconf" "-vif")))
1124         %standard-phases)))))
1125
1126 (define-public libdvdcss
1127   (package
1128     (name "libdvdcss")
1129     (version "1.4.0")
1130     (source (origin
1131               (method url-fetch)
1132               (uri (string-append "http://download.videolan.org/pub/"
1133                                   name "/" version "/"
1134                                   name "-" version ".tar.bz2"))
1135               (sha256
1136                (base32
1137                 "0nl45ifc4xcb196snv9d6hinfw614cqpzcqp92dg43c0hickg290"))))
1138     (build-system gnu-build-system)
1139     (home-page "http://www.videolan.org/developers/libdvdcss.html")
1140     (synopsis "Library for accessing DVDs as block devices")
1141     (description
1142      "libdvdcss is a simple library designed for accessing DVDs like a block
1143 device without having to bother about the decryption.")
1144     (license license:gpl2+)))
1145
1146 (define-public srt2vtt
1147   (package
1148     (name "srt2vtt")
1149     (version "0.1")
1150     (source (origin
1151               (method url-fetch)
1152               (uri (string-append
1153                     "http://dthompson.us/releases/srt2vtt/srt2vtt-"
1154                     version ".tar.gz"))
1155               (sha256
1156                (base32
1157                 "16b377znjm6qlga5yb8aj7b7bcisa1ghcnj2lrb1d30lvxp4liif"))))
1158     (build-system gnu-build-system)
1159     (inputs
1160      `(("guile" ,guile-2.0)))
1161     (synopsis "SubRip to WebVTT subtitle converter")
1162     (description "srt2vtt converts SubRip formatted subtitles to WebVTT format
1163 for use with HTML5 video.")
1164     (home-page "http://dthompson.us/pages/software/srt2vtt")
1165     (license license:gpl3+)))
1166
1167 (define-public avidemux
1168   (package
1169     (name "avidemux")
1170     (version "2.6.12")
1171     (source (origin
1172              (method url-fetch)
1173              (uri (string-append
1174                    "mirror://sourceforge/" name "/" name "/" version "/"
1175                    name "_" version ".tar.gz"))
1176              (sha256
1177               (base32
1178                "0nz52yih8sff53inndkh2dba759xjzsh4b8xjww419lcpk0qp6kn"))
1179              (patches (search-patches "avidemux-install-to-lib.patch"))))
1180     (build-system cmake-build-system)
1181     (native-inputs
1182      `(("pkg-config" ,pkg-config)))
1183     ;; FIXME: Once packaged, add libraries not found during the build.
1184     (inputs
1185      `(("alsa-lib" ,alsa-lib)
1186        ("fontconfig" ,fontconfig)
1187        ("freetype" ,freetype)
1188        ("fribidi" ,fribidi)
1189        ("glu" ,glu)
1190        ("jack" ,jack-1)
1191        ("lame" ,lame)
1192        ("libva" ,libva)
1193        ("libvdpau" ,libvdpau)
1194        ("libvorbis" ,libvorbis)
1195        ("libvpx" ,libvpx)
1196        ("libxv" ,libxv)
1197        ("perl" ,perl)
1198        ("pulseaudio" ,pulseaudio)
1199        ("python" ,python-wrapper)
1200        ("qt" ,qt) ; FIXME: reenable modular qt after update - requires building
1201        ;("qtbase" ,qtbase) with -std=gnu++11.
1202        ;("qttools" ,qttools)
1203        ("sdl" ,sdl)
1204        ("sqlite" ,sqlite)
1205        ("yasm" ,yasm)
1206        ("zlib" ,zlib)))
1207     (arguments
1208      `(#:tests? #f ; no check target
1209        #:phases
1210        ;; Make sure files inside the included ffmpeg tarball are
1211        ;; patch-shebanged.
1212        (modify-phases %standard-phases
1213        (add-before 'patch-source-shebangs 'unpack-ffmpeg
1214          (lambda _
1215            (with-directory-excursion "avidemux_core/ffmpeg_package"
1216              (system* "tar" "xf" "ffmpeg-2.7.6.tar.bz2")
1217              (delete-file "ffmpeg-2.7.6.tar.bz2"))))
1218        (add-after 'patch-source-shebangs 'repack-ffmpeg
1219          (lambda _
1220            (with-directory-excursion "avidemux_core/ffmpeg_package"
1221              (substitute* "ffmpeg-2.7.6/configure"
1222                (("#! /bin/sh") (string-append "#!" (which "bash"))))
1223              (system* "tar" "cjf" "ffmpeg-2.7.6.tar.bz2" "ffmpeg-2.7.6"
1224                       ;; avoid non-determinism in the archive
1225                       "--sort=name" "--mtime=@0"
1226                       "--owner=root:0" "--group=root:0")
1227              (delete-file-recursively "ffmpeg-2.7.6"))))
1228        (replace 'configure
1229          (lambda _
1230            ;; Copy-paste settings from the cmake build system.
1231            (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
1232            (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))))
1233        (replace 'build
1234          (lambda* (#:key inputs outputs #:allow-other-keys)
1235            (let*
1236              ((out (assoc-ref outputs "out"))
1237               (lib (string-append out "/lib"))
1238               (top (getcwd))
1239               (sdl (assoc-ref inputs "sdl"))
1240               (build_component
1241                 (lambda* (component srcdir #:optional (args '()))
1242                   (let ((builddir (string-append "build_" component)))
1243                     (mkdir builddir)
1244                     (with-directory-excursion builddir
1245                       (zero?
1246                         (and
1247                           (apply system* "cmake"
1248                                  "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
1249                                  (string-append "-DCMAKE_INSTALL_PREFIX=" out)
1250                                  (string-append "-DCMAKE_INSTALL_RPATH=" lib)
1251                                  (string-append "-DCMAKE_SHARED_LINKER_FLAGS="
1252                                                 "\"-Wl,-rpath=" lib "\"")
1253                                  (string-append "-DAVIDEMUX_SOURCE_DIR=" top)
1254                                  (string-append "-DSDL_INCLUDE_DIR="
1255                                                 sdl "/include/SDL")
1256                                  (string-append "../" srcdir)
1257                                  "-DENABLE_QT5=True"
1258                                  args)
1259                          (system* "make" "-j"
1260                                  (number->string (parallel-job-count)))
1261                          (system* "make" "install"))))))))
1262              (mkdir out)
1263              (and (build_component "core" "avidemux_core")
1264                   (build_component "cli" "avidemux/cli")
1265                   (build_component "qt4" "avidemux/qt4")
1266                   (build_component "plugins_common" "avidemux_plugins"
1267                                   '("-DPLUGIN_UI=COMMON"))
1268                   (build_component "plugins_cli" "avidemux_plugins"
1269                                   '("-DPLUGIN_UI=CLI"))
1270                   (build_component "plugins_qt4" "avidemux_plugins"
1271                                   '("-DPLUGIN_UI=QT4"))
1272                   (build_component "plugins_settings" "avidemux_plugins"
1273                                   '("-DPLUGIN_UI=SETTINGS")))
1274              ;; Remove .exe and .dll file.
1275              (delete-file-recursively
1276                (string-append out "/share/ADM6_addons")))))
1277        (delete 'install))))
1278     (home-page "http://fixounet.free.fr/avidemux/")
1279     (synopsis "Video editor")
1280     (description "Avidemux is a video editor designed for simple cutting,
1281 filtering and encoding tasks.  It supports many file types, including AVI,
1282 DVD compatible MPEG files, MP4 and ASF, using a variety of codecs.  Tasks
1283 can be automated using projects, job queue and powerful scripting
1284 capabilities.")
1285     ;; Software with various licenses is included, see License.txt.
1286     (license license:gpl2+)))
1287
1288 (define-public vapoursynth
1289   (package
1290     (name "vapoursynth")
1291     (version "35")
1292     (source (origin
1293               (method url-fetch)
1294               (uri (string-append
1295                     "https://github.com/vapoursynth/vapoursynth/archive/R"
1296                     version ".tar.gz"))
1297               (file-name (string-append name "-" version ".tar.gz"))
1298               (sha256
1299                (base32
1300                 "0629ys2lf618n9cc644xlvx0vx52v2fp3sx14p4mx5rg9nlasb3n"))))
1301     (build-system gnu-build-system)
1302     (native-inputs
1303      `(("autoconf" ,autoconf)
1304        ("automake" ,automake)
1305        ("cython" ,python-cython)
1306        ("libtool" ,libtool)
1307        ("pkg-config" ,pkg-config)
1308        ("python" ,python)
1309        ("yasm" ,yasm)))
1310     (inputs
1311      `(("ffmpeg" ,ffmpeg)
1312        ("libass" ,libass)
1313        ("tesseract-ocr" ,tesseract-ocr)
1314        ("zimg" ,zimg)))
1315     (arguments
1316      '(#:phases
1317        (modify-phases %standard-phases
1318          (add-after
1319           'unpack 'autogen
1320           (lambda _
1321             (zero? (system* "sh" "autogen.sh")))))))
1322     (home-page "http://www.vapoursynth.com/")
1323     (synopsis "Video processing framework")
1324     (description "VapourSynth is a C++ library and Python module for video
1325 manipulation.  It aims to be a modern rewrite of Avisynth, supporting
1326 multithreading, generalized colorspaces, per frame properties, and videos with
1327 format changes.")
1328     ;; src/core/cpufeatures only allows x86, ARM or PPC
1329     (supported-systems (delete "mips64el-linux" %supported-systems))
1330     ;; As seen from the source files.
1331     (license license:lgpl2.1+)))
1332
1333 (define-public xvid
1334   (package
1335     (name "xvid")
1336     (version "1.3.4")
1337     (source (origin
1338               (method url-fetch)
1339               (uri (string-append
1340                     "http://downloads.xvid.org/downloads/xvidcore-"
1341                     version ".tar.bz2"))
1342               (sha256
1343                (base32
1344                 "1xwbmp9wqshc0ckm970zdpi0yvgqxlqg0s8bkz98mnr8p2067bsz"))))
1345     (build-system gnu-build-system)
1346     (native-inputs `(("yasm" ,yasm)))
1347     (arguments
1348      '(#:phases
1349        (modify-phases %standard-phases
1350          (add-before
1351           'configure 'pre-configure
1352           (lambda _
1353             (chdir "build/generic")
1354             (substitute* "configure"
1355               (("#! /bin/sh") (string-append "#!" (which "sh")))))))
1356        ;; No 'check' target.
1357        #:tests? #f))
1358     (home-page "https://www.xvid.com/")
1359     (synopsis "MPEG-4 Part 2 Advanced Simple Profile video codec")
1360     (description "Xvid is an MPEG-4 Part 2 Advanced Simple Profile (ASP) video
1361 codec library.  It uses ASP features such as b-frames, global and quarter
1362 pixel motion compensation, lumi masking, trellis quantization, and H.263, MPEG
1363 and custom quantization matrices.")
1364     (license license:gpl2+)))
1365
1366 (define-public livestreamer
1367   (package
1368     (name "livestreamer")
1369     (version "1.12.2")
1370     (source (origin
1371               (method url-fetch)
1372               (uri (string-append
1373                     "https://github.com/chrippa/livestreamer/archive/v"
1374                     version ".tar.gz"))
1375               (file-name (string-append "livestreamer-" version ".tar.gz"))
1376               (sha256
1377                (base32
1378                 "1fp3d3z2grb1ls97smjkraazpxnvajda2d1g1378s6gzmda2jvjd"))))
1379     (build-system python-build-system)
1380     (arguments
1381      '(#:tests? #f)) ; tests rely on external web servers
1382     (propagated-inputs
1383      `(("python-requests" ,python-requests)))
1384     (synopsis "Internet video stream viewer")
1385     (description "Livestreamer is a command-line utility that extracts streams
1386 from various services and pipes them into a video playing application.")
1387     (home-page "http://livestreamer.io/")
1388     (license license:bsd-2)))
1389
1390 (define-public mlt
1391   (package
1392     (name "mlt")
1393     (version "6.2.0")
1394     (source (origin
1395               (method url-fetch)
1396               (uri (string-append "https://github.com/mltframework/mlt/"
1397                                   "archive/v" version ".tar.gz"))
1398               (file-name (string-append name "-" version ".tar.gz"))
1399               (sha256
1400                (base32
1401                 "1zwzfgxrcbwkxnkiwv0a1rzxdnnaly90yyarl9wdw84nx11ffbnx"))))
1402     (build-system gnu-build-system)
1403     (arguments
1404      `(#:tests? #f ; no tests
1405        #:make-flags '("CC=gcc")
1406        #:configure-flags
1407        (list "--enable-gpl3"
1408              "--enable-gpl")
1409        #:phases
1410        (modify-phases %standard-phases
1411          (add-after
1412           'configure 'override-LDFLAGS
1413           (lambda* (#:key outputs #:allow-other-keys)
1414             (substitute* "config.mak"
1415               (("LDFLAGS\\+=")
1416                (string-append "LDFLAGS+=-Wl,-rpath="
1417                               (assoc-ref outputs "out")
1418                               "/lib ")))
1419             #t)))))
1420     (inputs
1421      `(("alsa-lib" ,alsa-lib)
1422        ("fftw" ,fftw)
1423        ("libxml2" ,libxml2)
1424        ("jack" ,jack-1)
1425        ("ladspa" ,ladspa)
1426        ("libsamplerate" ,libsamplerate)
1427        ("pulseaudio" ,pulseaudio)
1428        ("sdl" ,sdl)
1429        ("sox" ,sox)))
1430     (native-inputs
1431      `(("pkg-config" ,pkg-config)))
1432     (home-page "https://www.mltframework.org/")
1433     (synopsis "Author, manage, and run multitrack audio/video compositions")
1434     (description
1435      "MLT is a multimedia framework, designed and developed for television
1436 broadcasting.  It provides a toolkit for broadcasters, video editors, media
1437 players, transcoders, web streamers and many more types of applications.  The
1438 functionality of the system is provided via an assortment of ready to use
1439 tools, XML authoring components, and an extensible plug-in based API.")
1440     (license license:lgpl2.1+)))
1441
1442 (define-public v4l-utils
1443   (package
1444     (name "v4l-utils")
1445     (version "1.10.1")
1446     (source (origin
1447               (method url-fetch)
1448               (uri (string-append "https://linuxtv.org/downloads/v4l-utils"
1449                                   "/v4l-utils-" version ".tar.bz2"))
1450               (sha256
1451                (base32
1452                 "1h1nhg5cmmzlbipak526nk4bm6d0yb217mll75f3rpg7kz1cqiv1"))))
1453     (build-system gnu-build-system)
1454     (arguments
1455      '(#:configure-flags
1456        (list (string-append "--with-udevdir="
1457                             (assoc-ref %outputs "out")
1458                             "/lib/udev")
1459              "CXXFLAGS=-std=gnu++11")))
1460     (native-inputs
1461      `(("pkg-config" ,pkg-config)))
1462     (inputs
1463      `(("alsa-lib" ,alsa-lib)
1464        ("glu" ,glu)
1465        ("libjpeg" ,libjpeg)
1466        ("libx11" ,libx11)
1467        ("qtbase" ,qtbase)
1468        ("eudev" ,eudev)))
1469     (synopsis "Realtime video capture utilities for Linux")
1470     (description "The v4l-utils provide a series of libraries and utilities to
1471 be used for realtime video capture via Linux-specific APIs.")
1472     (home-page "https://linuxtv.org/wiki/index.php/V4l-utils")
1473     ;; libv4l2 is LGPL2.1+, while utilities are GPL2 only.
1474     (license (list license:lgpl2.1+ license:gpl2))))
1475
1476 (define-public obs
1477   (package
1478     (name "obs")
1479     (version "0.16.2")
1480     (source (origin
1481               (method url-fetch)
1482               (uri (string-append "https://github.com/jp9000/obs-studio"
1483                                   "/archive/" version ".tar.gz"))
1484               (file-name (string-append name "-" version ".tar.gz"))
1485               (sha256
1486                (base32
1487                 "0p2grxyaf79hb3nlja23xp7b2vc1w18llvzcyhnjn2lhwfjabcgm"))))
1488     (build-system cmake-build-system)
1489     (arguments
1490      `(#:tests? #f ; no tests
1491        ,@(if (any (cute string-prefix? <> (or (%current-target-system)
1492                                               (%current-system)))
1493                   '("arm" "mips"))
1494            '(#:phases
1495              (modify-phases %standard-phases
1496              (add-after 'unpack 'remove-architecture-specific-instructions
1497                ;; non-Intel platforms fail to build with the architecture
1498                ;; specific compiler flags included by default.
1499                (lambda _
1500                  (substitute* "libobs/CMakeLists.txt"
1501                               (("if\\(NOT MSVC\\)") "if(MSVC)"))
1502                  #t))))
1503            '())))
1504     (native-inputs
1505      `(("pkg-config" ,pkg-config)))
1506     (inputs
1507      `(("curl" ,curl)
1508        ("eudev" ,eudev)
1509        ("ffmpeg" ,ffmpeg)
1510        ("freetype" ,freetype)
1511        ("jack" ,jack-1)
1512        ("jansson" ,jansson)
1513        ("libx264" ,libx264)
1514        ("libxcomposite" ,libxcomposite)
1515        ("mesa" ,mesa)
1516        ("pulseaudio" ,pulseaudio)
1517        ("qtbase" ,qtbase)
1518        ("qtx11extras" ,qtx11extras)
1519        ("v4l-utils" ,v4l-utils)
1520        ("zlib" ,zlib)))
1521     (synopsis "Live streaming software")
1522     (description "Open Broadcaster Software provides a graphical interface for
1523 video recording and live streaming.  OBS supports capturing audio and video
1524 from many input sources such as webcams, X11 (for screencasting), PulseAudio,
1525 and JACK.")
1526     (home-page "https://obsproject.com")
1527     (license license:gpl2+)))
1528
1529 (define-public libvdpau
1530   (package
1531     (name "libvdpau")
1532     (version "1.1.1")
1533     (source
1534       (origin
1535         (method url-fetch)
1536         (uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
1537                             name "-" version ".tar.bz2"))
1538         (sha256
1539          (base32
1540           "0dnpb0yh7v6rvckx82kxg045rd9rbsw25wjv7ad5n8h94s9h2yl5"))))
1541     (build-system gnu-build-system)
1542     (native-inputs
1543      `(("pkg-config" ,pkg-config)))
1544     (inputs
1545      `(("dri2proto" ,dri2proto)
1546        ("libx11" ,libx11 "out")
1547        ("libxext" ,libxext)))
1548     (home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
1549     (synopsis "Video Decode and Presentation API")
1550     (description "VDPAU is the Video Decode and Presentation API for UNIX.  It
1551 provides an interface to video decode acceleration and presentation hardware
1552 present in modern GPUs.")
1553     (license (license:x11-style "file://COPYING"))))
1554
1555 (define-public vdpauinfo
1556   (package
1557     (name "vdpauinfo")
1558     (version "1.0")
1559     (source
1560       (origin
1561         (method url-fetch)
1562         (uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
1563                             name "-" version ".tar.gz"))
1564         (sha256
1565          (base32
1566           "1i2b0k9h8r0lnxlrkgqzmrjakgaw3f1ygqqwzx8w6676g85rcm20"))))
1567     (build-system gnu-build-system)
1568     (native-inputs
1569      `(("pkg-config" ,pkg-config)
1570        ("libx11" ,libx11)))
1571     (propagated-inputs
1572      `(("libvdpau" ,libvdpau)))
1573     (home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
1574     (synopsis "Tool to query the capabilities of a VDPAU implementation")
1575     (description "Vdpauinfo is a tool to query the capabilities of a VDPAU
1576 implementation.")
1577     (license (license:x11-style "file://COPYING"))))
1578
1579 (define-public recordmydesktop
1580   (package
1581     (name "recordmydesktop")
1582     (version "0.3.8.1")
1583     (source (origin
1584               (method url-fetch)
1585               (uri (string-append "mirror://sourceforge/" name "/" name "/"
1586                                   version "/recordmydesktop-" version ".tar.gz"))
1587               (sha256
1588                (base32
1589                 "133kkl5j0r877d41bzj7kj0vf3xm8x80yyx2n8nqxrva304f58ik"))))
1590     (build-system gnu-build-system)
1591     (inputs `(("popt" ,popt)
1592               ("zlib" ,zlib)
1593               ("libx11" ,libx11)
1594               ("libice" ,libice)
1595               ("libsm" ,libsm)
1596               ("libxfixes" ,libxfixes)
1597               ("libxdamage" ,libxdamage)
1598               ("libxext" ,libxext)
1599               ("alsa-lib" ,alsa-lib)
1600               ("libvorbis" ,libvorbis)
1601               ("libtheora" ,libtheora)))
1602     (home-page "http://recordmydesktop.sourceforge.net/")
1603     (synopsis "Desktop session video recorder")
1604     (description
1605      "recordMyDesktop is a command-line tool that captures the activity in
1606 your graphical desktop and encodes it as a video.  This is a useful tool for
1607 making @dfn{screencasts}.")
1608     (license license:gpl2+)))
1609
1610 (define-public libsmpeg
1611   (package
1612     (name "libsmpeg")
1613     (version "0.4.5")
1614     (source (origin
1615               (method svn-fetch)
1616               (uri (svn-reference
1617                     (url "svn://svn.icculus.org/smpeg/trunk/")
1618                     (revision 401))) ; last revision before smpeg2 (for SDL 2.0)
1619               (sha256
1620                (base32
1621                 "18yfkr70lr1x1hc8snn2ldnbzdcc7b64xmkqrfk8w59gpg7sl1xn"))))
1622     (build-system gnu-build-system)
1623     (arguments
1624      `(#:phases (modify-phases %standard-phases
1625                   (add-after 'unpack 'autogen.sh
1626                     (lambda _
1627                       (zero? (system* "sh" "autogen.sh")))))))
1628     (native-inputs
1629      `(("autoconf" ,autoconf)
1630        ("automake" ,automake)))
1631     (inputs
1632      `(("sdl" ,sdl2)))
1633     (home-page "http://icculus.org/smpeg/")
1634     (synopsis "SDL MPEG decoding library")
1635     (description
1636      "SMPEG (SDL MPEG Player Library) is a free MPEG1 video player library
1637 with sound support.  Video playback is based on the ubiquitous Berkeley MPEG
1638 player, mpeg_play v2.2.  Audio is played through a slightly modified mpegsound
1639 library, part of splay v0.8.2.  SMPEG supports MPEG audio (MP3), MPEG-1 video,
1640 and MPEG system streams.")
1641     (license (list license:expat
1642                    license:lgpl2.1
1643                    license:lgpl2.1+
1644                    license:gpl2))))
1645
1646 (define-public libbdplus
1647   (package
1648     (name "libbdplus")
1649     (version "0.1.2")
1650     (source
1651      (origin
1652        (method url-fetch)
1653        (uri (string-append "ftp://ftp.videolan.org/pub/videolan/libbdplus/"
1654                            version "/" name "-" version ".tar.bz2"))
1655        (sha256
1656         (base32 "02n87lysqn4kg2qk7d1ffrp96c44zkdlxdj0n16hbgrlrpiwlcd6"))))
1657     (inputs
1658      `(("libgcrypt" ,libgcrypt)))
1659     (build-system gnu-build-system)
1660     (home-page "http://www.videolan.org/developers/libbdplus.html")
1661     (synopsis "Library for decrypting certain Blu-Ray discs")
1662     (description "libbdplus is a library which implements the BD+ System
1663 specifications.")
1664     (license license:lgpl2.1+)))
1665
1666 (define-public libaacs
1667   (package
1668     (name "libaacs")
1669     (version "0.8.1")
1670     (source
1671      (origin
1672        (method url-fetch)
1673        (uri (string-append "ftp://ftp.videolan.org/pub/videolan/libaacs/"
1674                            version "/" name "-" version ".tar.bz2"))
1675        (sha256
1676         (base32 "1s5v075hnbs57995r6lljm79wgrip3gnyf55a0y7bja75jh49hwm"))))
1677     (inputs
1678      `(("libgcrypt" ,libgcrypt)))
1679     (native-inputs
1680      `(("bison" ,bison)
1681        ("flex" ,flex)))
1682     (build-system gnu-build-system)
1683     (home-page "http://www.videolan.org/developers/libaacs.html")
1684     (synopsis "Library for decrypting certain Blu-Ray discs")
1685     (description "libaacs is a library which implements the Advanced Access
1686 Content System specification.")
1687     (license license:lgpl2.1+)))
1688
1689 (define-public mps-youtube
1690   (package
1691     (name "mps-youtube")
1692     (version "0.2.7.1")
1693     (source
1694      (origin
1695        (method url-fetch)
1696        (uri (string-append "https://github.com/mps-youtube/mps-youtube/"
1697                            "archive/v" version ".tar.gz"))
1698        (file-name (string-append name "-" version ".tar.gz"))
1699        (sha256
1700         (base32
1701          "1s7h35yx6f0szf8mm8612ic913w3v05m2kwphjfcxnpq0ammhyci"))))
1702     (build-system python-build-system)
1703     (propagated-inputs
1704      `(("python-pafy" ,python-pafy)
1705        ("python-pygobject" ,python-pygobject))) ; For mpris2 support
1706     (home-page "https://github.com/mps-youtube/mps-youtube")
1707     (synopsis "Terminal based YouTube player and downloader")
1708     (description
1709      "@code{mps-youtube} is based on mps, a terminal based program to
1710 search, stream and download music.  This implementation uses YouTube as
1711 a source of content and can play and download video as well as audio.
1712 It can use either mpv or mplayer for playback, and for conversion of
1713 formats ffmpeg or libav is used.  Users should install one of the
1714 supported players in addition to this package.")
1715     (license license:gpl3+)))