HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: Use 'modify-phases' syntax.
[jackhill/guix/guix.git] / gnu / packages / video.scm
CommitLineData
39efcc9b 1;;; GNU Guix --- Functional package management for GNU
71ee51a0 2;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
945d985a 3;;; Copyright © 2014, 2015, 2016 David Thompson <davet@gnu.org>
ca3f9952 4;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
cda163cd 5;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
68b3627c 6;;; Copyright © 2015, 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
12f92e38 7;;; Copyright © 2015 Andy Patterson <ajpatter@uwaterloo.ca>
307ad140 8;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
63cd4d53 9;;; Copyright © 2015, 2016, 2017 Alex Vong <alexvong1995@gmail.com>
2b841707 10;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
3c8ba11a 11;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
ed6ba9cc 12;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
4df07622 13;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
3a44c7bb 14;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
fe047e13 15;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
590abe01 16;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
72fa6667 17;;; Copyright © 2017 Feng Shu <tumashu@163.com>
b8a31908 18;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
794223bc 19;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
b5b20bda 20;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
e0c40707 21;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com>
fa379a5b 22;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
2973ebf5 23;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
39efcc9b
AE		 24;;;
25;;; This file is part of GNU Guix.
26;;;
27;;; GNU Guix is free software; you can redistribute it and/or modify it
28;;; under the terms of the GNU General Public License as published by
29;;; the Free Software Foundation; either version 3 of the License, or (at
30;;; your option) any later version.
31;;;
32;;; GNU Guix is distributed in the hope that it will be useful, but
33;;; WITHOUT ANY WARRANTY; without even the implied warranty of
34;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
35;;; GNU General Public License for more details.
36;;;
37;;; You should have received a copy of the GNU General Public License
38;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
39
40(define-module (gnu packages video)
fe138965 41 #:use-module (ice-9 match)
08858812 42 #:use-module (srfi srfi-1)
ae0bdd81 43 #:use-module ((guix licenses) #:prefix license:)
e930c2a3 44 #:use-module (guix utils)
39efcc9b
AE		 45 #:use-module (guix packages)
46 #:use-module (guix download)
38829eac 47 #:use-module (guix git-download)
d8841cc5 48 #:use-module (guix svn-download)
44726031 49 #:use-module (guix build-system cmake)
39efcc9b 50 #:use-module (guix build-system gnu)
0e74bb5b 51 #:use-module (guix build-system glib-or-gtk)
615215a5 52 #:use-module (guix build-system python)
1c1178cd 53 #:use-module (guix build-system waf)
3b02429c 54 #:use-module (gnu packages)
39efcc9b 55 #:use-module (gnu packages algebra)
72bfebf5 56 #:use-module (gnu packages audio)
f1044010 57 #:use-module (gnu packages autotools)
d5a748e8 58 #:use-module (gnu packages avahi)
38829eac 59 #:use-module (gnu packages base)
8dd6fc51 60 #:use-module (gnu packages bison)
2973ebf5 61 #:use-module (gnu packages boost)
d5a748e8 62 #:use-module (gnu packages cdrom)
2973ebf5 63 #:use-module (gnu packages check)
fe047e13 64 #:use-module (gnu packages cmake)
39efcc9b 65 #:use-module (gnu packages compression)
e0c40707 66 #:use-module (gnu packages cpp)
f464016d 67 #:use-module (gnu packages curl)
44726031 68 #:use-module (gnu packages databases)
3a44c7bb 69 #:use-module (gnu packages dejagnu)
2973ebf5 70 #:use-module (gnu packages docbook)
f22e0e26 71 #:use-module (gnu packages elf)
2973ebf5 72 #:use-module (gnu packages file)
8dd6fc51 73 #:use-module (gnu packages flex)
39efcc9b 74 #:use-module (gnu packages fontutils)
c161c22a 75 #:use-module (gnu packages freedesktop)
44726031
AE		 76 #:use-module (gnu packages fribidi)
77 #:use-module (gnu packages gettext)
38829eac 78 #:use-module (gnu packages ghostscript)
d5a748e8
AE		 79 #:use-module (gnu packages gl)
80 #:use-module (gnu packages glib)
2cd85cf9 81 #:use-module (gnu packages guile)
fe047e13 82 #:use-module (gnu packages gnome)
d5a748e8 83 #:use-module (gnu packages gnupg)
fe047e13 84 #:use-module (gnu packages gstreamer)
44726031 85 #:use-module (gnu packages gtk)
e55354b8 86 #:use-module (gnu packages image)
b5b20bda 87 #:use-module (gnu packages imagemagick)
d5a748e8
AE		 88 #:use-module (gnu packages linux)
89 #:use-module (gnu packages lua)
fe047e13 90 #:use-module (gnu packages m4)
3a44c7bb 91 #:use-module (gnu packages man)
d5a748e8 92 #:use-module (gnu packages mp3)
4d94b93c 93 #:use-module (gnu packages ncurses)
6f6c8b65 94 #:use-module (gnu packages ocr)
39efcc9b
AE		 95 #:use-module (gnu packages perl)
96 #:use-module (gnu packages pkg-config)
a7d94b54 97 #:use-module (gnu packages popt)
d5a748e8 98 #:use-module (gnu packages pulseaudio)
39efcc9b 99 #:use-module (gnu packages python)
d5a748e8 100 #:use-module (gnu packages qt)
2973ebf5 101 #:use-module (gnu packages ruby)
d5a748e8 102 #:use-module (gnu packages sdl)
2973ebf5
GG		 103 #:use-module (gnu packages serialization)
104 #:use-module (gnu packages shells)
d5a748e8 105 #:use-module (gnu packages ssh)
6b2c6be0 106 #:use-module (gnu packages texinfo)
c426e61e 107 #:use-module (gnu packages textutils)
a7fd7b68 108 #:use-module (gnu packages tls)
d5a748e8 109 #:use-module (gnu packages version-control)
bb470bd3 110 #:use-module (gnu packages web)
fe047e13 111 #:use-module (gnu packages webkit)
794223bc 112 #:use-module (gnu packages wxwidgets)
ee3b55ea 113 #:use-module (gnu packages xdisorg)
54ff0b7d 114 #:use-module (gnu packages xiph)
d5a748e8
AE		 115 #:use-module (gnu packages xml)
116 #:use-module (gnu packages xorg)
148585c2 117 #:use-module (gnu packages assembly))
39efcc9b 118
6b2c6be0
SB		 119(define-public aalib
120 (package
121 (name "aalib")
122 (version "1.4rc5")
123 (source (origin
124 (method url-fetch)
de67e922
LF		 125 (uri (string-append "mirror://sourceforge/aa-project/aa-lib/"
126 version "/" name "-" version ".tar.gz"))
6b2c6be0
SB		 127 (sha256
128 (base32
129 "1vkh19gb76agvh4h87ysbrgy82hrw88lnsvhynjf4vng629dmpgv"))))
130 (build-system gnu-build-system)
131 (native-inputs
132 `(("makeinfo" ,texinfo)))
133 (inputs
134 `(("ncurses" ,ncurses)))
135 (arguments
c437922a 136 `(#:phases
6b2c6be0 137 (modify-phases %standard-phases
3a4de6b2 138 (replace 'configure
014cbde6 139 (lambda* (#:key build inputs outputs #:allow-other-keys)
6b2c6be0
SB		 140 ;; This old `configure' script doesn't support
141 ;; variables passed as arguments.
142 (let ((out (assoc-ref outputs "out"))
143 (ncurses (assoc-ref inputs "ncurses")))
144 (setenv "CONFIG_SHELL" (which "bash"))
145 (zero? (system* "./configure"
146 (string-append "--prefix=" out)
014cbde6 147 (string-append "--build=" build)
c437922a
MW		 148 ;; The ancient config.guess is unable to
149 ;; guess the host triplet on mips64el.
150 ,@(if (string=? "mips64el-linux"
151 (%current-system))
152 '("--host=mips64el-unknown-linux-gnu")
153 '())
64465558
EF		 154 ;; The same is also true with aarch64.
155 ,@(if (string=? "aarch64-linux"
156 (%current-system))
157 '("--host=aarch64-unknown-linux-gnu")
158 '())
6b2c6be0
SB		 159 (string-append "--with-ncurses="
160 ncurses)))))))))
161 (home-page "http://aa-project.sourceforge.net/aalib/")
162 (synopsis "ASCII-art library")
163 (description
164 "AA-lib is a low level gfx library which does not require graphics device.
165In fact, there is no graphical output possible. AA-lib replaces those
166old-fashioned output methods with powerful ascii-art renderer.")
167 (license license:lgpl2.0+)))
168
cda163cd
TUBK		 169(define-public liba52
170 (package
171 (name "liba52")
172 (version "0.7.4")
173 (source (origin
174 (method url-fetch)
8c056935
TUBK		 175 (uri (string-append
176 ;; A mirror://sourceforge URI doesn't work, presumably
177 ;; because the SourceForge project is misconfigured.
178 "http://liba52.sourceforge.net/files/a52dec-" version
179 ".tar.gz"))
cda163cd
TUBK		 180 (sha256
181 (base32
23da88f6 182 "0czccp4fcpf2ykp16xcrzdfmnircz1ynhls334q374xknd5747d2"))
fc1adab1
AK		 183 (patches (search-patches "liba52-enable-pic.patch"
184 "liba52-set-soname.patch"
185 "liba52-use-mtune-not-mcpu.patch"
186 "liba52-link-with-libm.patch"))))
cda163cd 187 (build-system gnu-build-system)
23da88f6
MW		 188 ;; XXX We need to run ./bootstrap because of the build system fixes above.
189 (native-inputs
190 `(("autoconf" ,autoconf)
191 ("automake" ,automake)
192 ("libtool" ,libtool)))
412a2422 193 (arguments `(#:configure-flags '("--enable-shared")
23da88f6
MW		 194 #:phases
195 (modify-phases %standard-phases
196 ;; XXX We need to run ./bootstrap because of the build
197 ;; system fixes above.
198 (add-after
199 'unpack 'bootstrap
200 (lambda _ (zero? (system* "sh" "bootstrap")))))))
cda163cd
TUBK		 201 (home-page "http://liba52.sourceforge.net/")
202 (synopsis "ATSC A/52 stream decoder")
203 (description "liba52 is a library for decoding ATSC A/52 streams. The
204A/52 standard is used in a variety of applications, including digital
205television and DVD. It is also known as AC-3.")
ae0bdd81 206 (license license:gpl2+)))
cda163cd 207
e0884109
MW		 208(define-public libmpeg2
209 (package
210 (name "libmpeg2")
211 (version "0.5.1")
212 (source (origin
213 (method url-fetch)
214 ;; A mirror://sourceforge URI doesn't work, presumably
215 ;; because the SourceForge project is misconfigured.
216 (uri (string-append "http://libmpeg2.sourceforge.net/files/"
217 name "-" version ".tar.gz"))
218 (sha256
219 (base32
220 "1m3i322n2fwgrvbs1yck7g5md1dbg22bhq5xdqmjpz5m7j4jxqny"))))
221 (inputs
222 `(("libx11" ,libx11)
223 ("libxext" ,libxext)
224 ("libxv" ,libxv)
225 ("libsm" ,libsm)
226 ("libice" ,libice)
227 ("sdl" ,sdl)))
228 (build-system gnu-build-system)
229 (home-page "http://libmpeg2.sourceforge.net/")
230 (synopsis "MPEG1 and MPEG2 video decoder library")
231 (description
232 "libmpeg2 is a library which can decode MPEG1 and MPEG2 video streams.")
233 (license license:gpl2+)))
234
82712597
MW		 235(define-public libx264
236 (package
237 (name "libx264")
715dd13d 238 (version "20170316-2245")
82712597
MW		 239 (source (origin
240 (method url-fetch)
4ff71cac 241 (uri (string-append "https://download.videolan.org/pub/x264/snapshots/"
82712597
MW		 242 "x264-snapshot-" version ".tar.bz2"))
243 (sha256
244 (base32
715dd13d 245 "1s1nnvl3axz38sv4g09skijl6k9mbbngbb1nsh26w4dr2w2gyzad"))))
82712597
MW		 246 (build-system gnu-build-system)
247 (native-inputs
248 `(("pkg-config" ,pkg-config)
249 ("yasm" ,yasm)))
250 ;; TODO: Add gpac input
251 (arguments
252 `(#:tests? #f ;no check target
253 #:configure-flags '("--enable-shared"
254 ;; Don't build the command-line program. If we
255 ;; want it later, we should do so in a different
256 ;; package to avoid a circular dependency (the x264
257 ;; program depends on ffmpeg and ffmpeg depends on
258 ;; libx264).
cb50d0c2
MW		 259 "--disable-cli"
260
261 ;; On MIPS, we must pass "--disable-asm" or else
262 ;; configure fails after printing: "You specified a
263 ;; pre-MSA CPU in your CFLAGS. If you really want
264 ;; to run on such a CPU, configure with
265 ;; --disable-asm."
266 ,@(if (string-prefix? "mips"
267 (or (%current-target-system)
268 (%current-system)))
269 '("--disable-asm")
270 '()))))
4ff71cac 271 (home-page "https://www.videolan.org/developers/x264.html")
82712597
MW		 272 (synopsis "H.264 video coding library")
273 (description "libx264 is an advanced encoding library for creating
274H.264 (MPEG-4 AVC) video streams.")
275 (license (list license:gpl2+ ;most files
276 license:isc ;common/x86/x86inc.asm
277 license:lgpl2.1+ ;extras/getopt.c
278 license:bsd-3 ;extras/inttypes.h
279 (license:non-copyleft ;extras/cl*.h
280 "file://extras/cl.h"
281 "See extras/cl.h in the distribution.")))))
282
2973ebf5
GG		 283(define-public mkvtoolnix
284 (package
285 (name "mkvtoolnix")
286 (version "13.0.0")
287 (source
288 (origin
289 (method url-fetch)
290 (uri (string-append "https://mkvtoolnix.download/sources/"
291 name "-" version ".tar.xz"))
292 (sha256
293 (base32
294 "0hknnnnx9661igm1r73dc7aqxnnrl5a8yvyvr1nhd9ymn2klwpl5"))
295 (modules '((guix build utils)))
296 (snippet
297 '(begin
298 ;; Delete bundled libraries.
299 (for-each delete-file-recursively
300 '("lib/libebml"
301 "lib/libmatroska"
302 "lib/nlohmann-json"
303 "lib/pugixml"
304 "lib/utf8-cpp"))))))
305 (build-system gnu-build-system)
306 (inputs
307 `(("boost" ,boost)
308 ("bzip2" ,bzip2)
309 ("libebml" ,libebml)
310 ("flac" ,flac)
311 ("file" ,file)
312 ("libmatroska" ,libmatroska)
313 ("libogg" ,libogg)
314 ("libvorbis" ,libvorbis)
315 ("lzo" ,lzo)
316 ("pugixml" ,pugixml)
317 ("qt" ,qt)
318 ("utfcpp" ,utfcpp)
319 ("zlib" ,zlib)))
320 (native-inputs
321 `(("docbook-xsl" ,docbook-xsl)
322 ("gettext" ,gettext-minimal)
323 ("googletest" ,googletest)
324 ("libxslt" ,libxslt)
325 ("nlohmann-json-cpp" ,nlohmann-json-cpp)
326 ("perl" ,perl)
327 ("pkg-config" ,pkg-config)
328 ("po4a" ,po4a)
329 ("ruby" ,ruby)))
330 (arguments
331 `(#:configure-flags
332 (list (string-append "--with-boost="
333 (assoc-ref %build-inputs "boost"))
334 (string-append "--with-docbook-xsl-root="
335 (assoc-ref %build-inputs "docbook-xsl")
336 "/xml/xsl/docbook-xsl-"
337 ,(package-version docbook-xsl))
338 (string-append "--with-extra-includes="
339 (assoc-ref %build-inputs "nlohmann-json-cpp")
340 "/include/nlohmann"))
341 #:phases
342 (modify-phases %standard-phases
343 (add-before 'configure 'add-googletest
344 (lambda _
345 (symlink
346 (string-append (assoc-ref %build-inputs "googletest")
347 "/include/gtest") "lib/gtest")
348 #t))
349 (replace 'build
350 (lambda _
351 (let ((-j (list "-j" (number->string (parallel-job-count)))))
352 (zero? (apply system* "rake" -j)))))
353 (replace 'check
354 (lambda _
355 (zero? (system* "rake" "tests/unit"))))
356 (replace 'install
357 (lambda _
358 (zero? (system* "rake" "install")))))))
359 (home-page "https://mkvtoolnix.download")
360 (synopsis "Tools to create, alter and inspect Matroska files")
361 (description
362 "MKVToolNix provides tools for getting information about Matroska files
363(@code{mkvinfo}), extracting tracks/data from Matroska files (@code{mkvextract})
364and creating Matroska files from other media files (@code{mkvmerge}).")
365 (license license:gpl2)))
366
7bc7ffc2
EF		 367(define-public x265
368 (package
369 (name "x265")
cfa7473c 370 (version "2.4")
7bc7ffc2
EF		 371 (source
372 (origin
373 (method url-fetch)
374 (uri (string-append "https://download.videolan.org/videolan/x265/"
375 "x265_" version ".tar.gz"))
376 (sha256
377 (base32
cfa7473c 378 "0afp0xlk0fb4q6j4sh3hyvjnjccdp61sn21zg3fyqvwgswcafalw"))
7bc7ffc2
EF		 379 (modules '((guix build utils)))
380 (snippet
381 '(delete-file-recursively "source/compat/getopt"))))
382 (build-system cmake-build-system)
383 (arguments
384 `(#:tests? #f ; tests are skipped if cpu-optimized code isn't built
a160778c
EF		 385 ;; Currently the source code doesn't check for aarch64
386 ,@(if (string-prefix? "aarch64" (or (%current-target-system) (%current-system)))
387 '(#:configure-flags '("-DENABLE_PIC=TRUE"))
388 '())
7bc7ffc2
EF		 389 #:phases
390 (modify-phases %standard-phases
391 (add-before 'configure 'prepare-build
392 (lambda _
393 (delete-file-recursively "build")
394 (chdir "source")
395 #t)))))
396 (home-page "http://x265.org/")
397 (synopsis "Library for encoding h.265/HEVC video streams")
398 (description "x265 is a H.265 / HEVC video encoder application library,
399designed to encode video or images into an H.265 / HEVC encoded bitstream.")
400 (license license:gpl2+)))
401
c426e61e
TUBK		 402(define-public libass
403 (package
404 (name "libass")
6cb5476a 405 (version "0.13.7")
c426e61e
TUBK		 406 (source (origin
407 (method url-fetch)
408 (uri (string-append
409 "https://github.com/libass/libass/releases/download/"
410 version "/libass-" version ".tar.xz"))
411 (sha256
412 (base32
6cb5476a 413 "17byv926w1mxn56n896sxvdq4m0yv1l7qbm688h6zr3nzgsyarbh"))))
c426e61e
TUBK		 414 (build-system gnu-build-system)
415 (native-inputs
416 `(("pkg-config" ,pkg-config)
417 ("yasm" ,yasm)))
418 (propagated-inputs
419 `(("freetype" ,freetype)
420 ("fribidi" ,fribidi)
421 ("fontconfig" ,fontconfig)
422 ("harfbuzz" ,harfbuzz)
423 ("enca" ,enca)))
424 (home-page "https://github.com/libass/libass")
425 (synopsis "Subtitle rendering library for the ASS/SSA format")
426 (description "libass is a subtitle rendering library for the
427ASS/SSA (Advanced Substation Alpha/SubStation Alpha) subtitle format.")
ae0bdd81 428 (license license:isc)))
c426e61e 429
4d94b93c
TUBK		 430(define-public libcaca
431 (package
432 (name "libcaca")
433 (version "0.99.beta19")
434 (source (origin
435 (method url-fetch)
436 (uri (string-append "http://caca.zoy.org/files/libcaca/libcaca-"
437 version ".tar.gz"))
438 (sha256
439 (base32
440 "1x3j6yfyxl52adgnabycr0n38j9hx2j74la0hz0n8cnh9ry4d2qj"))))
441 (build-system gnu-build-system)
442 (native-inputs `(("pkg-config" ,pkg-config)))
443 (inputs
444 `(("freeglut" ,freeglut)
445 ("ftgl" ,ftgl)
43d51239 446 ("imlib2" ,imlib2)
4d94b93c
TUBK		 447 ("libx11" ,libx11)
448 ("mesa" ,mesa)
449 ("ncurses" ,ncurses)
450 ("zlib" ,zlib)))
451 (home-page "http://caca.zoy.org/wiki/libcaca")
452 (synopsis "Colour ASCII-art library")
453 (description "libcaca is a graphics library that outputs text instead of
454pixels, so that it can work on older video cards or text terminals. It
455supports Unicode, 2048 colors, dithering of color images, and advanced text
456canvas operations.")
ae0bdd81 457 (license (license:fsf-free "file://COPYING")))) ;WTFPL version 2
4d94b93c 458
3bfb78dc
TUBK		 459(define-public libdca
460 (package
461 (name "libdca")
462 (version "0.0.5")
463 (source (origin
464 (method url-fetch)
465 (uri (string-append
b8a31908 466 "https://download.videolan.org/pub/videolan/libdca/"
3bfb78dc
TUBK		 467 version "/libdca-" version ".tar.bz2"))
468 (sha256
469 (base32
470 "0hh6a7l8vvccsd5i1fkv9av2gzv9fy8m0b8jpsn5p6hh4bh2586v"))))
471 (build-system gnu-build-system)
b8a31908 472 (home-page "https://www.videolan.org/developers/libdca.html")
3bfb78dc
TUBK		 473 (synopsis "DTS Coherent Acoustics decoder")
474 (description "libdca is a library for decoding DTS Coherent Acoustics
475streams.")
ae0bdd81 476 (license license:gpl2+)))
3bfb78dc 477
99d4c455
TUBK		 478(define-public libdv
479 (package
480 (name "libdv")
481 (version "1.0.0")
482 (source (origin
483 (method url-fetch)
484 (uri (string-append
de67e922
LF		 485 "mirror://sourceforge/" name "/" name "/"
486 version "/" name "-" version ".tar.gz"))
99d4c455
TUBK		 487 (sha256
488 (base32
489 "1fl96f2xh2slkv1i1ix7kqk576a0ak1d33cylm0mbhm96d0761d3"))))
490 (build-system gnu-build-system)
491 (native-inputs `(("pkg-config" ,pkg-config)))
492 (inputs `(("libxv" ,libxv)))
493 (home-page "http://libdv.sourceforge.net/")
494 (synopsis "DV video (IEC 61834 and SMPTE 314M) codec")
495 (description "The Quasar DV codec (libdv) is a software codec for DV
496video, the encoding format used by most digital camcorders, typically those
497that support the IEEE 1394 (a.k.a. FireWire or i.Link) interface. Libdv was
498developed according to the official standards for DV video: IEC 61834 and
499SMPTE 314M.")
ae0bdd81 500 (license license:lgpl2.1+)))
99d4c455 501
15f1d02a
GG		 502(define-public libmatroska
503 (package
504 (name "libmatroska")
505 (version "1.4.7")
506 (source
507 (origin
508 (method url-fetch)
509 (uri (string-append "https://dl.matroska.org/downloads/"
510 name "/" name "-" version ".tar.bz2"))
511 (sha256
512 (base32
513 "1yi5cnv13nhl27xyqayd5l3sf0j3swfj3apzibv71yg9pariwi26"))))
514 (build-system gnu-build-system)
515 (native-inputs
516 `(("pkg-config" ,pkg-config)))
517 (inputs
518 `(("libebml" ,libebml)))
519 (home-page "https://www.matroska.org")
520 (synopsis "C++ libary to parse Matroska files (.mkv and .mka)")
521 (description
522 "Matroska aims to become the standard of multimedia container formats.
523It is based on EBML (Extensible Binary Meta Language), a binary derivative
524of XML. EBML enables the Matroska Development Team to gain significant
525advantages in terms of future format extensibility, without breaking file
526support in old parsers.
527libebml is a C++ library to read and write EBML files.")
528 (license license:lgpl2.1)))
529
ee3b55ea
TUBK		 530(define-public libva
531 (package
532 (name "libva")
7035d2dd 533 (version "1.8.3")
ee3b55ea
TUBK		 534 (source
535 (origin
536 (method url-fetch)
7035d2dd
MB		 537 (uri (list
538 ;; Newer releases are only available on GitHub.
539 (string-append "https://github.com/01org/libva/releases/download/"
540 version "/libva-" version ".tar.bz2")
541 ;; Keep the old URL around for compatibility.
542 (string-append "https://www.freedesktop.org/software/vaapi/releases/"
543 "libva/libva-" version "/libva-" version ".tar.bz2")))
ee3b55ea 544 (sha256
7035d2dd 545 (base32 "16xbk0awl7wp0vy0nyjvxk11spbw25mp8kwd9bmhd6x9xffi5vjn"))))
ee3b55ea
TUBK		 546 (build-system gnu-build-system)
547 (native-inputs
548 `(("pkg-config" ,pkg-config)))
549 (inputs
550 `(("libdrm" ,libdrm)
551 ("libx11" ,libx11)
552 ("libxext" ,libxext)
553 ("libxfixes" ,libxfixes)
554 ("mesa" ,mesa)))
372cf039
TUBK		 555 (arguments
556 `(#:phases
557 (modify-phases %standard-phases
558 (add-before
559 'build 'fix-dlopen-paths
560 (lambda* (#:key outputs #:allow-other-keys)
561 (let ((out (assoc-ref outputs "out")))
562 (substitute* "va/drm/va_drm_auth_x11.c"
563 (("\"libva-x11\\.so\\.%d\"")
564 (string-append "\"" out "/lib/libva-x11.so.%d\"")))))))
565 ;; Most drivers are in mesa's $prefix/lib/dri, so use that. (Can be
566 ;; overridden at run-time via LIBVA_DRIVERS_PATH.)
567 #:configure-flags
568 (list (string-append "--with-drivers-path="
569 (assoc-ref %build-inputs "mesa") "/lib/dri"))
570 ;; However, we can't write to mesa's store directory, so override the
571 ;; following make variable to install the dummy driver to libva's
572 ;; $prefix/lib/dri directory.
573 #:make-flags
574 (list (string-append "dummy_drv_video_ladir="
575 (assoc-ref %outputs "out") "/lib/dri"))))
5c1c2254 576 (home-page "https://www.freedesktop.org/wiki/Software/vaapi/")
ee3b55ea
TUBK		 577 (synopsis "Video acceleration library")
578 (description "The main motivation for VA-API (Video Acceleration API) is
579to enable hardware accelerated video decode/encode at various
580entry-points (VLD, IDCT, Motion Compensation etc.) for prevailing coding
581standards (MPEG-2, MPEG-4 ASP/H.263, MPEG-4 AVC/H.264, and VC-1/VMW3).")
ae0bdd81 582 (license license:expat)))
ee3b55ea 583
39efcc9b
AE		 584(define-public ffmpeg
585 (package
586 (name "ffmpeg")
40c26533 587 (version "3.3.4")
39efcc9b
AE		 588 (source (origin
589 (method url-fetch)
a1121a7f
EF		 590 (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
591 version ".tar.xz"))
39efcc9b
AE		 592 (sha256
593 (base32
40c26533 594 "0mx9dvad3lkyhvsrblf280x2bz6dxajya1ylnspbdzldj0dpxfcq"))))
39efcc9b
AE		 595 (build-system gnu-build-system)
596 (inputs
c4c4cc05 597 `(("fontconfig" ,fontconfig)
39efcc9b 598 ("freetype" ,freetype)
c8dab7f4 599 ("gnutls" ,gnutls)
e816b348 600 ("opus" ,opus)
71241192 601 ("ladspa" ,ladspa)
d4f12db8 602 ("lame" ,lame)
c426e61e 603 ("libass" ,libass)
5d3609e4 604 ("libbluray" ,libbluray)
4d94b93c 605 ("libcaca" ,libcaca)
cc6c0170 606 ("libcdio-paranoia" ,libcdio-paranoia)
39efcc9b 607 ("libtheora" ,libtheora)
bb3df15e 608 ("libva" ,libva)
f88f0d20 609 ("libvdpau" ,libvdpau)
39efcc9b 610 ("libvorbis" ,libvorbis)
dc55b8b2 611 ("libvpx" ,libvpx)
f88f0d20 612 ("libx11" ,libx11)
549381d6 613 ("libx264" ,libx264)
f88f0d20 614 ("mesa" ,mesa)
71241192 615 ("openal" ,openal)
71241192 616 ("pulseaudio" ,pulseaudio)
85bc5434 617 ("sdl" ,sdl2)
72bfebf5 618 ("soxr" ,soxr)
c4c4cc05 619 ("speex" ,speex)
72bfebf5 620 ("twolame" ,twolame)
d505801a 621 ("x265" ,x265)
67932f86 622 ("xvid" ,xvid)
b3546174 623 ("zlib" ,zlib)))
c4c4cc05
JD		 624 (native-inputs
625 `(("bc" ,bc)
39efcc9b
AE		 626 ("perl" ,perl)
627 ("pkg-config" ,pkg-config)
824d9dc3 628 ("texinfo" ,texinfo)
39efcc9b
AE		 629 ("python" ,python-2) ; scripts use interpreter python2
630 ("speex" ,speex)
c4c4cc05 631 ("yasm" ,yasm)))
39efcc9b 632 (arguments
31f9322e 633 `(#:test-target "fate"
12f92e38
AP		 634 #:configure-flags
635 ;; possible additional inputs:
636 ;; --enable-avisynth enable reading of AviSynth script
637 ;; files [no]
638 ;; --enable-frei0r enable frei0r video filtering
639 ;; --enable-libaacplus enable AAC+ encoding via libaacplus [no]
640 ;; --enable-libcelt enable CELT decoding via libcelt [no]
641 ;; --enable-libdc1394 enable IIDC-1394 grabbing using libdc1394
642 ;; and libraw1394 [no]
643 ;; --enable-libfaac enable AAC encoding via libfaac [no]
644 ;; --enable-libfdk-aac enable AAC de/encoding via libfdk-aac [no]
645 ;; --enable-libflite enable flite (voice synthesis) support via
646 ;; libflite [no]
647 ;; --enable-libgme enable Game Music Emu via libgme [no]
648 ;; --enable-libgsm enable GSM de/encoding via libgsm [no]
649 ;; --enable-libiec61883 enable iec61883 via libiec61883 [no]
650 ;; --enable-libilbc enable iLBC de/encoding via libilbc [no]
651 ;; --enable-libmodplug enable ModPlug via libmodplug [no]
652 ;; --enable-libnut enable NUT (de)muxing via libnut,
653 ;; native (de)muxer exists [no]
654 ;; --enable-libopencore-amrnb enable AMR-NB de/encoding via
655 ;; libopencore-amrnb [no]
656 ;; --enable-libopencore-amrwb enable AMR-WB decoding via
657 ;; libopencore-amrwb [no]
658 ;; --enable-libopencv enable video filtering via libopencv [no]
659 ;; --enable-libopenjpeg enable JPEG 2000 de/encoding via
660 ;; OpenJPEG [no]
661 ;; --enable-librtmp enable RTMP[E] support via librtmp [no]
662 ;; --enable-libschroedinger enable Dirac de/encoding via
663 ;; libschroedinger [no]
664 ;; --enable-libshine enable fixed-point MP3 encoding via
665 ;; libshine [no]
666 ;; --enable-libssh enable SFTP protocol via libssh [no]
667 ;; (libssh2 does not work)
668 ;; --enable-libstagefright-h264 enable H.264 decoding via
669 ;; libstagefright [no]
670 ;; --enable-libutvideo enable Ut Video encoding and decoding via
671 ;; libutvideo [no]
672 ;; --enable-libv4l2 enable libv4l2/v4l-utils [no]
673 ;; --enable-libvidstab enable video stabilization using
674 ;; vid.stab [no]
675 ;; --enable-libvo-aacenc enable AAC encoding via libvo-aacenc [no]
676 ;; --enable-libvo-amrwbenc enable AMR-WB encoding via
677 ;; libvo-amrwbenc [no]
678 ;; --enable-libwavpack enable wavpack encoding via libwavpack [no]
679 ;; --enable-libxavs enable AVS encoding via xavs [no]
680 ;; --enable-libzmq enable message passing via libzmq [no]
681 ;; --enable-libzvbi enable teletext support via libzvbi [no]
682 ;; --enable-opencl enable OpenCL code
12f92e38
AP		 683 '("--enable-avresample"
684 "--enable-gpl" ; enable optional gpl licensed parts
685 "--enable-shared"
686 "--enable-fontconfig"
c8dab7f4 687 "--enable-gnutls"
12f92e38
AP		 688 "--enable-ladspa"
689 "--enable-libass"
690 "--enable-libbluray"
691 "--enable-libcaca"
692 "--enable-libcdio"
693 "--enable-libfreetype"
694 "--enable-libmp3lame"
695 "--enable-libopus"
696 "--enable-libpulse"
12f92e38
AP		 697 "--enable-libsoxr"
698 "--enable-libspeex"
699 "--enable-libtheora"
700 "--enable-libtwolame"
701 "--enable-libvorbis"
702 "--enable-libvpx"
703 "--enable-libxvid"
704 "--enable-libx264"
d505801a 705 "--enable-libx265"
12f92e38 706 "--enable-openal"
f88f0d20 707 "--enable-opengl"
12f92e38
AP		 708
709 "--enable-runtime-cpudetect"
710
711 ;; Runtime cpu detection is not implemented on
712 ;; MIPS, so we disable some features.
713 "--disable-mips32r2"
c5e1fcd0 714 "--disable-mipsdsp"
12f92e38
AP		 715 "--disable-mipsdspr2"
716 "--disable-mipsfpu")
31f9322e 717 #:phases
f2feb0ce
LC		 718 (modify-phases %standard-phases
719 (replace
39efcc9b
AE		 720 'configure
721 ;; configure does not work followed by "SHELL=..." and
722 ;; "CONFIG_SHELL=..."; set environment variables instead
723 (lambda* (#:key outputs configure-flags #:allow-other-keys)
724 (let ((out (assoc-ref outputs "out")))
725 (substitute* "configure"
47734a56 726 (("#! /bin/sh") (string-append "#!" (which "sh"))))
39efcc9b
AE		 727 (setenv "SHELL" (which "bash"))
728 (setenv "CONFIG_SHELL" (which "bash"))
12f92e38
AP		 729 (zero? (apply system*
730 "./configure"
731 (string-append "--prefix=" out)
732 ;; Add $libdir to the RUNPATH of all the binaries.
733 (string-append "--extra-ldflags=-Wl,-rpath="
734 out "/lib")
735 configure-flags)))))
457e528e
LC		 736 (add-before
737 'check 'set-ld-library-path
738 (lambda _
739 ;; Allow $(top_builddir)/ffmpeg to find its dependencies when
740 ;; running tests.
741 (let* ((dso (find-files "." "\\.so$"))
742 (path (string-join (map dirname dso) ":")))
743 (format #t "setting LD_LIBRARY_PATH to ~s~%" path)
744 (setenv "LD_LIBRARY_PATH" path)
27350ef8 745 #t))))))
702bfbf1 746 (home-page "https://www.ffmpeg.org/")
39efcc9b
AE		 747 (synopsis "Audio and video framework")
748 (description "FFmpeg is a complete, cross-platform solution to record,
749convert and stream audio and video. It includes the libavcodec
750audio/video codec library.")
ae0bdd81 751 (license license:gpl2+)))
d5a748e8 752
940778c7
LC		 753(define-public ffmpeg-2.8
754 (package
755 (inherit ffmpeg)
47111bb3 756 (version "2.8.13")
940778c7
LC		 757 (source (origin
758 (method url-fetch)
759 (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
760 version ".tar.xz"))
761 (sha256
762 (base32
47111bb3 763 "0hyqr391pika4vgynv90bacz11wdpqcqfgj5h7g5jrmgvz6hgj68"))))
940778c7
LC		 764 (arguments
765 (substitute-keyword-arguments (package-arguments ffmpeg)
766 ((#:configure-flags flags)
767 `(map (lambda (flag)
768 (if (string=? flag "--disable-mipsdsp")
769 "--disable-mipsdspr1"
770 flag))
771 ,flags))))))
772
d5a748e8
AE		 773(define-public vlc
774 (package
775 (name "vlc")
dd13aa90 776 (version "2.2.6")
d5a748e8
AE		 777 (source (origin
778 (method url-fetch)
779 (uri (string-append
a134cc8e 780 "https://download.videolan.org/pub/videolan/vlc/"
d5a748e8
AE		 781 version "/vlc-" version ".tar.xz"))
782 (sha256
783 (base32
dd13aa90 784 "1a22b913p2227ljz89c4fgjlyln5gcz8z58w32r0wh4srnnd60y4"))))
d5a748e8
AE		 785 (build-system gnu-build-system)
786 (native-inputs
2d2e97bd 787 `(("git" ,git) ; needed for a test
d5a748e8
AE		 788 ("pkg-config" ,pkg-config)))
789 ;; FIXME: Add optional inputs once available.
790 (inputs
791 `(("alsa-lib" ,alsa-lib)
792 ("avahi" ,avahi)
793 ("dbus" ,dbus)
794 ("flac" ,flac)
b4dff935 795 ("ffmpeg" ,ffmpeg-2.8) ;fails to build against ffmpeg 3.0
d5a748e8
AE		 796 ("fontconfig" ,fontconfig)
797 ("freetype" ,freetype)
798 ("gnutls" ,gnutls)
8824da4c 799 ("liba52" ,liba52)
d5a748e8 800 ("libcddb" ,libcddb)
72b6a894 801 ("libdvbpsi" ,libdvbpsi)
d5a748e8
AE		 802 ("libgcrypt" ,libgcrypt)
803 ("libkate" ,libkate)
804 ("libmad" ,libmad)
805 ("libogg" ,libogg)
806 ("libpng" ,libpng)
807 ("libsamplerate" ,libsamplerate)
808 ("libssh2" ,libssh2)
809 ("libvorbis" ,libvorbis)
810 ("libtheora" ,libtheora)
811 ("libxext" ,libxext)
c161c22a 812 ("libxi" ,libxi)
d5a748e8
AE		 813 ("libxinerama" ,libxinerama)
814 ("libxml2" ,libxml2)
815 ("libxpm" ,libxpm)
2aaa5729 816 ("livemedia-utils" ,livemedia-utils)
d5a748e8
AE		 817 ("lua" ,lua-5.1)
818 ("mesa" ,mesa)
819 ("opus" ,opus)
820 ("perl" ,perl)
821 ("pulseaudio" ,pulseaudio)
822 ("python" ,python-wrapper)
552c3e95
MB		 823 ("qtbase" ,qtbase)
824 ("qtx11extras" ,qtx11extras)
d5a748e8
AE		 825 ("sdl" ,sdl)
826 ("sdl-image" ,sdl-image)
827 ("speex" ,speex)
8f5f6c92 828 ("x265" ,x265)
d5a748e8
AE		 829 ("xcb-util-keysyms" ,xcb-util-keysyms)))
830 (arguments
831 `(#:configure-flags
eb1f2420 832 `("CXXFLAGS=-std=gnu++11"
d5a748e8
AE		 833 ,(string-append "LDFLAGS=-Wl,-rpath -Wl,"
834 (assoc-ref %build-inputs "ffmpeg")
cd76fbde
LC		 835 "/lib")) ;needed for the tests
836
837 #:phases
838 (modify-phases %standard-phases
2d2e97bd 839 (add-after 'unpack 'patch-source
2aaa5729
CL		 840 (lambda* (#:key inputs #:allow-other-keys)
841 (let ((livemedia-utils (assoc-ref inputs "livemedia-utils")))
2d2e97bd 842 (substitute* "configure"
2aaa5729
CL		 843 (("LIVE555_PREFIX=\\$\\{LIVE555_PREFIX-\"/usr\"\\}")
844 (string-append "LIVE555_PREFIX=" livemedia-utils)))
2d2e97bd
MB		 845 ;; Some of the tests require using the display to test out VLC,
846 ;; which fails in our sandboxed build system
847 (substitute* "test/run_vlc.sh"
848 (("./vlc --ignore-config") "echo"))
849 ;; XXX Likely not needed for >2.2.6.
850 (substitute* "modules/gui/qt4/components/interface_widgets.cpp"
851 (("<qx11info_x11.h>") "<QtX11Extras/qx11info_x11.h>"))
2aaa5729 852 #t)))
cd76fbde
LC		 853 (add-after 'install 'regenerate-plugin-cache
854 (lambda* (#:key outputs #:allow-other-keys)
855 ;; The 'install-exec-hook' rule in the top-level Makefile.am
856 ;; generates 'lib/vlc/plugins/plugins.dat', a plugin cache, using
857 ;; 'vlc-cache-gen'. This file includes the mtime of the plugins
858 ;; it references. Thus, we first reset the timestamps of all
859 ;; these files, and then regenerate the cache such that the
860 ;; mtimes it includes are always zero instead of being dependent
861 ;; on the build time.
862 (let* ((out (assoc-ref outputs "out"))
863 (pkglibdir (string-append out "/lib/vlc"))
864 (plugindir (string-append pkglibdir "/plugins"))
865 (cachegen (string-append pkglibdir "/vlc-cache-gen")))
866 ;; TODO: Factorize 'reset-timestamps'.
867 (for-each (lambda (file)
868 (let ((s (lstat file)))
869 (unless (eq? (stat:type s) 'symlink)
870 (utime file 0 0 0 0))))
871 (find-files plugindir))
872 (zero? (system* cachegen plugindir))))))))
d5a748e8
AE		 873 (home-page "https://www.videolan.org/")
874 (synopsis "Audio and video framework")
875 (description "VLC is a cross-platform multimedia player and framework
876that plays most multimedia files as well as DVD, Audio CD, VCD, and various
877treaming protocols.")
ae0bdd81 878 (license license:gpl2+)))
ace69243
AE		 879
880(define-public mplayer
881 (package
882 (name "mplayer")
e71b20e5 883 (version "1.3.0")
ace69243
AE		 884 (source (origin
885 (method url-fetch)
886 (uri (string-append
ebde7c7a 887 "https://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
ace69243
AE		 888 version ".tar.xz"))
889 (sha256
890 (base32
e71b20e5 891 "0hwqn04bdknb2ic88xd75smffxx63scvz0zvwvjb56nqj9n89l1s"))))
ace69243
AE		 892 (build-system gnu-build-system)
893 ;; FIXME: Add additional inputs once available.
894 (native-inputs
895 `(("pkg-config" ,pkg-config)))
896 (inputs
897 `(("alsa-lib" ,alsa-lib)
898 ("cdparanoia" ,cdparanoia)
b3546174 899 ("ffmpeg" ,ffmpeg)
778a6a8b 900 ("fontconfig" ,fontconfig)
ace69243 901 ("freetype" ,freetype)
778a6a8b 902;; ("giflib" ,giflib) ; uses QuantizeBuffer, requires version >= 5
ace69243 903 ("lame" ,lame)
778a6a8b 904 ("libass" ,libass)
b3546174
MW		 905 ("libdvdcss" ,libdvdcss)
906 ("libdvdnav" ,libdvdnav)
ace69243 907 ("libjpeg" ,libjpeg)
778a6a8b
EF		 908 ("libmpeg2" ,libmpeg2)
909 ("libmpg123" ,mpg123) ; audio codec for MP3
ace69243
AE		 910 ("libpng" ,libpng)
911 ("libtheora" ,libtheora)
778a6a8b 912 ("libvdpau" ,libvdpau)
ace69243
AE		 913 ("libvorbis" ,libvorbis)
914 ("libx11" ,libx11)
778a6a8b 915 ("libx264" ,libx264)
ace69243
AE		 916 ("libxinerama" ,libxinerama)
917 ("libxv" ,libxv)
778a6a8b 918 ("libxxf86dga" ,libxxf86dga)
ace69243 919 ("mesa" ,mesa)
778a6a8b 920 ("opus" ,opus)
ace69243
AE		 921 ("perl" ,perl)
922 ("pulseaudio" ,pulseaudio)
923 ("python" ,python-wrapper)
924 ("sdl" ,sdl)
925 ("speex" ,speex)
926 ("yasm" ,yasm)
927 ("zlib" ,zlib)))
928 (arguments
929 `(#:tests? #f ; no test target
930 #:phases
ebde7c7a
EF		 931 (modify-phases %standard-phases
932 (replace 'configure
ace69243
AE		 933 ;; configure does not work followed by "SHELL=..." and
934 ;; "CONFIG_SHELL=..."; set environment variables instead
935 (lambda* (#:key inputs outputs #:allow-other-keys)
936 (let ((out (assoc-ref outputs "out"))
937 (libx11 (assoc-ref inputs "libx11")))
938 (substitute* "configure"
2564b7c2 939 (("#! /bin/sh") (string-append "#!" (which "sh"))))
ace69243
AE		 940 (setenv "SHELL" (which "bash"))
941 (setenv "CONFIG_SHELL" (which "bash"))
942 (zero? (system*
943 "./configure"
944 (string-append "--extra-cflags=-I"
945 libx11 "/include") ; to detect libx11
ebde7c7a 946 "--disable-ffmpeg_a" ; disables bundled ffmpeg
ace69243 947 (string-append "--prefix=" out)
fe138965
MW		 948 ;; Enable runtime cpu detection where supported,
949 ;; and choose a suitable target.
950 ,@(match (or (%current-target-system)
951 (%current-system))
952 ("x86_64-linux"
953 '("--enable-runtime-cpudetection"
954 "--target=x86_64-linux"))
955 ("i686-linux"
956 '("--enable-runtime-cpudetection"
957 "--target=i686-linux"))
958 ("mips64el-linux"
f0d6d835
MW		 959 '("--target=mips3-linux"))
960 (_ (list (string-append
961 "--target="
962 (or (%current-target-system)
963 (nix-system->gnu-triplet
964 (%current-system)))))))
ebde7c7a
EF		 965 "--disable-iwmmxt"))))))))
966 (home-page "https://www.mplayerhq.hu/design7/news.html")
ace69243
AE		 967 (synopsis "Audio and video player")
968 (description "MPlayer is a movie player. It plays most MPEG/VOB, AVI,
969Ogg/OGM, VIVO, ASF/WMA/WMV, QT/MOV/MP4, RealMedia, Matroska, NUT,
970NuppelVideo, FLI, YUV4MPEG, FILM, RoQ, PVA files. One can watch VideoCD,
971SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
ae0bdd81 972 (license license:gpl2)))
d0ed39be 973
1c1178cd
TUBK		 974(define-public mpv
975 (package
976 (name "mpv")
6fcf8c2d 977 (version "0.27.0")
1c1178cd
TUBK		 978 (source (origin
979 (method url-fetch)
980 (uri (string-append
981 "https://github.com/mpv-player/mpv/archive/v" version
982 ".tar.gz"))
983 (sha256
984 (base32
6fcf8c2d 985 "1754371fkva8aqxgbm50jxyvij7mnysq0538bf6zghbmigqqn79l"))
1c1178cd
TUBK		 986 (file-name (string-append name "-" version ".tar.gz"))))
987 (build-system waf-build-system)
988 (native-inputs
832d60dc 989 `(("perl" ,perl) ; for zsh completion file
1c1178cd
TUBK		 990 ("pkg-config" ,pkg-config)
991 ("python-docutils" ,python-docutils)))
81c29ccc 992 ;; Missing features: libguess, Wayland, V4L2
1c1178cd
TUBK		 993 (inputs
994 `(("alsa-lib" ,alsa-lib)
995 ("enca" ,enca)
996 ("ffmpeg" ,ffmpeg)
2d8781a4 997 ("jack" ,jack-1)
1c1178cd
TUBK		 998 ("ladspa" ,ladspa)
999 ("lcms" ,lcms)
1000 ("libass" ,libass)
1001 ("libbluray" ,libbluray)
1002 ("libcaca" ,libcaca)
1003 ("libbs2b" ,libbs2b)
1004 ("libcdio-paranoia" ,libcdio-paranoia)
1005 ("libdvdread" ,libdvdread)
1006 ("libdvdnav" ,libdvdnav)
1007 ("libjpeg" ,libjpeg)
1008 ("libva" ,libva)
81c29ccc 1009 ("libvdpau" ,libvdpau)
1c1178cd
TUBK		 1010 ("libx11" ,libx11)
1011 ("libxext" ,libxext)
1012 ("libxinerama" ,libxinerama)
1013 ("libxrandr" ,libxrandr)
1014 ("libxscrnsaver" ,libxscrnsaver)
1015 ("libxv" ,libxv)
e66f0dd2
AP		 1016 ;; XXX: lua > 5.2 is not currently supported; see
1017 ;; waftools/checks/custom.py
1018 ("lua" ,lua-5.2)
1c1178cd
TUBK		 1019 ("mesa" ,mesa)
1020 ("mpg123" ,mpg123)
1021 ("pulseaudio" ,pulseaudio)
1022 ("rsound" ,rsound)
f0b8d83a 1023 ("waf" ,python-waf)
1c1178cd
TUBK		 1024 ("youtube-dl" ,youtube-dl)
1025 ("zlib" ,zlib)))
1026 (arguments
1027 '(#:phases
1028 (modify-phases %standard-phases
1029 (add-before
f8503e2b 1030 'configure 'setup-waf
1c1178cd
TUBK		 1031 (lambda* (#:key inputs #:allow-other-keys)
1032 (copy-file (assoc-ref inputs "waf") "waf")
599fd842 1033 (setenv "CC" "gcc"))))
98c8b963 1034 #:configure-flags (list "--enable-libmpv-shared"
43ba5dd4
EF		 1035 "--enable-cdda"
1036 "--enable-dvdread"
1037 "--enable-dvdnav"
98c8b963
EF		 1038 "--enable-zsh-comp"
1039 "--disable-build-date")
1c1178cd
TUBK		 1040 ;; No check function defined.
1041 #:tests? #f))
581873b5 1042 (home-page "https://mpv.io/")
1c1178cd
TUBK		 1043 (synopsis "Audio and video player")
1044 (description "mpv is a general-purpose audio and video player. It is a
1045fork of mplayer2 and MPlayer. It shares some features with the former
1046projects while introducing many more.")
ae0bdd81 1047 (license license:gpl2+)))
1c1178cd 1048
0e74bb5b
AG		 1049(define-public gnome-mpv
1050 (package
1051 (name "gnome-mpv")
ba4e15ae 1052 (version "0.12")
0e74bb5b
AG		 1053 (source
1054 (origin
1055 (method url-fetch)
1056 (uri (string-append "https://github.com/gnome-mpv/gnome-mpv/releases"
1057 "/download/v" version "/gnome-mpv-" version
1058 ".tar.xz"))
1059 (sha256
1060 (base32
ba4e15ae 1061 "0dcnz9vlf791v8d15j7hpymv87h6nb15alww6xjq0zpal5hi44kc"))))
0e74bb5b
AG		 1062 (native-inputs
1063 `(("intltool" ,intltool)
1064 ("pkg-config" ,pkg-config)))
1065 (inputs
1066 `(("gtk+" ,gtk+)
1067 ("libepoxy" ,libepoxy)
1068 ("mpv" ,mpv)))
1069 (build-system glib-or-gtk-build-system)
1070 (home-page "https://github.com/gnome-mpv/gnome-mpv")
1071 (synopsis "GTK+ frontend for the mpv media player")
1072 (description "GNOME MPV is a simple GTK+ frontend for the mpv media player.
1073GNOME MPV interacts with mpv via the client API exported by libmpv, allowing
1074access to mpv's powerful playback capabilities.")
1075 (license license:gpl3+)))
1076
d0ed39be
DT		 1077(define-public libvpx
1078 (package
1079 (name "libvpx")
65064909 1080 (version "1.6.1")
d0ed39be
DT		 1081 (source (origin
1082 (method url-fetch)
723e8866
MW		 1083 (uri (string-append "http://storage.googleapis.com/"
1084 "downloads.webmproject.org/releases/webm/"
1085 name "-" version ".tar.bz2"))
d0ed39be
DT		 1086 (sha256
1087 (base32
65064909 1088 "06d8hqjkfs6wl45qf4pwh1kpbvkx6cwywd5y8d4lgagvjwm0qb0w"))
c7c49446 1089 (patches (search-patches "libvpx-CVE-2016-2818.patch"))))
d0ed39be
DT		 1090 (build-system gnu-build-system)
1091 (arguments
0e47b4e7
EF		 1092 `(#:phases
1093 (modify-phases %standard-phases
1094 (replace 'configure
1095 (lambda* (#:key outputs #:allow-other-keys)
1096 (setenv "CONFIG_SHELL" (which "bash"))
1097 (let ((out (assoc-ref outputs "out")))
1098 (setenv "LDFLAGS"
1099 (string-append "-Wl,-rpath=" out "/lib"))
1100 (zero? (system* "./configure"
1101 "--enable-shared"
1102 "--as=yasm"
1103 ;; Limit size to avoid CVE-2015-1258
1104 "--size-limit=16384x16384"
1105 (string-append "--prefix=" out)))))))
4f8f15cd 1106 #:tests? #f)) ; no check target
d0ed39be
DT		 1107 (native-inputs
1108 `(("perl" ,perl)
1109 ("yasm" ,yasm)))
1110 (synopsis "VP8/VP9 video codec")
1111 (description "libvpx is a codec for the VP8/VP9 video compression format.")
ae0bdd81 1112 (license license:bsd-3)
d0ed39be 1113 (home-page "http://www.webmproject.org/")))
615215a5
LC		 1114
1115(define-public youtube-dl
1116 (package
1117 (name "youtube-dl")
d5b0a8e5 1118 (version "2017.09.15")
615215a5
LC		 1119 (source (origin
1120 (method url-fetch)
39dc7032 1121 (uri (string-append "https://yt-dl.org/downloads/"
615215a5
LC		 1122 version "/youtube-dl-"
1123 version ".tar.gz"))
1124 (sha256
1125 (base32
d5b0a8e5 1126 "1kw8pqzvhbpyxcz2jb692j4cgzd3vmd81mra09xvpzkq974jkx7f"))))
615215a5 1127 (build-system python-build-system)
2ad9515c
AV		 1128 (arguments
1129 ;; The problem here is that the directory for the man page and completion
1130 ;; files is relative, and for some reason, setup.py uses the
1131 ;; auto-detected sys.prefix instead of the user-defined "--prefix=FOO".
1132 ;; So, we need pass the prefix directly. In addition, make sure the Bash
1133 ;; completion file is called 'youtube-dl' rather than
1134 ;; 'youtube-dl.bash-completion'.
31c58006
LF		 1135 `(#:tests? #f ; Many tests fail. The test suite can be run with pytest.
1136 #:phases (modify-phases %standard-phases
2ad9515c
AV		 1137 (add-before 'install 'fix-the-data-directories
1138 (lambda* (#:key outputs #:allow-other-keys)
1139 (let ((prefix (assoc-ref outputs "out")))
1140 (mkdir "bash-completion")
1141 (rename-file "youtube-dl.bash-completion"
1142 "bash-completion/youtube-dl")
1143 (substitute* "setup.py"
1144 (("youtube-dl\\.bash-completion")
1145 "bash-completion/youtube-dl")
1146 (("'etc/")
1147 (string-append "'" prefix "/etc/"))
1148 (("'share/")
1149 (string-append "'" prefix "/share/")))))))))
615215a5
LC		 1150 (synopsis "Download videos from YouTube.com and other sites")
1151 (description
b798dfde 1152 "Youtube-dl is a small command-line program to download videos from
615215a5 1153YouTube.com and a few more sites.")
39dc7032 1154 (home-page "https://yt-dl.org")
ae0bdd81 1155 (license license:public-domain)))
e6bdb36a 1156
794223bc
CM		 1157(define-public youtube-dl-gui
1158 (package
1159 (name "youtube-dl-gui")
1160 (version "0.3.8")
1161 (source
1162 (origin
1163 (method url-fetch)
1164 (uri (pypi-uri "Youtube-DLG" version))
1165 (sha256
1166 (base32
1167 "0napxwzgls5ik1bxbp99vly32l23xpc4ng5kr24hfhf21ypjyadb"))))
1168 (build-system python-build-system)
1169 (arguments
1170 ;; In Guix, wxpython has not yet been packaged for Python 3.
1171 `(#:python ,python-2
1172 ;; This package has no tests.
1173 #:tests? #f
1174 #:phases
1175 (modify-phases %standard-phases
1176 (add-before 'build 'patch-source
1177 (lambda* (#:key inputs #:allow-other-keys)
1178 ;; The youtube-dl-gui program lets you configure options. Some of
1179 ;; them are problematic, so we change their defaults.
1180 (substitute* "youtube_dl_gui/optionsmanager.py"
1181 ;; When this is true, the builder process will try (and fail) to
1182 ;; write logs to the builder user's home directory.
1183 (("'enable_log': True") "'enable_log': False")
1184 ;; This determines which youtube-dl program youtube-dl-gui will
1185 ;; run. If we don't set this, then youtube-dl-gui might download
1186 ;; an arbitrary copy from the Internet into the user's home
1187 ;; directory and run it, so let's make sure youtube-dl-gui uses
1188 ;; the youtube-dl from the inputs by default.
1189 (("'youtubedl_path': self.config_path")
1190 (string-append "'youtubedl_path': '"
1191 (assoc-ref inputs "youtube-dl")
1192 "/bin'"))
1193 ;; When this is True, when youtube-dl-gui is finished downloading
1194 ;; a file, it will try (and possibly fail) to open the directory
1195 ;; containing the downloaded file. This can fail because it
1196 ;; assumes that xdg-open is in PATH. Unfortunately, simply
1197 ;; adding xdg-utils to the propagated inputs is not enough to
1198 ;; make this work, so for now we set the default to False.
1199 (("'open_dl_dir': True") "'open_dl_dir': False"))
1200 ;; The youtube-dl program from the inputs is actually a wrapper
1201 ;; script written in bash, so attempting to invoke it as a python
1202 ;; script will fail.
1203 (substitute* "youtube_dl_gui/downloaders.py"
1204 (("cmd = \\['python', self\\.youtubedl_path\\]")
1205 "cmd = [self.youtubedl_path]"))
1206 ;; Use relative paths for installing data files so youtube-dl-gui
1207 ;; installs the files relative to its prefix in the store, rather
1208 ;; than relative to /. Also, instead of installing data files into
1209 ;; $prefix/usr/share, install them into $prefix/share for
1210 ;; consistency (see: (standards) Directory Variables).
1211 (substitute* "setup.py"
1212 (("= '/usr/share") "= 'share"))
1213 ;; Update get_locale_file() so it finds the installed localization
1214 ;; files.
1215 (substitute* "youtube_dl_gui/utils.py"
1216 (("os\\.path\\.join\\('/usr', 'share'")
1217 (string-append "os.path.join('"
1218 (assoc-ref %outputs "out")
1219 "', 'share'"))))))))
1220 (inputs
1221 `(("python2-wxpython" ,python2-wxpython)
1222 ("youtube-dl" ,youtube-dl)))
1223 (home-page "https://github.com/MrS0m30n3/youtube-dl-gui")
1224 (synopsis
1225 "GUI (Graphical User Interface) for @command{youtube-dl}")
1226 (description
1227 "Youtube-dlG is a GUI (Graphical User Interface) for
1228@command{youtube-dl}. You can use it to download videos from YouTube and any
1229other site that youtube-dl supports.")
1230 (license license:unlicense)))
1231
72fa6667
FS		 1232(define-public you-get
1233 (package
1234 (name "you-get")
90062885 1235 (version "0.4.803")
72fa6667
FS		 1236 (source (origin
1237 (method url-fetch)
1238 (uri (string-append
e2155f58
FS		 1239 "https://github.com/soimort/you-get/archive/v"
1240 version ".tar.gz"))
1241 (file-name (string-append name "-" version ".tar.gz"))
72fa6667
FS		 1242 (sha256
1243 (base32
90062885 1244 "1rjy809x67dadzvj3midkhcda2kp6rqmbj6rbhjd5f16rvqgn7jp"))))
72fa6667
FS		 1245 (build-system python-build-system)
1246 (arguments
1247 ;; no tests
1248 '(#:tests? #f))
1249 (inputs
1250 `(("ffmpeg" ,ffmpeg)))
1251 (synopsis "Download videos, audios, or images from Web sites")
1252 (description
1253 "You-Get is a command-line utility to download media contents (videos,
1254audio, images) from the Web. It can use either mpv or vlc for playback.")
1255 (home-page "https://you-get.org/")
1256 (license license:expat)))
1257
5d3609e4
TUBK		 1258(define-public libbluray
1259 (package
1260 (name "libbluray")
d76e2634 1261 (version "1.0.1")
5d3609e4
TUBK		 1262 (source (origin
1263 (method url-fetch)
5e3f68e6 1264 (uri (string-append "https://download.videolan.org/videolan/"
5d3609e4
TUBK		 1265 name "/" version "/"
1266 name "-" version ".tar.bz2"))
1267 (sha256
1268 (base32
d76e2634 1269 "0fl5cxfj870rwqmmz3s04wh7wnabb7rnynfj1v3sz37ln8frm7qg"))))
5d3609e4 1270 (build-system gnu-build-system)
6c0cd765 1271 (arguments
d76e2634 1272 `(#:configure-flags '("--disable-bdjava-jar")
6c0cd765
AP		 1273 #:phases
1274 (modify-phases %standard-phases
1275 (add-before 'build 'fix-dlopen-paths
1276 (lambda* (#:key inputs #:allow-other-keys)
1277 (let ((libaacs (assoc-ref inputs "libaacs"))
1278 (libbdplus (assoc-ref inputs "libbdplus")))
1279 (substitute* "src/libbluray/disc/aacs.c"
1280 (("\"libaacs\"")
1281 (string-append "\"" libaacs "/lib/libaacs\"")))
1282 (substitute* "src/libbluray/disc/bdplus.c"
1283 (("\"libbdplus\"")
1284 (string-append "\"" libbdplus "/lib/libbdplus\"")))
1285 #t))))))
2da45ebe 1286 (native-inputs `(("pkg-config" ,pkg-config)))
5d3609e4 1287 (inputs
71ee51a0 1288 `(("fontconfig" ,fontconfig)
5d3609e4 1289 ("freetype" ,freetype)
6c0cd765
AP		 1290 ("libaacs" ,libaacs)
1291 ("libbdplus" ,libbdplus)
71ee51a0 1292 ("libxml2" ,libxml2)))
5e3f68e6 1293 (home-page "https://www.videolan.org/developers/libbluray.html")
5d3609e4
TUBK		 1294 (synopsis "Blu-Ray Disc playback library")
1295 (description
1296 "libbluray is a library designed for Blu-Ray Disc playback for media
1297players, like VLC or MPlayer.")
ae0bdd81 1298 (license license:lgpl2.1+)))
5d3609e4 1299
e6bdb36a
AE		 1300(define-public libdvdread
1301 (package
1302 (name "libdvdread")
9aebf330 1303 (version "5.0.3")
e6bdb36a
AE		 1304 (source (origin
1305 (method url-fetch)
b8a31908 1306 (uri (string-append "https://download.videolan.org/videolan/"
e6bdb36a
AE		 1307 name "/" version "/"
1308 name "-" version ".tar.bz2"))
1309 (sha256
1310 (base32
9aebf330 1311 "0ayqiq0psq18rcp6f5pz82sxsq66v0kwv0y55dbrcg68plnxy71j"))))
e6bdb36a
AE		 1312 (build-system gnu-build-system)
1313 (home-page "http://dvdnav.mplayerhq.hu/")
1314 (synopsis "Library for reading video DVDs")
1315 (description
1316 "Libdvdread provides a simple foundation for reading DVD video
1317disks. It provides the functionality that is required to access many
1318DVDs. It parses IFO files, reads NAV-blocks, and performs CSS
1319authentication and descrambling (if an external libdvdcss library is
1320installed).")
ae0bdd81 1321 (license license:gpl2+)))
b027d919 1322
b5b20bda
TD		 1323(define-public dvdauthor
1324 (package
1325 (name "dvdauthor")
1326 (version "0.7.2")
1327 (source
1328 (origin
1329 (method url-fetch)
1330 (uri (string-append "mirror://sourceforge/dvdauthor/dvdauthor-"
1331 version ".tar.gz"))
1332 (sha256
1333 (base32
1334 "1drfc47hikfzc9d7hjk34rw10iqw01d2vwmn91pv73ppx4nsj81h"))))
1335 (build-system gnu-build-system)
1336 (inputs
1337 `(("libdvdread" ,libdvdread)
1338 ("libpng" ,libpng)
1339 ("imagemagick" ,imagemagick)
1340 ("libxml2" ,libxml2)
1341 ("freetype" ,freetype)))
1342 (native-inputs
1343 `(("pkg-config" ,pkg-config)))
1344 (synopsis "Generates a DVD-Video movie from a MPEG-2 stream")
1345 (description "@command{dvdauthor} will generate a DVD-Video movie from a
1346MPEG-2 stream containing VOB packets.")
1347 (home-page "http://dvdauthor.sourceforge.net")
1348 (license license:gpl3+)))
1349
b027d919
AE		 1350(define-public libdvdnav
1351 (package
1352 (name "libdvdnav")
734976b6 1353 (version "5.0.3")
b027d919
AE		 1354 (source (origin
1355 (method url-fetch)
b8a31908 1356 (uri (string-append "https://download.videolan.org/videolan/"
b027d919
AE		 1357 name "/" version "/"
1358 name "-" version ".tar.bz2"))
1359 (sha256
1360 (base32
734976b6 1361 "0v8byv5z598k06rqzdmj7739vc86xq3zf79zfr698dib7lz055sh"))))
b027d919
AE		 1362 (build-system gnu-build-system)
1363 (native-inputs
1364 `(("pkg-config" ,pkg-config)))
1365 (inputs
1366 `(("libdvdread" ,libdvdread)))
1367 (home-page "http://dvdnav.mplayerhq.hu/")
1368 (synopsis "Library for video DVD navigation features")
1369 (description
1370 "Libdvdnav is a library for developers of multimedia
1371applications. It allows easy use of sophisticated DVD navigation features
1372such as DVD menus, multiangle playback and even interactive DVD games. All
1373this functionality is provided through a simple API which provides the DVD
1374playback as a single logical stream of blocks, intermitted by special
1375dvdnav events to report certain conditions. The main usage of libdvdnav is
1376a loop regularly calling a function to get the next block, surrounded by
1377additional calls to tell the library of user interaction. The whole
1378DVD virtual machine and internal playback states are completely
1379encapsulated.")
ae0bdd81 1380 (license license:gpl2+)))
2cd85cf9 1381
f1044010
TUBK		 1382(define-public libdvdnav-4
1383 (package
1384 (inherit libdvdnav)
1385 (version "4.2.1")
1386 (source (origin
1387 (method url-fetch)
1388 (uri
1389 (string-append
b8a31908 1390 "https://download.videolan.org/videolan/libdvdnav/libdvdnav-"
f1044010
TUBK		 1391 version ".tar.xz"))
1392 (sha256
1393 (base32
1394 "0wi3gy408c8xj0ism0hckv5jbfh3lg4pmgxv87gbch9jrhp2gjkz"))))
1395 (native-inputs
1396 `(("pkg-config" ,pkg-config)
1397 ("autoconf" ,autoconf)
1398 ("automake" ,automake)
1399 ("libtool" ,libtool)))
1400 (arguments
1401 '(#:phases
dc1d3cde
KK		 1402 (modify-phases %standard-phases
1403 (add-after 'unpack 'autoreconf
1404 (lambda _
1405 (zero? (system* "autoreconf" "-vif")))))))))
f1044010 1406
a6f710ec
TUBK		 1407(define-public libdvdcss
1408 (package
1409 (name "libdvdcss")
98416109 1410 (version "1.4.0")
a6f710ec
TUBK		 1411 (source (origin
1412 (method url-fetch)
b8a31908 1413 (uri (string-append "https://download.videolan.org/pub/"
a6f710ec
TUBK		 1414 name "/" version "/"
1415 name "-" version ".tar.bz2"))
1416 (sha256
1417 (base32
98416109 1418 "0nl45ifc4xcb196snv9d6hinfw614cqpzcqp92dg43c0hickg290"))))
a6f710ec 1419 (build-system gnu-build-system)
b8a31908 1420 (home-page "https://www.videolan.org/developers/libdvdcss.html")
a6f710ec
TUBK		 1421 (synopsis "Library for accessing DVDs as block devices")
1422 (description
1423 "libdvdcss is a simple library designed for accessing DVDs like a block
1424device without having to bother about the decryption.")
ae0bdd81 1425 (license license:gpl2+)))
a6f710ec 1426
2cd85cf9
DT		 1427(define-public srt2vtt
1428 (package
1429 (name "srt2vtt")
1430 (version "0.1")
1431 (source (origin
1432 (method url-fetch)
1433 (uri (string-append
152fc959 1434 "https://files.dthompson.us/srt2vtt/srt2vtt-"
2cd85cf9
DT		 1435 version ".tar.gz"))
1436 (sha256
1437 (base32
1438 "16b377znjm6qlga5yb8aj7b7bcisa1ghcnj2lrb1d30lvxp4liif"))))
1439 (build-system gnu-build-system)
1440 (inputs
1441 `(("guile" ,guile-2.0)))
1442 (synopsis "SubRip to WebVTT subtitle converter")
1443 (description "srt2vtt converts SubRip formatted subtitles to WebVTT format
1444for use with HTML5 video.")
1445 (home-page "http://dthompson.us/pages/software/srt2vtt")
ae0bdd81 1446 (license license:gpl3+)))
44726031
AE		 1447
1448(define-public avidemux
1449 (package
1450 (name "avidemux")
9e786e8b 1451 (version "2.6.12")
44726031
AE		 1452 (source (origin
1453 (method url-fetch)
1454 (uri (string-append
de67e922
LF		 1455 "mirror://sourceforge/" name "/" name "/" version "/"
1456 name "_" version ".tar.gz"))
44726031
AE		 1457 (sha256
1458 (base32
9e786e8b 1459 "0nz52yih8sff53inndkh2dba759xjzsh4b8xjww419lcpk0qp6kn"))
fc1adab1 1460 (patches (search-patches "avidemux-install-to-lib.patch"))))
44726031
AE		 1461 (build-system cmake-build-system)
1462 (native-inputs
1463 `(("pkg-config" ,pkg-config)))
1464 ;; FIXME: Once packaged, add libraries not found during the build.
1465 (inputs
1466 `(("alsa-lib" ,alsa-lib)
1467 ("fontconfig" ,fontconfig)
1468 ("freetype" ,freetype)
1469 ("fribidi" ,fribidi)
1470 ("glu" ,glu)
44726031
AE		 1471 ("jack" ,jack-1)
1472 ("lame" ,lame)
4cafe8ad
EF		 1473 ("libva" ,libva)
1474 ("libvdpau" ,libvdpau)
44726031
AE		 1475 ("libvorbis" ,libvorbis)
1476 ("libvpx" ,libvpx)
1477 ("libxv" ,libxv)
1478 ("perl" ,perl)
1479 ("pulseaudio" ,pulseaudio)
1480 ("python" ,python-wrapper)
a2c24bf5
DC		 1481 ("qt" ,qt) ; FIXME: reenable modular qt after update - requires building
1482 ;("qtbase" ,qtbase) with -std=gnu++11.
1483 ;("qttools" ,qttools)
44726031
AE		 1484 ("sdl" ,sdl)
1485 ("sqlite" ,sqlite)
1486 ("yasm" ,yasm)
1487 ("zlib" ,zlib)))
1488 (arguments
1489 `(#:tests? #f ; no check target
1490 #:phases
1491 ;; Make sure files inside the included ffmpeg tarball are
1492 ;; patch-shebanged.
1898900f
EF		 1493 (modify-phases %standard-phases
1494 (add-before 'patch-source-shebangs 'unpack-ffmpeg
44726031
AE		 1495 (lambda _
1496 (with-directory-excursion "avidemux_core/ffmpeg_package"
1898900f
EF		 1497 (system* "tar" "xf" "ffmpeg-2.7.6.tar.bz2")
1498 (delete-file "ffmpeg-2.7.6.tar.bz2"))))
1499 (add-after 'patch-source-shebangs 'repack-ffmpeg
44726031
AE		 1500 (lambda _
1501 (with-directory-excursion "avidemux_core/ffmpeg_package"
9e786e8b 1502 (substitute* "ffmpeg-2.7.6/configure"
2fed4042 1503 (("#! /bin/sh") (string-append "#!" (which "sh"))))
9e786e8b 1504 (system* "tar" "cjf" "ffmpeg-2.7.6.tar.bz2" "ffmpeg-2.7.6"
c09e6a5f 1505 ;; avoid non-determinism in the archive
92226a47
MW		 1506 "--sort=name" "--mtime=@0"
1507 "--owner=root:0" "--group=root:0")
1898900f
EF		 1508 (delete-file-recursively "ffmpeg-2.7.6"))))
1509 (replace 'configure
1510 (lambda _
1511 ;; Copy-paste settings from the cmake build system.
1512 (setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
1513 (setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))))
1514 (replace 'build
1515 (lambda* (#:key inputs outputs #:allow-other-keys)
1516 (let*
1517 ((out (assoc-ref outputs "out"))
1518 (lib (string-append out "/lib"))
1519 (top (getcwd))
1520 (sdl (assoc-ref inputs "sdl"))
1521 (build_component
1522 (lambda* (component srcdir #:optional (args '()))
1523 (let ((builddir (string-append "build_" component)))
1524 (mkdir builddir)
1525 (with-directory-excursion builddir
1526 (zero?
1527 (and
44726031
AE		 1528 (apply system* "cmake"
1529 "-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
1530 (string-append "-DCMAKE_INSTALL_PREFIX=" out)
1531 (string-append "-DCMAKE_INSTALL_RPATH=" lib)
c687f731
AE		 1532 (string-append "-DCMAKE_SHARED_LINKER_FLAGS="
1533 "\"-Wl,-rpath=" lib "\"")
44726031
AE		 1534 (string-append "-DAVIDEMUX_SOURCE_DIR=" top)
1535 (string-append "-DSDL_INCLUDE_DIR="
1536 sdl "/include/SDL")
1537 (string-append "../" srcdir)
aab56ab7 1538 "-DENABLE_QT5=True"
44726031 1539 args)
1898900f
EF		 1540 (system* "make" "-j"
1541 (number->string (parallel-job-count)))
1542 (system* "make" "install"))))))))
1543 (mkdir out)
1544 (and (build_component "core" "avidemux_core")
1545 (build_component "cli" "avidemux/cli")
1546 (build_component "qt4" "avidemux/qt4")
1547 (build_component "plugins_common" "avidemux_plugins"
1548 '("-DPLUGIN_UI=COMMON"))
1549 (build_component "plugins_cli" "avidemux_plugins"
1550 '("-DPLUGIN_UI=CLI"))
1551 (build_component "plugins_qt4" "avidemux_plugins"
1552 '("-DPLUGIN_UI=QT4"))
1553 (build_component "plugins_settings" "avidemux_plugins"
1554 '("-DPLUGIN_UI=SETTINGS")))
1555 ;; Remove .exe and .dll file.
1556 (delete-file-recursively
1557 (string-append out "/share/ADM6_addons")))))
1558 (delete 'install))))
44726031
AE		 1559 (home-page "http://fixounet.free.fr/avidemux/")
1560 (synopsis "Video editor")
1561 (description "Avidemux is a video editor designed for simple cutting,
1562filtering and encoding tasks. It supports many file types, including AVI,
1563DVD compatible MPEG files, MP4 and ASF, using a variety of codecs. Tasks
1564can be automated using projects, job queue and powerful scripting
1565capabilities.")
afd9ed5c 1566 (supported-systems '("x86_64-linux" "i686-linux" "armhf-linux"))
44726031 1567 ;; Software with various licenses is included, see License.txt.
ae0bdd81 1568 (license license:gpl2+)))
44726031 1569
6f6c8b65
TUBK		 1570(define-public vapoursynth
1571 (package
1572 (name "vapoursynth")
4f7a9e0b 1573 (version "37")
6f6c8b65
TUBK		 1574 (source (origin
1575 (method url-fetch)
1576 (uri (string-append
1577 "https://github.com/vapoursynth/vapoursynth/archive/R"
1578 version ".tar.gz"))
0b37c4cd 1579 (file-name (string-append name "-" version ".tar.gz"))
6f6c8b65
TUBK		 1580 (sha256
1581 (base32
4f7a9e0b 1582 "1g3hc079jw4mz1cmkv2y28pdb556wqc8ql7iravgh1rg8j3f1zi5"))))
6f6c8b65
TUBK		 1583 (build-system gnu-build-system)
1584 (native-inputs
1585 `(("autoconf" ,autoconf)
1586 ("automake" ,automake)
1587 ("cython" ,python-cython)
1588 ("libtool" ,libtool)
1589 ("pkg-config" ,pkg-config)
1590 ("python" ,python)
1591 ("yasm" ,yasm)))
1592 (inputs
1593 `(("ffmpeg" ,ffmpeg)
1594 ("libass" ,libass)
f80d5fe0
EF		 1595 ("tesseract-ocr" ,tesseract-ocr)
1596 ("zimg" ,zimg)))
6f6c8b65
TUBK		 1597 (arguments
1598 '(#:phases
1599 (modify-phases %standard-phases
1600 (add-after
f8503e2b 1601 'unpack 'autogen
6f6c8b65
TUBK		 1602 (lambda _
1603 (zero? (system* "sh" "autogen.sh")))))))
1604 (home-page "http://www.vapoursynth.com/")
1605 (synopsis "Video processing framework")
1606 (description "VapourSynth is a C++ library and Python module for video
1607manipulation. It aims to be a modern rewrite of Avisynth, supporting
1608multithreading, generalized colorspaces, per frame properties, and videos with
1609format changes.")
9a078f48 1610 ;; src/core/cpufeatures only allows x86, ARM or PPC
cda20ee8
EF		 1611 (supported-systems (fold delete %supported-systems
1612 '("mips64el-linux" "aarch64-linux")))
6f6c8b65 1613 ;; As seen from the source files.
ae0bdd81 1614 (license license:lgpl2.1+)))
6f6c8b65 1615
67932f86
TUBK		 1616(define-public xvid
1617 (package
1618 (name "xvid")
e05035c7 1619 (version "1.3.4")
67932f86
TUBK		 1620 (source (origin
1621 (method url-fetch)
1622 (uri (string-append
1623 "http://downloads.xvid.org/downloads/xvidcore-"
1624 version ".tar.bz2"))
1625 (sha256
1626 (base32
e05035c7 1627 "1xwbmp9wqshc0ckm970zdpi0yvgqxlqg0s8bkz98mnr8p2067bsz"))))
67932f86
TUBK		 1628 (build-system gnu-build-system)
1629 (native-inputs `(("yasm" ,yasm)))
1630 (arguments
1631 '(#:phases
62fe2d47
EF		 1632 (modify-phases %standard-phases
1633 (add-before
1634 'configure 'pre-configure
1635 (lambda _
1636 (chdir "build/generic")
1637 (substitute* "configure"
1638 (("#! /bin/sh") (string-append "#!" (which "sh")))))))
67932f86
TUBK		 1639 ;; No 'check' target.
1640 #:tests? #f))
1641 (home-page "https://www.xvid.com/")
1642 (synopsis "MPEG-4 Part 2 Advanced Simple Profile video codec")
1643 (description "Xvid is an MPEG-4 Part 2 Advanced Simple Profile (ASP) video
1644codec library. It uses ASP features such as b-frames, global and quarter
1645pixel motion compensation, lumi masking, trellis quantization, and H.263, MPEG
1646and custom quantization matrices.")
ae0bdd81 1647 (license license:gpl2+)))
e16fde14
DT		 1648
1649(define-public livestreamer
1650 (package
1651 (name "livestreamer")
68e88a09 1652 (version "1.12.2")
e16fde14
DT		 1653 (source (origin
1654 (method url-fetch)
1655 (uri (string-append
1656 "https://github.com/chrippa/livestreamer/archive/v"
1657 version ".tar.gz"))
1658 (file-name (string-append "livestreamer-" version ".tar.gz"))
1659 (sha256
1660 (base32
68e88a09 1661 "1fp3d3z2grb1ls97smjkraazpxnvajda2d1g1378s6gzmda2jvjd"))))
e16fde14
DT		 1662 (build-system python-build-system)
1663 (arguments
1664 '(#:tests? #f)) ; tests rely on external web servers
e16fde14 1665 (propagated-inputs
5b9fe59f 1666 `(("python-requests" ,python-requests)))
e16fde14
DT		 1667 (synopsis "Internet video stream viewer")
1668 (description "Livestreamer is a command-line utility that extracts streams
1669from various services and pipes them into a video playing application.")
1670 (home-page "http://livestreamer.io/")
1671 (license license:bsd-2)))
307ad140
RW		 1672
1673(define-public mlt
1674 (package
1675 (name "mlt")
f05f5b30 1676 (version "6.4.1")
307ad140
RW		 1677 (source (origin
1678 (method url-fetch)
4c7729dc
EF		 1679 (uri (string-append "https://github.com/mltframework/mlt/"
1680 "archive/v" version ".tar.gz"))
1681 (file-name (string-append name "-" version ".tar.gz"))
307ad140
RW		 1682 (sha256
1683 (base32
f05f5b30 1684 "10m3ry0b2pvqx3bk34qh5dq337nn8pkc2gzfyhsj4nv9abskln47"))))
307ad140
RW		 1685 (build-system gnu-build-system)
1686 (arguments
1687 `(#:tests? #f ; no tests
1688 #:make-flags '("CC=gcc")
1689 #:configure-flags
1690 (list "--enable-gpl3"
1691 "--enable-gpl")
1692 #:phases
1693 (modify-phases %standard-phases
1694 (add-after
1695 'configure 'override-LDFLAGS
1696 (lambda* (#:key outputs #:allow-other-keys)
1697 (substitute* "config.mak"
1698 (("LDFLAGS\\+=")
1699 (string-append "LDFLAGS+=-Wl,-rpath="
1700 (assoc-ref outputs "out")
1701 "/lib ")))
1702 #t)))))
1703 (inputs
1704 `(("alsa-lib" ,alsa-lib)
1705 ("fftw" ,fftw)
1706 ("libxml2" ,libxml2)
1707 ("jack" ,jack-1)
1708 ("ladspa" ,ladspa)
1709 ("libsamplerate" ,libsamplerate)
4c7729dc 1710 ("pulseaudio" ,pulseaudio)
307ad140
RW		 1711 ("sdl" ,sdl)
1712 ("sox" ,sox)))
1713 (native-inputs
1714 `(("pkg-config" ,pkg-config)))
4c7729dc 1715 (home-page "https://www.mltframework.org/")
307ad140
RW		 1716 (synopsis "Author, manage, and run multitrack audio/video compositions")
1717 (description
1718 "MLT is a multimedia framework, designed and developed for television
1719broadcasting. It provides a toolkit for broadcasters, video editors, media
1720players, transcoders, web streamers and many more types of applications. The
1721functionality of the system is provided via an assortment of ready to use
1722tools, XML authoring components, and an extensible plug-in based API.")
1723 (license license:lgpl2.1+)))
f464016d 1724
945d985a
DT		 1725(define-public v4l-utils
1726 (package
1727 (name "v4l-utils")
f1d1ef71 1728 (version "1.12.5")
945d985a
DT		 1729 (source (origin
1730 (method url-fetch)
1d4ac724 1731 (uri (string-append "https://linuxtv.org/downloads/v4l-utils"
945d985a
DT		 1732 "/v4l-utils-" version ".tar.bz2"))
1733 (sha256
1734 (base32
f1d1ef71 1735 "03g2b4rivrilimcp57mwrlsa3qvrxmk4sza08mygwmqbvcnic606"))))
945d985a
DT		 1736 (build-system gnu-build-system)
1737 (arguments
1738 '(#:configure-flags
1739 (list (string-append "--with-udevdir="
1740 (assoc-ref %outputs "out")
2cef0f7c
DC		 1741 "/lib/udev")
1742 "CXXFLAGS=-std=gnu++11")))
945d985a 1743 (native-inputs
4ca077d5
TGR		 1744 `(("perl" ,perl)
1745 ("pkg-config" ,pkg-config)))
945d985a
DT		 1746 (inputs
1747 `(("alsa-lib" ,alsa-lib)
1748 ("glu" ,glu)
1749 ("libjpeg" ,libjpeg)
1750 ("libx11" ,libx11)
b37662e2 1751 ("qtbase" ,qtbase)
945d985a
DT		 1752 ("eudev" ,eudev)))
1753 (synopsis "Realtime video capture utilities for Linux")
1754 (description "The v4l-utils provide a series of libraries and utilities to
1755be used for realtime video capture via Linux-specific APIs.")
1756 (home-page "https://linuxtv.org/wiki/index.php/V4l-utils")
1757 ;; libv4l2 is LGPL2.1+, while utilities are GPL2 only.
1758 (license (list license:lgpl2.1+ license:gpl2))))
1759
f464016d
DT		 1760(define-public obs
1761 (package
1762 (name "obs")
341ccb0f 1763 (version "18.0.2")
f464016d
DT		 1764 (source (origin
1765 (method url-fetch)
1766 (uri (string-append "https://github.com/jp9000/obs-studio"
1767 "/archive/" version ".tar.gz"))
1768 (file-name (string-append name "-" version ".tar.gz"))
1769 (sha256
1770 (base32
341ccb0f 1771 "02pbiyvf5x0zh448h5rpmyn33qnsqk694xxlyns83mdi74savyqw"))))
f464016d 1772 (build-system cmake-build-system)
08858812 1773 (arguments
f3bd1728 1774 `(#:tests? #f)) ; no tests
f464016d
DT		 1775 (native-inputs
1776 `(("pkg-config" ,pkg-config)))
1777 (inputs
4f98c3c5
EF		 1778 `(("alsa-lib" ,alsa-lib)
1779 ("curl" ,curl)
f464016d
DT		 1780 ("eudev" ,eudev)
1781 ("ffmpeg" ,ffmpeg)
4f98c3c5 1782 ("fontconfig" ,fontconfig)
f464016d
DT		 1783 ("freetype" ,freetype)
1784 ("jack" ,jack-1)
1785 ("jansson" ,jansson)
1786 ("libx264" ,libx264)
1787 ("libxcomposite" ,libxcomposite)
1788 ("mesa" ,mesa)
1789 ("pulseaudio" ,pulseaudio)
90a2309b
EF		 1790 ("qtbase" ,qtbase)
1791 ("qtx11extras" ,qtx11extras)
4f98c3c5 1792 ("speex" ,speex)
d4df2032 1793 ("v4l-utils" ,v4l-utils)
f464016d
DT		 1794 ("zlib" ,zlib)))
1795 (synopsis "Live streaming software")
1796 (description "Open Broadcaster Software provides a graphical interface for
1797video recording and live streaming. OBS supports capturing audio and video
1798from many input sources such as webcams, X11 (for screencasting), PulseAudio,
1799and JACK.")
1800 (home-page "https://obsproject.com")
f3bd1728 1801 (supported-systems '("x86_64-linux" "i686-linux"))
f464016d 1802 (license license:gpl2+)))
d5650f86
EF		 1803
1804(define-public libvdpau
1805 (package
1806 (name "libvdpau")
1807 (version "1.1.1")
1808 (source
1809 (origin
1810 (method url-fetch)
1811 (uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
1812 name "-" version ".tar.bz2"))
1813 (sha256
1814 (base32
1815 "0dnpb0yh7v6rvckx82kxg045rd9rbsw25wjv7ad5n8h94s9h2yl5"))))
1816 (build-system gnu-build-system)
1817 (native-inputs
1818 `(("pkg-config" ,pkg-config)))
1819 (inputs
1820 `(("dri2proto" ,dri2proto)
1821 ("libx11" ,libx11 "out")
1822 ("libxext" ,libxext)))
1823 (home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
1824 (synopsis "Video Decode and Presentation API")
1825 (description "VDPAU is the Video Decode and Presentation API for UNIX. It
1826provides an interface to video decode acceleration and presentation hardware
1827present in modern GPUs.")
1828 (license (license:x11-style "file://COPYING"))))
3161d32d
EF		 1829
1830(define-public vdpauinfo
1831 (package
1832 (name "vdpauinfo")
1833 (version "1.0")
1834 (source
1835 (origin
1836 (method url-fetch)
1837 (uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
1838 name "-" version ".tar.gz"))
1839 (sha256
1840 (base32
1841 "1i2b0k9h8r0lnxlrkgqzmrjakgaw3f1ygqqwzx8w6676g85rcm20"))))
1842 (build-system gnu-build-system)
1843 (native-inputs
1844 `(("pkg-config" ,pkg-config)
1845 ("libx11" ,libx11)))
1846 (propagated-inputs
1847 `(("libvdpau" ,libvdpau)))
1848 (home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
1849 (synopsis "Tool to query the capabilities of a VDPAU implementation")
1850 (description "Vdpauinfo is a tool to query the capabilities of a VDPAU
1851implementation.")
1852 (license (license:x11-style "file://COPYING"))))
a7d94b54
LC		 1853
1854(define-public recordmydesktop
1855 (package
1856 (name "recordmydesktop")
1857 (version "0.3.8.1")
1858 (source (origin
1859 (method url-fetch)
1860 (uri (string-append "mirror://sourceforge/" name "/" name "/"
1861 version "/recordmydesktop-" version ".tar.gz"))
1862 (sha256
1863 (base32
1864 "133kkl5j0r877d41bzj7kj0vf3xm8x80yyx2n8nqxrva304f58ik"))))
1865 (build-system gnu-build-system)
1866 (inputs `(("popt" ,popt)
1867 ("zlib" ,zlib)
1868 ("libx11" ,libx11)
1869 ("libice" ,libice)
1870 ("libsm" ,libsm)
1871 ("libxfixes" ,libxfixes)
1872 ("libxdamage" ,libxdamage)
1873 ("libxext" ,libxext)
ed6ba9cc 1874 ("alsa-lib" ,alsa-lib)
a7d94b54
LC		 1875 ("libvorbis" ,libvorbis)
1876 ("libtheora" ,libtheora)))
1877 (home-page "http://recordmydesktop.sourceforge.net/")
1878 (synopsis "Desktop session video recorder")
1879 (description
1880 "recordMyDesktop is a command-line tool that captures the activity in
1881your graphical desktop and encodes it as a video. This is a useful tool for
1882making @dfn{screencasts}.")
1883 (license license:gpl2+)))
d8841cc5 1884
63cd4d53
AV		 1885(define-public simplescreenrecorder
1886 (package
1887 (name "simplescreenrecorder")
1888 (version "0.3.8")
1889 (source
1890 (origin
1891 (method url-fetch)
1892 (uri (string-append "https://github.com/MaartenBaert/ssr/archive/"
1893 version ".tar.gz"))
1894 (file-name (string-append name "-" version ".tar.gz"))
1895 (sha256
1896 (base32
1897 "0v8w35n8w772s08w7k0icynqdsdakbrcanbgx6j847bfqfsg21gg"))))
1898 (build-system gnu-build-system)
1899 ;; Although libx11, libxfixes, libxext are listed as build dependencies in
1900 ;; README.md, the program builds and functions properly without them.
1901 ;; As a result, they are omitted. Please add them back if problems appear.
1902 (inputs
1903 `(("alsa-lib" ,alsa-lib)
1904 ("ffmpeg" ,ffmpeg)
1905 ("glu" ,glu)
1906 ("jack" ,jack-1)
1907 ("libxi" ,libxi)
1908 ("pulseaudio" ,pulseaudio)
1909 ("qt" ,qt-4))) ; README.md: using Qt 5 causes some stability issues
1910 (native-inputs `(("pkg-config" ,pkg-config)))
1911 ;; Using HTTPS causes part of the page to be displayed improperly.
1912 (home-page "http://www.maartenbaert.be/simplescreenrecorder/")
1913 (synopsis "Screen recorder")
1914 (description "SimpleScreenRecorder is an easy to use screen recorder with
1915a graphical user interface. It supports recording the entire screen, or a
1916part of it, and allows encoding in many different codecs and file formats.
1917Other features include a live preview and live streaming.")
1918 (license (list license:gpl3+ ; most files
1919 license:zlib ; glinject/elfhacks.*
1920 license:isc ; glinject/*
1921 license:x11)))) ; build-aux/install-sh
1922
d8841cc5
KK		 1923(define-public libsmpeg
1924 (package
1925 (name "libsmpeg")
1926 (version "0.4.5")
1927 (source (origin
1928 (method svn-fetch)
1929 (uri (svn-reference
1930 (url "svn://svn.icculus.org/smpeg/trunk/")
1931 (revision 401))) ; last revision before smpeg2 (for SDL 2.0)
b9af0564 1932 (file-name (string-append name "-" version "-checkout"))
d8841cc5
KK		 1933 (sha256
1934 (base32
1935 "18yfkr70lr1x1hc8snn2ldnbzdcc7b64xmkqrfk8w59gpg7sl1xn"))))
1936 (build-system gnu-build-system)
1937 (arguments
1938 `(#:phases (modify-phases %standard-phases
1939 (add-after 'unpack 'autogen.sh
1940 (lambda _
1941 (zero? (system* "sh" "autogen.sh")))))))
1942 (native-inputs
1943 `(("autoconf" ,autoconf)
1944 ("automake" ,automake)))
1945 (inputs
1946 `(("sdl" ,sdl2)))
1947 (home-page "http://icculus.org/smpeg/")
1948 (synopsis "SDL MPEG decoding library")
1949 (description
1950 "SMPEG (SDL MPEG Player Library) is a free MPEG1 video player library
1951with sound support. Video playback is based on the ubiquitous Berkeley MPEG
1952player, mpeg_play v2.2. Audio is played through a slightly modified mpegsound
1953library, part of splay v0.8.2. SMPEG supports MPEG audio (MP3), MPEG-1 video,
1954and MPEG system streams.")
1955 (license (list license:expat
1956 license:lgpl2.1
1957 license:lgpl2.1+
1958 license:gpl2))))
4df07622
AP		 1959
1960(define-public libbdplus
1961 (package
1962 (name "libbdplus")
1963 (version "0.1.2")
1964 (source
1965 (origin
1966 (method url-fetch)
6f13c4fd 1967 (uri (string-append "https://ftp.videolan.org/pub/videolan/libbdplus/"
4df07622
AP		 1968 version "/" name "-" version ".tar.bz2"))
1969 (sha256
1970 (base32 "02n87lysqn4kg2qk7d1ffrp96c44zkdlxdj0n16hbgrlrpiwlcd6"))))
1971 (inputs
1972 `(("libgcrypt" ,libgcrypt)))
1973 (build-system gnu-build-system)
b8a31908 1974 (home-page "https://www.videolan.org/developers/libbdplus.html")
4df07622
AP		 1975 (synopsis "Library for decrypting certain Blu-Ray discs")
1976 (description "libbdplus is a library which implements the BD+ System
1977specifications.")
1978 (license license:lgpl2.1+)))
8dd6fc51
AP		 1979
1980(define-public libaacs
1981 (package
1982 (name "libaacs")
ba58886a 1983 (version "0.9.0")
8dd6fc51
AP		 1984 (source
1985 (origin
1986 (method url-fetch)
6c2481ef 1987 (uri (string-append "https://ftp.videolan.org/pub/videolan/libaacs/"
8dd6fc51
AP		 1988 version "/" name "-" version ".tar.bz2"))
1989 (sha256
ba58886a 1990 (base32 "1kms92i0c7i1yl659kqjf19lm8172pnpik5lsxp19xphr74vvq27"))))
8dd6fc51
AP		 1991 (inputs
1992 `(("libgcrypt" ,libgcrypt)))
1993 (native-inputs
1994 `(("bison" ,bison)
1995 ("flex" ,flex)))
1996 (build-system gnu-build-system)
b8a31908 1997 (home-page "https://www.videolan.org/developers/libaacs.html")
8dd6fc51
AP		 1998 (synopsis "Library for decrypting certain Blu-Ray discs")
1999 (description "libaacs is a library which implements the Advanced Access
2000Content System specification.")
2001 (license license:lgpl2.1+)))
05234973 2002
2003(define-public mps-youtube
2004 (package
2005 (name "mps-youtube")
2006 (version "0.2.7.1")
2007 (source
2008 (origin
2009 (method url-fetch)
2010 (uri (string-append "https://github.com/mps-youtube/mps-youtube/"
2011 "archive/v" version ".tar.gz"))
2012 (file-name (string-append name "-" version ".tar.gz"))
2013 (sha256
2014 (base32
2015 "1s7h35yx6f0szf8mm8612ic913w3v05m2kwphjfcxnpq0ammhyci"))))
2016 (build-system python-build-system)
175d6264 2017 (arguments
2018 ;; Tests need to be disabled until #556 upstream is fixed. It reads as if the
2019 ;; test suite results differ depending on the country and also introduce
2020 ;; non-determinism in the tests.
2021 ;; https://github.com/mps-youtube/mps-youtube/issues/556
2022 `(#:tests? #f))
05234973 2023 (propagated-inputs
2024 `(("python-pafy" ,python-pafy)
2025 ("python-pygobject" ,python-pygobject))) ; For mpris2 support
2026 (home-page "https://github.com/mps-youtube/mps-youtube")
2027 (synopsis "Terminal based YouTube player and downloader")
2028 (description
2029 "@code{mps-youtube} is based on mps, a terminal based program to
2030search, stream and download music. This implementation uses YouTube as
2031a source of content and can play and download video as well as audio.
2032It can use either mpv or mplayer for playback, and for conversion of
2033formats ffmpeg or libav is used. Users should install one of the
2034supported players in addition to this package.")
2035 (license license:gpl3+)))
fe047e13
EB		 2036
2037(define-public handbrake
2038 (package
2039 (name "handbrake")
2040 (version "0.10.5")
2041 (source (origin
2042 (method url-fetch)
2043 (uri (string-append "https://handbrake.fr/rotation.php?file="
2044 "HandBrake-" version ".tar.bz2"))
2045 (file-name (string-append "handbrake-" version ".tar.bz2"))
2046 (sha256
2047 (base32
2048 "1w720y3bplkz187wgvy4a4xm0vpppg45mlni55l6yi8v2bfk14pv"))
2049 (patches (search-patches "handbrake-pkg-config-path.patch"))
2050 (modules '((guix build utils)))
2051 (snippet
2052 ;; Remove bundled libraries and source not necessary for
2053 ;; running under a GNU environment.
2054 '(begin
2055 (for-each delete-file-recursively '("contrib" "macosx" "win"))
2056 #t))))
2057 (build-system glib-or-gtk-build-system)
2058 (native-inputs
2059 `(("automake" ,automake) ;gui subpackage must be bootstrapped
2060 ("autoconf" ,autoconf)
2061 ("curl" ,curl) ;not actually used, but tested for
2062 ("intltool" ,intltool)
2063 ("libtool" ,libtool)
2064 ("pkg-config" ,pkg-config)
2065 ("python" ,python-2))) ;for configuration
2066 (inputs
2067 `(("bzip2" ,bzip2)
2068 ("dbus-glib" ,dbus-glib)
2069 ("ffmpeg" ,ffmpeg)
2070 ("fontconfig" ,fontconfig)
2071 ("freetype" ,freetype)
2072 ("glib" ,glib)
2073 ("gstreamer" ,gstreamer)
2074 ("gst-plugins-base" ,gst-plugins-base)
2075 ("gtk+" ,gtk+)
2076 ("lame" ,lame)
2077 ("libass" ,libass)
2078 ("libbluray" ,libbluray)
2079 ("libdvdnav" ,libdvdnav)
2080 ("libdvdread" ,libdvdread)
2081 ("libgudev" ,libgudev)
2082 ("libmpeg2" ,libmpeg2)
2083 ("libnotify" ,libnotify)
2084 ("libogg" ,libogg)
2085 ("libsamplerate" ,libsamplerate)
2086 ("libtheora" ,libtheora)
2087 ("libvorbis" ,libvorbis)
2088 ("libvpx" ,libvpx)
2089 ("libxml2" ,libxml2)
2090 ("libx264" ,libx264)
2091 ("x265" ,x265)
2092 ("zlib" ,zlib)))
2093 (arguments
2094 `(#:tests? #f ;tests require Ruby and claim to be unsupported
2095 #:phases
2096 (modify-phases %standard-phases
2097 (add-before 'patch-source-shebangs 'bootstrap-gtk
2098 ;; Run bootstrap ahead of time so that shebangs get patched.
2099 (lambda _
2100 (setenv "CONFIG_SHELL" (which "sh"))
2101 (setenv "NOCONFIGURE" "1")
2102 ;; Patch the Makefile so that it doesn't bootstrap again.
2103 (substitute* "gtk/module.rules"
2104 ((".*autogen\\.sh.*") ""))
2105 (zero? (system* "sh" "./gtk/autogen.sh"))))
2106 (add-before 'configure 'disable-contrib
2107 (lambda _
2108 (substitute* "make/include/main.defs"
2109 ;; Disable unconditional inclusion of some "contrib"
2110 ;; libraries (ffmpeg, libvpx, libdvdread, libdvdnav,
2111 ;; and libbluray), which would lead to fetching and
2112 ;; building of these libraries. Use our own instead.
2113 (("MODULES \\+= contrib") "# MODULES += contrib"))
2114 #t))
2115 (add-before 'configure 'fix-x265-linking
2116 (lambda _
2117 (substitute* "test/module.defs"
2118 ;; Fix missing library during linking error
2119 (("TEST.GCC.l =") "TEST.GCC.l = x265"))
2120 #t))
2121 (replace 'configure
2122 (lambda* (#:key outputs configure-flags #:allow-other-keys)
2123 ;; 'configure' is not an autoconf-generated script, and
2124 ;; errors on unrecognized arguments,
2125 ;; e.g. --enable-fast-install
2126 (let ((out (assoc-ref outputs "out")))
2127 (zero? (apply system* "./configure"
2128 (string-append "--prefix=" out)
2129 (or configure-flags '()))))))
2130 (add-after 'configure 'chdir-build
2131 (lambda _ (chdir "./build") #t)))))
2132 (home-page "https://handbrake.fr")
2133 (synopsis "Video transcoder")
2134 (description
2135 "HandBrake is a tool for converting video from any format to a selection
2136of modern, widely supported codecs.")
2137 ;; Most under GPL version 2 or later, and portions under BSD 3 Clause
2138 (license (list license:gpl2+ license:bsd-3))))
590abe01
JN		 2139
2140(define-public openh264
2141 (package
2142 (name "openh264")
1a34ca0e 2143 (version "1.7.0")
590abe01
JN		 2144 (source (origin
2145 (method url-fetch)
2146 (uri (string-append "https://github.com/cisco/"
2147 name "/archive/v" version ".tar.gz"))
2148 (file-name (string-append name "-" version ".tar.gz"))
2149 (sha256
2150 (base32
1a34ca0e 2151 "0gv571bqkxk7ic64dmavs1q8nr7p59mcf4ibqp4lc070gn6w61ww"))))
590abe01
JN		 2152 (build-system gnu-build-system)
2153 (native-inputs
2154 `(("nasm" ,nasm)
2155 ("python" ,python)))
2156 (arguments
8363a835
EF		 2157 '(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2158 "CC=gcc")
590abe01
JN		 2159 #:test-target "test"
2160 #:phases (modify-phases %standard-phases
2161 ;; no configure script
2162 (delete 'configure))))
2163 (home-page "http://www.openh264.org/")
2164 (synopsis "H264 decoder library")
2165 (description
2166 "Openh264 is a library which can decode H264 video streams.")
2167 (license license:bsd-2)))
3a44c7bb 2168
2169(define-public libmp4v2
2170 (package
2171 (name "libmp4v2")
2172 (version "2.0.0")
2173 (source
2174 (origin
2175 (method url-fetch)
2176 ;; XXX: The new location of upstream is uncertain and will become relevant the
2177 ;; moment when the googlecode archive shuts down. It is past the date it
2178 ;; should've been turned off. I tried to communicate with upstream, but this
2179 ;; wasn't very responsive and not very helpful. The short summary is, it is
2180 ;; chaos when it comes to the amount of forks and only time will tell where
2181 ;; the new upstream location is.
2182 (uri (string-append "https://storage.googleapis.com/google-"
2183 "code-archive-downloads/v2/"
2184 "code.google.com/mp4v2/mp4v2-" version ".tar.bz2"))
2185 (file-name (string-append name "-" version ".tar.bz2"))
2186 (sha256
2187 (base32
2188 "0f438bimimsvxjbdp4vsr8hjw2nwggmhaxgcw07g2z361fkbj683"))))
2189 (build-system gnu-build-system)
2190 (outputs '("out"
2191 "static")) ; 3.7MiB .a file
2192 (arguments
2193 `(#:phases
2194 (modify-phases %standard-phases
2195 (add-after 'unpack 'remove-dates
2196 (lambda _
2197 ;; Make the build reproducible.
2198 (substitute* "configure"
2199 (("PROJECT_build=\"`date`\"") "PROJECT_build=\"\"")
2200 (("ac_abs_top_builddir=$ac_pwd") "ac_abs_top_builddir=\"\""))
2201 #t))
2202 (add-after 'install 'move-static-libraries
2203 (lambda* (#:key outputs #:allow-other-keys)
2204 ;; Move static libraries to the "static" output.
2205 (let* ((out (assoc-ref outputs "out"))
2206 (lib (string-append out "/lib"))
2207 (static (assoc-ref outputs "static"))
2208 (slib (string-append static "/lib")))
2209 (mkdir-p slib)
2210 (for-each (lambda (file)
2211 (install-file file slib)
2212 (delete-file file))
2213 (find-files lib "\\.a$"))
2214 #t))))))
2215 (native-inputs
2216 `(("help2man" ,help2man)
2217 ("dejagnu" ,dejagnu)))
2218 (home-page "https://code.google.com/archive/p/mp4v2/")
2219 (synopsis "API to create and modify mp4 files")
2220 (description
2221 "The MP4v2 library provides an API to create and modify mp4 files as defined by
2222ISO-IEC:14496-1:2001 MPEG-4 Systems. This file format is derived from Apple's QuickTime
2223file format that has been used as a multimedia file format in a variety of platforms and
2224applications. It is a very powerful and extensible format that can accommodate
2225practically any type of media.")
2226 (license license:mpl1.1)))
e0c40707
EJ		 2227
2228(define-public libmediainfo
2229 (package
2230 (name "libmediainfo")
2231 (version "0.7.95")
2232 (source (origin
2233 (method url-fetch)
2234 (uri (string-append "https://mediaarea.net/download/source/"
2235 name "/" version"/"
2236 name "_" version ".tar.bz2"))
2237 (sha256
2238 (base32
2239 "1kchh6285b07z5nixv619hc9gml2ysdayicdiv30frrlqiyxqw4b"))))
2240 ;; TODO add a Big Buck Bunny webm for tests.
2241 (native-inputs
2242 `(("autoconf" ,autoconf)
2243 ("automake" ,automake)
2244 ("libtool" ,libtool)
2245 ("pkg-config" ,pkg-config)
2246 ("zlib" ,zlib)
2247 ("tinyxml2" ,tinyxml2)
2248 ("curl" ,curl)
2249 ("libzen" ,libzen)))
2250 (build-system gnu-build-system)
2251 (arguments
2252 '(#:tests? #f ; see above TODO
2253 #:phases
2254 ;; build scripts not in root of archive
2255 (modify-phases %standard-phases
0cae36b5 2256 (add-after 'unpack 'change-to-build-dir
e0c40707 2257 (lambda _
0cae36b5
EF		 2258 (chdir "Project/GNU/Library")
2259 #t))
2260 (add-after 'change-to-build-dir 'autogen
e0c40707 2261 (lambda _
d10092b8 2262 (zero? (system* "sh" "autogen.sh")))))))
e0c40707
EJ		 2263 (home-page "https://mediaarea.net/en/MediaInfo")
2264 (synopsis "Library for retrieving media metadata")
2265 (description "MediaInfo is a library used for retrieving technical
2266information and other metadata about audio or video files. A non-exhaustive
2267list of the information MediaInfo can retrieve from media files include:
2268
2269@itemize
2270@item General: title, author, director, album, track number, date, duration...
2271@item Video: codec, aspect, fps, bitrate...
2272@item Audio: codec, sample rate, channels, language, bitrate...
2273@item Text: language of subtitle
2274@item Chapters: number of chapters, list of chapters
2275@end itemize
2276
2277MediaInfo supports the following formats:
2278
2279@itemize
2280@item Video: MKV, OGM, AVI, DivX, WMV, QuickTime, Real, MPEG-1,
2281MPEG-2, MPEG-4, DVD (VOB)...
2282@item Video Codecs: DivX, XviD, MSMPEG4, ASP, H.264, AVC...)
2283@item Audio: OGG, MP3, WAV, RA, AC3, DTS, AAC, M4A, AU, AIFF...
2284@item Subtitles: SRT, SSA, ASS, SAMI...
2285@end itemize\n")
2286 (license license:bsd-2)))
2287
d5fa2777
EJ		 2288;; TODO also have a GUI version available
2289(define-public mediainfo
2290 (package
2291 (name "mediainfo")
2292 (version "0.7.95")
2293 (source (origin
2294 (method url-fetch)
2295 (uri (string-append "https://mediaarea.net/download/source/"
2296 name "/" version "/"
2297 name "_" version ".tar.bz2"))
2298 (sha256
2299 (base32
2300 "0dy51a3i79jppmg1gi4f6h7jx4hcgnkmfim4d7d3gmnlbkjh8anv"))))
2301 (native-inputs
2302 `(("autoconf" ,autoconf)
2303 ("automake" ,automake)
2304 ("libtool" ,libtool)
2305 ("pkg-config" ,pkg-config)
2306 ("zlib" ,zlib)
2307 ("libmediainfo", libmediainfo)
2308 ("libzen" ,libzen)))
2309 (build-system gnu-build-system)
2310 (arguments
2311 '(#:tests? #f ; lacks tests
2312 #:phases
2313 ;; build scripts not in root of archive
2314 (modify-phases %standard-phases
2315 (add-before 'configure 'pre-configure
2316 (lambda _
2317 (chdir "Project/GNU/CLI")))
d10092b8 2318 (add-after 'unpack 'autogen
d5fa2777 2319 (lambda _
d10092b8 2320 (zero? (system* "sh" "autogen.sh")))))))
d5fa2777
EJ		 2321 (home-page "https://mediaarea.net/en/MediaInfo")
2322 (synopsis "Utility for reading media metadata")
2323 (description "MediaInfo is a utility used for retrieving technical
2324information and other metadata about audio or video files. It supports the
2325many codecs and formats supported by libmediainfo.")
2326 (license license:bsd-2)))
fa379a5b
CL		 2327
2328(define-public livemedia-utils
2329 (package
2330 (name "livemedia-utils")
e7178996 2331 (version "2017.06.04")
fa379a5b
CL		 2332 (source (origin
2333 (method url-fetch)
2334 (uri (string-append
517c66c0 2335 "https://download.videolan.org/contrib/live555/live."
fa379a5b
CL		 2336 version ".tar.gz"))
2337 (sha256
2338 (base32
e7178996 2339 "0xf3vynxqpxpd762zni0jkblnjlgbqxjx99m83m7gqx6zriph271"))))
fa379a5b
CL		 2340 (build-system gnu-build-system)
2341 (arguments
2342 '(#:tests? #f ; no tests
2343 #:make-flags (list "CC=gcc"
2344 (string-append "LDFLAGS=-Wl,-rpath="
2345 (assoc-ref %outputs "out") "/lib")
2346 (string-append "PREFIX="
2347 (assoc-ref %outputs "out")))
2348 #:phases (modify-phases %standard-phases
2349 (add-before 'configure 'fix-makefiles-generation
2350 (lambda _
2351 (substitute* "genMakefiles"
2352 (("/bin/rm") "rm"))
2353 #t))
2354 (replace 'configure
2355 (lambda _
2356 (zero? (system* "./genMakefiles"
2357 "linux-with-shared-libraries")))))))
2358 (home-page "http://www.live555.com/liveMedia/")
2359 (synopsis "Set of C++ libraries for multimedia streaming")
2360 (description "This code forms a set of C++ libraries for multimedia
2361streaming, using open standard protocols (RTP/RTCP, RTSP, SIP). The libraries
2362can be used to stream, receive, and process MPEG, H.265, H.264, H.263+, DV or
2363JPEG video, and several audio codecs. They can easily be extended to support
2364additional (audio and/or video) codecs, and can also be used to build basic
2365RTSP or SIP clients and servers.")
2366 (license license:lgpl3+)))
0dff4dd9
CL		 2367
2368(define-public libdvbpsi
2369 (package
2370 (name "libdvbpsi")
2371 (version "1.3.1")
2372 (source (origin
2373 (method url-fetch)
2374 (uri (string-append
2375 "https://download.videolan.org/pub/libdvbpsi/"
2376 version "/libdvbpsi-" version ".tar.bz2"))
2377 (sha256
2378 (base32
2379 "0824r08kaspbrrg2dd5d46s475zb7j59brqkm2y6x3mdsnpng0yn"))))
2380 (build-system gnu-build-system)
2381 (home-page "https://www.videolan.org/developers/libdvbpsi.html")
2382 (synopsis "Library for decoding and generation of MPEG TS and DVB PSI
2383tables")
2384 (description "libdvbpsi is a simple library designed for decoding and
2385generation of MPEG TS and DVB PSI tables according to standards ISO/IEC 13818s
2386and ITU-T H.222.0.")
2387 (license license:lgpl2.1)))
jackhill's copy of GNU Guix: https://guix.gnu.org/