mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 14:28:15 -05:00
1310 lines
51 KiB
Scheme
1310 lines
51 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2014, 2015 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014, 2015 David Thompson <davet@gnu.org>
|
||
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
||
;;; Copyright © 2015 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2015 Andy Patterson <ajpatter@uwaterloo.ca>
|
||
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2015 Alex Vong <alexvong1995@gmail.com>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages video)
|
||
#:use-module (ice-9 match)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (guix build-system waf)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages algebra)
|
||
#:use-module (gnu packages audio)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages avahi)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages cdrom)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages databases)
|
||
#:use-module (gnu packages doxygen)
|
||
#:use-module (gnu packages elf)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages fribidi)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages gl)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages guile)
|
||
#:use-module (gnu packages gnupg)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages mp3)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages ocr)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages samba)
|
||
#:use-module (gnu packages sdl)
|
||
#:use-module (gnu packages ssh)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages texlive)
|
||
#:use-module (gnu packages textutils)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages version-control)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xiph)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module (gnu packages xorg)
|
||
#:use-module (gnu packages yasm)
|
||
#:use-module (gnu packages zip))
|
||
|
||
(define-public aalib
|
||
(package
|
||
(name "aalib")
|
||
(version "1.4rc5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/aa-project/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1vkh19gb76agvh4h87ysbrgy82hrw88lnsvhynjf4vng629dmpgv"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("makeinfo" ,texinfo)))
|
||
(inputs
|
||
`(("ncurses" ,ncurses)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key build inputs outputs #:allow-other-keys)
|
||
;; This old `configure' script doesn't support
|
||
;; variables passed as arguments.
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(ncurses (assoc-ref inputs "ncurses")))
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(zero? (system* "./configure"
|
||
(string-append "--prefix=" out)
|
||
(string-append "--build=" build)
|
||
(string-append "--with-ncurses="
|
||
ncurses)))))))))
|
||
(home-page "http://aa-project.sourceforge.net/aalib/")
|
||
(synopsis "ASCII-art library")
|
||
(description
|
||
"AA-lib is a low level gfx library which does not require graphics device.
|
||
In fact, there is no graphical output possible. AA-lib replaces those
|
||
old-fashioned output methods with powerful ascii-art renderer.")
|
||
(license license:lgpl2.0+)))
|
||
|
||
(define-public liba52
|
||
(package
|
||
(name "liba52")
|
||
(version "0.7.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
;; A mirror://sourceforge URI doesn't work, presumably
|
||
;; because the SourceForge project is misconfigured.
|
||
"http://liba52.sourceforge.net/files/a52dec-" version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0czccp4fcpf2ykp16xcrzdfmnircz1ynhls334q374xknd5747d2"))
|
||
(patches (map search-patch '("liba52-enable-pic.patch"
|
||
"liba52-set-soname.patch"
|
||
"liba52-use-mtune-not-mcpu.patch"
|
||
"liba52-link-with-libm.patch")))))
|
||
(build-system gnu-build-system)
|
||
;; XXX We need to run ./bootstrap because of the build system fixes above.
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(arguments `(#:configure-flags '("--enable-shared")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; XXX We need to run ./bootstrap because of the build
|
||
;; system fixes above.
|
||
(add-after
|
||
'unpack 'bootstrap
|
||
(lambda _ (zero? (system* "sh" "bootstrap")))))))
|
||
(home-page "http://liba52.sourceforge.net/")
|
||
(synopsis "ATSC A/52 stream decoder")
|
||
(description "liba52 is a library for decoding ATSC A/52 streams. The
|
||
A/52 standard is used in a variety of applications, including digital
|
||
television and DVD. It is also known as AC-3.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libmpeg2
|
||
(package
|
||
(name "libmpeg2")
|
||
(version "0.5.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
;; A mirror://sourceforge URI doesn't work, presumably
|
||
;; because the SourceForge project is misconfigured.
|
||
(uri (string-append "http://libmpeg2.sourceforge.net/files/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1m3i322n2fwgrvbs1yck7g5md1dbg22bhq5xdqmjpz5m7j4jxqny"))))
|
||
(inputs
|
||
`(("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxv" ,libxv)
|
||
("libsm" ,libsm)
|
||
("libice" ,libice)
|
||
("sdl" ,sdl)))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://libmpeg2.sourceforge.net/")
|
||
(synopsis "MPEG1 and MPEG2 video decoder library")
|
||
(description
|
||
"libmpeg2 is a library which can decode MPEG1 and MPEG2 video streams.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libx264
|
||
(package
|
||
(name "libx264")
|
||
(version "20150706-2245")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "ftp://ftp.videolan.org/pub/x264/snapshots/"
|
||
"x264-snapshot-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0v04xq25q66gsk78i4kryy7503ki87jxbhln2c0qpvyy0d47p466"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("yasm" ,yasm)))
|
||
;; TODO: Add gpac input
|
||
(arguments
|
||
`(#:tests? #f ;no check target
|
||
#:configure-flags '("--enable-shared"
|
||
;; Don't build the command-line program. If we
|
||
;; want it later, we should do so in a different
|
||
;; package to avoid a circular dependency (the x264
|
||
;; program depends on ffmpeg and ffmpeg depends on
|
||
;; libx264).
|
||
"--disable-cli")))
|
||
(home-page "http://www.videolan.org/developers/x264.html")
|
||
(synopsis "H.264 video coding library")
|
||
(description "libx264 is an advanced encoding library for creating
|
||
H.264 (MPEG-4 AVC) video streams.")
|
||
(license (list license:gpl2+ ;most files
|
||
license:isc ;common/x86/x86inc.asm
|
||
license:lgpl2.1+ ;extras/getopt.c
|
||
license:bsd-3 ;extras/inttypes.h
|
||
(license:non-copyleft ;extras/cl*.h
|
||
"file://extras/cl.h"
|
||
"See extras/cl.h in the distribution.")))))
|
||
|
||
(define-public libass
|
||
(package
|
||
(name "libass")
|
||
(version "0.13.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/libass/libass/releases/download/"
|
||
version "/libass-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1rrz6is2blx8jqyydcz71y2f5f948blgx14jzi3an756fqc6p8sa"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("yasm" ,yasm)))
|
||
(propagated-inputs
|
||
`(("freetype" ,freetype)
|
||
("fribidi" ,fribidi)
|
||
("fontconfig" ,fontconfig)
|
||
("harfbuzz" ,harfbuzz)
|
||
("enca" ,enca)))
|
||
(home-page "https://github.com/libass/libass")
|
||
(synopsis "Subtitle rendering library for the ASS/SSA format")
|
||
(description "libass is a subtitle rendering library for the
|
||
ASS/SSA (Advanced Substation Alpha/SubStation Alpha) subtitle format.")
|
||
(license license:isc)))
|
||
|
||
(define-public libcaca
|
||
(package
|
||
(name "libcaca")
|
||
(version "0.99.beta19")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://caca.zoy.org/files/libcaca/libcaca-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1x3j6yfyxl52adgnabycr0n38j9hx2j74la0hz0n8cnh9ry4d2qj"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs `(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("freeglut" ,freeglut)
|
||
("ftgl" ,ftgl)
|
||
("libx11" ,libx11)
|
||
("mesa" ,mesa)
|
||
("ncurses" ,ncurses)
|
||
("zlib" ,zlib)))
|
||
(home-page "http://caca.zoy.org/wiki/libcaca")
|
||
(synopsis "Colour ASCII-art library")
|
||
(description "libcaca is a graphics library that outputs text instead of
|
||
pixels, so that it can work on older video cards or text terminals. It
|
||
supports Unicode, 2048 colors, dithering of color images, and advanced text
|
||
canvas operations.")
|
||
(license (license:fsf-free "file://COPYING")))) ;WTFPL version 2
|
||
|
||
(define-public libdca
|
||
(package
|
||
(name "libdca")
|
||
(version "0.0.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://download.videolan.org/pub/videolan/libdca/"
|
||
version "/libdca-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0hh6a7l8vvccsd5i1fkv9av2gzv9fy8m0b8jpsn5p6hh4bh2586v"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://www.videolan.org/developers/libdca.html")
|
||
(synopsis "DTS Coherent Acoustics decoder")
|
||
(description "libdca is a library for decoding DTS Coherent Acoustics
|
||
streams.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libdv
|
||
(package
|
||
(name "libdv")
|
||
(version "1.0.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/libdv/libdv-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1fl96f2xh2slkv1i1ix7kqk576a0ak1d33cylm0mbhm96d0761d3"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs `(("pkg-config" ,pkg-config)))
|
||
(inputs `(("libxv" ,libxv)))
|
||
(home-page "http://libdv.sourceforge.net/")
|
||
(synopsis "DV video (IEC 61834 and SMPTE 314M) codec")
|
||
(description "The Quasar DV codec (libdv) is a software codec for DV
|
||
video, the encoding format used by most digital camcorders, typically those
|
||
that support the IEEE 1394 (a.k.a. FireWire or i.Link) interface. Libdv was
|
||
developed according to the official standards for DV video: IEC 61834 and
|
||
SMPTE 314M.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libva
|
||
(package
|
||
(name "libva")
|
||
(version "1.6.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://www.freedesktop.org/software/vaapi/releases/libva/libva-"
|
||
version".tar.bz2"))
|
||
(sha256
|
||
(base32 "0bjfb5s8dk3lql843l91ffxzlq47isqks5sj19cxh7j3nhzw58kz"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libdrm" ,libdrm)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxfixes" ,libxfixes)
|
||
("mesa" ,mesa)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'build 'fix-dlopen-paths
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "va/drm/va_drm_auth_x11.c"
|
||
(("\"libva-x11\\.so\\.%d\"")
|
||
(string-append "\"" out "/lib/libva-x11.so.%d\"")))))))
|
||
;; Most drivers are in mesa's $prefix/lib/dri, so use that. (Can be
|
||
;; overridden at run-time via LIBVA_DRIVERS_PATH.)
|
||
#:configure-flags
|
||
(list (string-append "--with-drivers-path="
|
||
(assoc-ref %build-inputs "mesa") "/lib/dri"))
|
||
;; However, we can't write to mesa's store directory, so override the
|
||
;; following make variable to install the dummy driver to libva's
|
||
;; $prefix/lib/dri directory.
|
||
#:make-flags
|
||
(list (string-append "dummy_drv_video_ladir="
|
||
(assoc-ref %outputs "out") "/lib/dri"))))
|
||
(home-page "http://www.freedesktop.org/wiki/Software/vaapi/")
|
||
(synopsis "Video acceleration library")
|
||
(description "The main motivation for VA-API (Video Acceleration API) is
|
||
to enable hardware accelerated video decode/encode at various
|
||
entry-points (VLD, IDCT, Motion Compensation etc.) for prevailing coding
|
||
standards (MPEG-2, MPEG-4 ASP/H.263, MPEG-4 AVC/H.264, and VC-1/VMW3).")
|
||
(license license:expat)))
|
||
|
||
(define-public ffmpeg
|
||
(package
|
||
(name "ffmpeg")
|
||
(version "2.8.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0jkhyv68aa7h3hf905ganwqbrflams3hs74in7ygxdfkcqw2xqhq"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("fontconfig" ,fontconfig)
|
||
("freetype" ,freetype)
|
||
("gnutls" ,gnutls)
|
||
("opus" ,opus)
|
||
("ladspa" ,ladspa)
|
||
("lame" ,lame)
|
||
("libass" ,libass)
|
||
("libbluray" ,libbluray)
|
||
("libcaca" ,libcaca)
|
||
("libcdio-paranoia" ,libcdio-paranoia)
|
||
("libquvi" ,libquvi)
|
||
("libtheora" ,libtheora)
|
||
("libvorbis" ,libvorbis)
|
||
("libvpx" ,libvpx)
|
||
("libx264" ,libx264)
|
||
("openal" ,openal)
|
||
("pulseaudio" ,pulseaudio)
|
||
("soxr" ,soxr)
|
||
("speex" ,speex)
|
||
("twolame" ,twolame)
|
||
("xvid" ,xvid)
|
||
("zlib", zlib)))
|
||
(native-inputs
|
||
`(("bc" ,bc)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
("texinfo" ,texinfo)
|
||
("python" ,python-2) ; scripts use interpreter python2
|
||
("speex" ,speex)
|
||
("yasm" ,yasm)))
|
||
(arguments
|
||
`(#:test-target "fate"
|
||
#:configure-flags
|
||
;; possible additional inputs:
|
||
;; --enable-avisynth enable reading of AviSynth script
|
||
;; files [no]
|
||
;; --enable-frei0r enable frei0r video filtering
|
||
;; --enable-libaacplus enable AAC+ encoding via libaacplus [no]
|
||
;; --enable-libcelt enable CELT decoding via libcelt [no]
|
||
;; --enable-libdc1394 enable IIDC-1394 grabbing using libdc1394
|
||
;; and libraw1394 [no]
|
||
;; --enable-libfaac enable AAC encoding via libfaac [no]
|
||
;; --enable-libfdk-aac enable AAC de/encoding via libfdk-aac [no]
|
||
;; --enable-libflite enable flite (voice synthesis) support via
|
||
;; libflite [no]
|
||
;; --enable-libgme enable Game Music Emu via libgme [no]
|
||
;; --enable-libgsm enable GSM de/encoding via libgsm [no]
|
||
;; --enable-libiec61883 enable iec61883 via libiec61883 [no]
|
||
;; --enable-libilbc enable iLBC de/encoding via libilbc [no]
|
||
;; --enable-libmodplug enable ModPlug via libmodplug [no]
|
||
;; --enable-libnut enable NUT (de)muxing via libnut,
|
||
;; native (de)muxer exists [no]
|
||
;; --enable-libopencore-amrnb enable AMR-NB de/encoding via
|
||
;; libopencore-amrnb [no]
|
||
;; --enable-libopencore-amrwb enable AMR-WB decoding via
|
||
;; libopencore-amrwb [no]
|
||
;; --enable-libopencv enable video filtering via libopencv [no]
|
||
;; --enable-libopenjpeg enable JPEG 2000 de/encoding via
|
||
;; OpenJPEG [no]
|
||
;; --enable-librtmp enable RTMP[E] support via librtmp [no]
|
||
;; --enable-libschroedinger enable Dirac de/encoding via
|
||
;; libschroedinger [no]
|
||
;; --enable-libshine enable fixed-point MP3 encoding via
|
||
;; libshine [no]
|
||
;; --enable-libssh enable SFTP protocol via libssh [no]
|
||
;; (libssh2 does not work)
|
||
;; --enable-libstagefright-h264 enable H.264 decoding via
|
||
;; libstagefright [no]
|
||
;; --enable-libutvideo enable Ut Video encoding and decoding via
|
||
;; libutvideo [no]
|
||
;; --enable-libv4l2 enable libv4l2/v4l-utils [no]
|
||
;; --enable-libvidstab enable video stabilization using
|
||
;; vid.stab [no]
|
||
;; --enable-libvo-aacenc enable AAC encoding via libvo-aacenc [no]
|
||
;; --enable-libvo-amrwbenc enable AMR-WB encoding via
|
||
;; libvo-amrwbenc [no]
|
||
;; --enable-libwavpack enable wavpack encoding via libwavpack [no]
|
||
;; --enable-libxavs enable AVS encoding via xavs [no]
|
||
;; --enable-libzmq enable message passing via libzmq [no]
|
||
;; --enable-libzvbi enable teletext support via libzvbi [no]
|
||
;; --enable-opencl enable OpenCL code
|
||
;; --enable-x11grab enable X11 grabbing [no]
|
||
'("--enable-avresample"
|
||
"--enable-gpl" ; enable optional gpl licensed parts
|
||
"--enable-shared"
|
||
"--enable-fontconfig"
|
||
"--enable-gnutls"
|
||
"--enable-ladspa"
|
||
"--enable-libass"
|
||
"--enable-libbluray"
|
||
"--enable-libcaca"
|
||
"--enable-libcdio"
|
||
"--enable-libfreetype"
|
||
"--enable-libmp3lame"
|
||
"--enable-libopus"
|
||
"--enable-libpulse"
|
||
"--enable-libquvi"
|
||
"--enable-libsoxr"
|
||
"--enable-libspeex"
|
||
"--enable-libtheora"
|
||
"--enable-libtwolame"
|
||
"--enable-libvorbis"
|
||
"--enable-libvpx"
|
||
"--enable-libxvid"
|
||
"--enable-libx264"
|
||
"--enable-openal"
|
||
|
||
"--enable-runtime-cpudetect"
|
||
|
||
;; Runtime cpu detection is not implemented on
|
||
;; MIPS, so we disable some features.
|
||
"--disable-mips32r2"
|
||
"--disable-mipsdspr1"
|
||
"--disable-mipsdspr2"
|
||
"--disable-mipsfpu")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace
|
||
'configure
|
||
;; configure does not work followed by "SHELL=..." and
|
||
;; "CONFIG_SHELL=..."; set environment variables instead
|
||
(lambda* (#:key outputs configure-flags #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "bash"))))
|
||
(setenv "SHELL" (which "bash"))
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(zero? (apply system*
|
||
"./configure"
|
||
(string-append "--prefix=" out)
|
||
;; Add $libdir to the RUNPATH of all the binaries.
|
||
(string-append "--extra-ldflags=-Wl,-rpath="
|
||
out "/lib")
|
||
configure-flags)))))
|
||
(add-before
|
||
'check 'set-ld-library-path
|
||
(lambda _
|
||
;; Allow $(top_builddir)/ffmpeg to find its dependencies when
|
||
;; running tests.
|
||
(let* ((dso (find-files "." "\\.so$"))
|
||
(path (string-join (map dirname dso) ":")))
|
||
(format #t "setting LD_LIBRARY_PATH to ~s~%" path)
|
||
(setenv "LD_LIBRARY_PATH" path)
|
||
#t))))))
|
||
(home-page "http://www.ffmpeg.org/")
|
||
(synopsis "Audio and video framework")
|
||
(description "FFmpeg is a complete, cross-platform solution to record,
|
||
convert and stream audio and video. It includes the libavcodec
|
||
audio/video codec library.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public vlc
|
||
(package
|
||
(name "vlc")
|
||
(version "2.2.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://download.videolan.org/pub/videolan/vlc/"
|
||
version "/vlc-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1jqzrzrpw6932lbkf863xk8cfmn4z2ngbxz7w8ggmh4f6xz9sgal"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("git" ,git) ; needed for a test
|
||
("pkg-config" ,pkg-config)))
|
||
;; FIXME: Add optional inputs once available.
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("avahi" ,avahi)
|
||
("dbus" ,dbus)
|
||
("flac" ,flac)
|
||
("ffmpeg" ,ffmpeg)
|
||
("fontconfig" ,fontconfig)
|
||
("freetype" ,freetype)
|
||
("gnutls" ,gnutls)
|
||
("libcddb" ,libcddb)
|
||
("libgcrypt" ,libgcrypt)
|
||
("libkate" ,libkate)
|
||
("libmad" ,libmad)
|
||
("libogg" ,libogg)
|
||
("libpng" ,libpng)
|
||
("libsamplerate" ,libsamplerate)
|
||
("libssh2" ,libssh2)
|
||
("libvorbis" ,libvorbis)
|
||
("libtheora" ,libtheora)
|
||
("libxext" ,libxext)
|
||
("libxinerama" ,libxinerama)
|
||
("libxml2" ,libxml2)
|
||
("libxpm" ,libxpm)
|
||
("lua" ,lua-5.1)
|
||
("mesa" ,mesa)
|
||
("opus" ,opus)
|
||
("perl" ,perl)
|
||
("pulseaudio" ,pulseaudio)
|
||
("python" ,python-wrapper)
|
||
("qt" ,qt)
|
||
("sdl" ,sdl)
|
||
("sdl-image" ,sdl-image)
|
||
("speex" ,speex)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
`("--disable-a52" ; FIXME: reenable once available
|
||
,(string-append "LDFLAGS=-Wl,-rpath -Wl,"
|
||
(assoc-ref %build-inputs "ffmpeg")
|
||
"/lib")))) ; needed for the tests
|
||
(home-page "https://www.videolan.org/")
|
||
(synopsis "Audio and video framework")
|
||
(description "VLC is a cross-platform multimedia player and framework
|
||
that plays most multimedia files as well as DVD, Audio CD, VCD, and various
|
||
treaming protocols.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public mplayer
|
||
(package
|
||
(name "mplayer")
|
||
(version "1.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1dp2lbxyhgjr8sn91kf6xw3w6d7dsgq08v4dgrq20afz1bqzdrzz"))))
|
||
(build-system gnu-build-system)
|
||
;; FIXME: Add additional inputs once available.
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("cdparanoia" ,cdparanoia)
|
||
("fontconfig" ,fontconfig)
|
||
("ffmpeg", ffmpeg)
|
||
("freetype" ,freetype)
|
||
("lame" ,lame)
|
||
("libdvdcss", libdvdcss)
|
||
("libdvdnav", libdvdnav)
|
||
("libmpg123" ,mpg123) ; audio codec for MP3
|
||
;; ("giflib" ,giflib) ; uses QuantizeBuffer, requires version >= 5
|
||
("libjpeg" ,libjpeg)
|
||
("libpng" ,libpng)
|
||
("libtheora" ,libtheora)
|
||
("libvorbis" ,libvorbis)
|
||
("libx11" ,libx11)
|
||
("libxxf86dga" ,libxxf86dga)
|
||
("libxinerama" ,libxinerama)
|
||
("libxv" ,libxv)
|
||
("mesa" ,mesa)
|
||
("perl" ,perl)
|
||
("pulseaudio" ,pulseaudio)
|
||
("python" ,python-wrapper)
|
||
("sdl" ,sdl)
|
||
("speex" ,speex)
|
||
("yasm" ,yasm)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
`(#:tests? #f ; no test target
|
||
#:phases
|
||
(alist-replace
|
||
'configure
|
||
;; configure does not work followed by "SHELL=..." and
|
||
;; "CONFIG_SHELL=..."; set environment variables instead
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(libx11 (assoc-ref inputs "libx11")))
|
||
(substitute* "configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "bash"))))
|
||
(setenv "SHELL" (which "bash"))
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(zero? (system*
|
||
"./configure"
|
||
(string-append "--extra-cflags=-I"
|
||
libx11 "/include") ; to detect libx11
|
||
"--disable-ffmpeg_a" ; disables bundled ffmpeg
|
||
(string-append "--prefix=" out)
|
||
;; Enable runtime cpu detection where supported,
|
||
;; and choose a suitable target.
|
||
,@(match (or (%current-target-system)
|
||
(%current-system))
|
||
("x86_64-linux"
|
||
'("--enable-runtime-cpudetection"
|
||
"--target=x86_64-linux"))
|
||
("i686-linux"
|
||
'("--enable-runtime-cpudetection"
|
||
"--target=i686-linux"))
|
||
("mips64el-linux"
|
||
'("--target=mips3-linux"))
|
||
(_ (list (string-append
|
||
"--target="
|
||
(or (%current-target-system)
|
||
(nix-system->gnu-triplet
|
||
(%current-system)))))))
|
||
"--disable-iwmmxt"))))
|
||
%standard-phases)))
|
||
(home-page "http://www.mplayerhq.hu/design7/news.html")
|
||
(synopsis "Audio and video player")
|
||
(description "MPlayer is a movie player. It plays most MPEG/VOB, AVI,
|
||
Ogg/OGM, VIVO, ASF/WMA/WMV, QT/MOV/MP4, RealMedia, Matroska, NUT,
|
||
NuppelVideo, FLI, YUV4MPEG, FILM, RoQ, PVA files. One can watch VideoCD,
|
||
SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public mpv
|
||
(package
|
||
(name "mpv")
|
||
(version "0.13.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/mpv-player/mpv/archive/v" version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1nqjd64p4pj1lks9n9s8y4zf4dp5bz8pyd0gsvviww7mv17p0whk"))
|
||
(file-name (string-append name "-" version ".tar.gz"))))
|
||
(build-system waf-build-system)
|
||
(native-inputs
|
||
`(("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
("python-docutils" ,python-docutils)))
|
||
;; Missing features: libguess, Wayland, VDPAU, V4L2
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("enca" ,enca)
|
||
("ffmpeg" ,ffmpeg)
|
||
("jack" ,jack-1)
|
||
("ladspa" ,ladspa)
|
||
("lcms" ,lcms)
|
||
("libass" ,libass)
|
||
("libbluray" ,libbluray)
|
||
("libcaca" ,libcaca)
|
||
("libbs2b" ,libbs2b)
|
||
("libcdio-paranoia" ,libcdio-paranoia)
|
||
("libdvdread" ,libdvdread)
|
||
("libdvdnav" ,libdvdnav)
|
||
("libjpeg" ,libjpeg)
|
||
("libva" ,libva)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxinerama" ,libxinerama)
|
||
("libxrandr" ,libxrandr)
|
||
("libxscrnsaver" ,libxscrnsaver)
|
||
("libxv" ,libxv)
|
||
("lua" ,lua)
|
||
("mesa" ,mesa)
|
||
("mpg123" ,mpg123)
|
||
("pulseaudio" ,pulseaudio)
|
||
("rsound" ,rsound)
|
||
("samba" ,samba)
|
||
("vapoursynth" ,vapoursynth)
|
||
("waf" ,(origin
|
||
(method url-fetch)
|
||
;; Keep this in sync with the version in the bootstrap.py
|
||
;; script of the source tarball.
|
||
(uri "http://www.freehackers.org/~tnagy/release/waf-1.8.12")
|
||
(sha256
|
||
(base32
|
||
"12y9c352zwliw0zk9jm2lhynsjcf5jy0k1qch1c1av8hnbm2pgq1"))))
|
||
("youtube-dl" ,youtube-dl)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before
|
||
'configure 'setup-waf
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(copy-file (assoc-ref inputs "waf") "waf")
|
||
(setenv "CC" "gcc")))
|
||
(add-before
|
||
'configure 'patch-wscript
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "wscript"
|
||
;; XXX Remove this when our Samba package provides a .pc file.
|
||
(("check_pkg_config\\('smbclient'\\)")
|
||
"check_cc(lib='smbclient')")))))
|
||
;; No check function defined.
|
||
#:tests? #f))
|
||
(home-page "http://mpv.io/")
|
||
(synopsis "Audio and video player")
|
||
(description "mpv is a general-purpose audio and video player. It is a
|
||
fork of mplayer2 and MPlayer. It shares some features with the former
|
||
projects while introducing many more.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libvpx
|
||
(package
|
||
(name "libvpx")
|
||
(version "1.4.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://storage.googleapis.com/"
|
||
"downloads.webmproject.org/releases/webm/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1r0ql5kgy0c8mh5w7iiqvsd7w5njl9f9cclc7m52ln8assrdk0pm"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases (alist-replace
|
||
'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(setenv "LDFLAGS"
|
||
(string-append "-Wl,-rpath=" out "/lib"))
|
||
(zero? (system* "./configure"
|
||
"--enable-shared"
|
||
"--as=yasm"
|
||
;; Limit size to avoid CVE-2015-1258
|
||
"--size-limit=16384x16384"
|
||
(string-append "--prefix=" out)))))
|
||
%standard-phases)
|
||
#:tests? #f)) ; no check target
|
||
(native-inputs
|
||
`(("perl" ,perl)
|
||
("yasm" ,yasm)))
|
||
(synopsis "VP8/VP9 video codec")
|
||
(description "libvpx is a codec for the VP8/VP9 video compression format.")
|
||
(license license:bsd-3)
|
||
(home-page "http://www.webmproject.org/")))
|
||
|
||
(define-public youtube-dl
|
||
(package
|
||
(name "youtube-dl")
|
||
(version "2015.12.09")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://youtube-dl.org/downloads/"
|
||
version "/youtube-dl-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"11rzb30ik4all43r7bnsnm35mvs37y7xj3g9r7ig9jr7qlbhllwk"))))
|
||
(build-system python-build-system)
|
||
(native-inputs `(("python-setuptools" ,python-setuptools)))
|
||
(home-page "http://youtube-dl.org")
|
||
(arguments
|
||
;; The problem here is that the directory for the man page and completion
|
||
;; files is relative, and for some reason, setup.py uses the
|
||
;; auto-detected sys.prefix instead of the user-defined "--prefix=FOO".
|
||
;; So, we need pass the prefix directly. In addition, make sure the Bash
|
||
;; completion file is called 'youtube-dl' rather than
|
||
;; 'youtube-dl.bash-completion'.
|
||
`(#:phases (modify-phases %standard-phases
|
||
(add-before 'install 'fix-the-data-directories
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prefix (assoc-ref outputs "out")))
|
||
(mkdir "bash-completion")
|
||
(rename-file "youtube-dl.bash-completion"
|
||
"bash-completion/youtube-dl")
|
||
(substitute* "setup.py"
|
||
(("youtube-dl\\.bash-completion")
|
||
"bash-completion/youtube-dl")
|
||
(("'etc/")
|
||
(string-append "'" prefix "/etc/"))
|
||
(("'share/")
|
||
(string-append "'" prefix "/share/")))))))))
|
||
(synopsis "Download videos from YouTube.com and other sites")
|
||
(description
|
||
"Youtube-dl is a small command-line program to download videos from
|
||
YouTube.com and a few more sites.")
|
||
(license license:public-domain)))
|
||
|
||
(define-public libbluray
|
||
(package
|
||
(name "libbluray")
|
||
(version "0.9.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://download.videolan.org/videolan/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1sp71j4agcsg17g6b85cqz78pn5vknl5pl39rvr6mkib5ps99jgg"))))
|
||
(build-system gnu-build-system)
|
||
(arguments `(#:configure-flags '("--disable-bdjava")))
|
||
(native-inputs `(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("doxygen" ,doxygen)
|
||
("fontconfig" ,fontconfig)
|
||
("freetype" ,freetype)
|
||
("libxml2" ,libxml2)
|
||
("perl" ,perl) ;for doxygen
|
||
("texlive" ,texlive)))
|
||
(home-page "http://www.videolan.org/developers/libbluray.html")
|
||
(synopsis "Blu-Ray Disc playback library")
|
||
(description
|
||
"libbluray is a library designed for Blu-Ray Disc playback for media
|
||
players, like VLC or MPlayer.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libdvdread
|
||
(package
|
||
(name "libdvdread")
|
||
(version "5.0.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://download.videolan.org/videolan/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0ayqiq0psq18rcp6f5pz82sxsq66v0kwv0y55dbrcg68plnxy71j"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://dvdnav.mplayerhq.hu/")
|
||
(synopsis "Library for reading video DVDs")
|
||
(description
|
||
"Libdvdread provides a simple foundation for reading DVD video
|
||
disks. It provides the functionality that is required to access many
|
||
DVDs. It parses IFO files, reads NAV-blocks, and performs CSS
|
||
authentication and descrambling (if an external libdvdcss library is
|
||
installed).")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libdvdnav
|
||
(package
|
||
(name "libdvdnav")
|
||
(version "5.0.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://download.videolan.org/videolan/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0v8byv5z598k06rqzdmj7739vc86xq3zf79zfr698dib7lz055sh"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("libdvdread" ,libdvdread)))
|
||
(home-page "http://dvdnav.mplayerhq.hu/")
|
||
(synopsis "Library for video DVD navigation features")
|
||
(description
|
||
"Libdvdnav is a library for developers of multimedia
|
||
applications. It allows easy use of sophisticated DVD navigation features
|
||
such as DVD menus, multiangle playback and even interactive DVD games. All
|
||
this functionality is provided through a simple API which provides the DVD
|
||
playback as a single logical stream of blocks, intermitted by special
|
||
dvdnav events to report certain conditions. The main usage of libdvdnav is
|
||
a loop regularly calling a function to get the next block, surrounded by
|
||
additional calls to tell the library of user interaction. The whole
|
||
DVD virtual machine and internal playback states are completely
|
||
encapsulated.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libdvdnav-4
|
||
(package
|
||
(inherit libdvdnav)
|
||
(version "4.2.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append
|
||
"http://download.videolan.org/videolan/libdvdnav/libdvdnav-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0wi3gy408c8xj0ism0hckv5jbfh3lg4pmgxv87gbch9jrhp2gjkz"))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)))
|
||
(arguments
|
||
'(#:phases
|
||
(alist-cons-after
|
||
'unpack 'autoreconf
|
||
(lambda _
|
||
(zero? (system* "autoreconf" "-vif")))
|
||
%standard-phases)))))
|
||
|
||
(define-public libdvdcss
|
||
(package
|
||
(name "libdvdcss")
|
||
(version "1.3.99")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://download.videolan.org/videolan/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0pawkfyvn2h3yl6ph5spcvqxb4fr4yi4wfkvw2xqqcqv2ywzmc08"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "http://www.videolan.org/developers/libdvdcss.html")
|
||
(synopsis "Library for accessing DVDs as block devices")
|
||
(description
|
||
"libdvdcss is a simple library designed for accessing DVDs like a block
|
||
device without having to bother about the decryption.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public srt2vtt
|
||
(package
|
||
(name "srt2vtt")
|
||
(version "0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://dthompson.us/releases/srt2vtt/srt2vtt-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"16b377znjm6qlga5yb8aj7b7bcisa1ghcnj2lrb1d30lvxp4liif"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("guile" ,guile-2.0)))
|
||
(synopsis "SubRip to WebVTT subtitle converter")
|
||
(description "srt2vtt converts SubRip formatted subtitles to WebVTT format
|
||
for use with HTML5 video.")
|
||
(home-page "http://dthompson.us/pages/software/srt2vtt")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public avidemux
|
||
(package
|
||
(name "avidemux")
|
||
(version "2.6.10")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/avidemux/avidemux_"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1vas43bwb15q2wv3dpp7fgp8dc6szinmwl7i0ziq2vv5l2128v0p"))
|
||
(patches (map search-patch '("avidemux-install-to-lib.patch")))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
;; FIXME: Once packaged, add libraries not found during the build.
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("fontconfig" ,fontconfig)
|
||
("freetype" ,freetype)
|
||
("fribidi" ,fribidi)
|
||
("glu" ,glu)
|
||
("jack" ,jack-1)
|
||
("lame" ,lame)
|
||
("libvorbis" ,libvorbis)
|
||
("libvpx" ,libvpx)
|
||
("libxv" ,libxv)
|
||
("perl" ,perl)
|
||
("pulseaudio" ,pulseaudio)
|
||
("python" ,python-wrapper)
|
||
("qt" ,qt)
|
||
("sdl" ,sdl)
|
||
("sqlite" ,sqlite)
|
||
("yasm" ,yasm)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
`(#:tests? #f ; no check target
|
||
#:phases
|
||
;; Make sure files inside the included ffmpeg tarball are
|
||
;; patch-shebanged.
|
||
(alist-cons-before
|
||
'patch-source-shebangs 'unpack-ffmpeg
|
||
(lambda _
|
||
(with-directory-excursion "avidemux_core/ffmpeg_package"
|
||
(system* "tar" "xf" "ffmpeg-2.6.1.tar.bz2")
|
||
(delete-file "ffmpeg-2.6.1.tar.bz2")))
|
||
(alist-cons-after
|
||
'patch-source-shebangs 'repack-ffmpeg
|
||
(lambda _
|
||
(with-directory-excursion "avidemux_core/ffmpeg_package"
|
||
(substitute* "ffmpeg-2.6.1/configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "bash"))))
|
||
(system* "tar" "cjf" "ffmpeg-2.6.1.tar.bz2" "ffmpeg-2.6.1"
|
||
;; avoid non-determinism in the archive
|
||
"--sort=name" "--mtime=@0"
|
||
"--owner=root:0" "--group=root:0")
|
||
(delete-file-recursively "ffmpeg-2.6.1")))
|
||
(alist-replace 'configure
|
||
(lambda _
|
||
;; Copy-paste settings from the cmake build system.
|
||
(setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
|
||
(setenv "CMAKE_INCLUDE_PATH" (getenv "CPATH")))
|
||
(alist-replace 'build
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let*
|
||
((out (assoc-ref outputs "out"))
|
||
(lib (string-append out "/lib"))
|
||
(top (getcwd))
|
||
(sdl (assoc-ref inputs "sdl"))
|
||
(build_component
|
||
(lambda* (component srcdir #:optional (args '()))
|
||
(let ((builddir (string-append "build_" component)))
|
||
(mkdir builddir)
|
||
(with-directory-excursion builddir
|
||
(zero? (and
|
||
(apply system* "cmake"
|
||
"-DCMAKE_INSTALL_RPATH_USE_LINK_PATH=TRUE"
|
||
(string-append "-DCMAKE_INSTALL_PREFIX=" out)
|
||
(string-append "-DCMAKE_INSTALL_RPATH=" lib)
|
||
(string-append "-DCMAKE_SHARED_LINKER_FLAGS="
|
||
"\"-Wl,-rpath=" lib "\"")
|
||
(string-append "-DAVIDEMUX_SOURCE_DIR=" top)
|
||
(string-append "-DSDL_INCLUDE_DIR="
|
||
sdl "/include/SDL")
|
||
(string-append "../" srcdir)
|
||
"-DENABLE_QT5=True"
|
||
args)
|
||
(system* "make" "-j"
|
||
(number->string (parallel-job-count)))
|
||
(system* "make" "install"))))))))
|
||
(mkdir out)
|
||
(and (build_component "core" "avidemux_core")
|
||
(build_component "cli" "avidemux/cli")
|
||
(build_component "qt4" "avidemux/qt4")
|
||
(build_component "plugins_common" "avidemux_plugins"
|
||
'("-DPLUGIN_UI=COMMON"))
|
||
(build_component "plugins_cli" "avidemux_plugins"
|
||
'("-DPLUGIN_UI=CLI"))
|
||
(build_component "plugins_qt4" "avidemux_plugins"
|
||
'("-DPLUGIN_UI=QT4"))
|
||
(build_component "plugins_settings" "avidemux_plugins"
|
||
'("-DPLUGIN_UI=SETTINGS")))
|
||
;; Remove .exe and .dll file.
|
||
(delete-file-recursively
|
||
(string-append out "/share/ADM6_addons"))))
|
||
(alist-delete 'install
|
||
%standard-phases)))))))
|
||
(home-page "http://fixounet.free.fr/avidemux/")
|
||
(synopsis "Video editor")
|
||
(description "Avidemux is a video editor designed for simple cutting,
|
||
filtering and encoding tasks. It supports many file types, including AVI,
|
||
DVD compatible MPEG files, MP4 and ASF, using a variety of codecs. Tasks
|
||
can be automated using projects, job queue and powerful scripting
|
||
capabilities.")
|
||
;; Software with various licenses is included, see License.txt.
|
||
(license license:gpl2+)))
|
||
|
||
(define-public vapoursynth
|
||
(package
|
||
(name "vapoursynth")
|
||
(version "28")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/vapoursynth/vapoursynth/archive/R"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version))
|
||
(sha256
|
||
(base32
|
||
"0pnrawcg1j65i46yim0z447lglq1af5zgx0lkqf1x5xl1bfwc0v7"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("cython" ,python-cython)
|
||
("libtool" ,libtool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python)
|
||
("yasm" ,yasm)))
|
||
(inputs
|
||
`(("ffmpeg" ,ffmpeg)
|
||
("libass" ,libass)
|
||
("tesseract-ocr" ,tesseract-ocr)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'unpack 'autogen
|
||
(lambda _
|
||
(zero? (system* "sh" "autogen.sh")))))))
|
||
(home-page "http://www.vapoursynth.com/")
|
||
(synopsis "Video processing framework")
|
||
(description "VapourSynth is a C++ library and Python module for video
|
||
manipulation. It aims to be a modern rewrite of Avisynth, supporting
|
||
multithreading, generalized colorspaces, per frame properties, and videos with
|
||
format changes.")
|
||
;; As seen from the source files.
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public xvid
|
||
(package
|
||
(name "xvid")
|
||
(version "1.3.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://downloads.xvid.org/downloads/xvidcore-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0m5g75qvapr7xpywg6a83v5x19kw1nm9l2q48lg7jvvpba0bmqdh"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs `(("yasm" ,yasm)))
|
||
(arguments
|
||
'(#:phases
|
||
(alist-cons-before
|
||
'configure 'pre-configure
|
||
(lambda _
|
||
(chdir "build/generic")
|
||
(substitute* "configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "sh")))))
|
||
%standard-phases)
|
||
;; No 'check' target.
|
||
#:tests? #f))
|
||
(home-page "https://www.xvid.com/")
|
||
(synopsis "MPEG-4 Part 2 Advanced Simple Profile video codec")
|
||
(description "Xvid is an MPEG-4 Part 2 Advanced Simple Profile (ASP) video
|
||
codec library. It uses ASP features such as b-frames, global and quarter
|
||
pixel motion compensation, lumi masking, trellis quantization, and H.263, MPEG
|
||
and custom quantization matrices.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public livestreamer
|
||
(package
|
||
(name "livestreamer")
|
||
(version "1.12.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/chrippa/livestreamer/archive/v"
|
||
version ".tar.gz"))
|
||
(file-name (string-append "livestreamer-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1fp3d3z2grb1ls97smjkraazpxnvajda2d1g1378s6gzmda2jvjd"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:tests? #f)) ; tests rely on external web servers
|
||
(native-inputs
|
||
`(("python-setuptools" ,python-setuptools)))
|
||
(propagated-inputs
|
||
`(("python-requests" ,python-requests)
|
||
("python-singledispatch" ,python-singledispatch)))
|
||
(synopsis "Internet video stream viewer")
|
||
(description "Livestreamer is a command-line utility that extracts streams
|
||
from various services and pipes them into a video playing application.")
|
||
(home-page "http://livestreamer.io/")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public mlt
|
||
(package
|
||
(name "mlt")
|
||
(version "0.9.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/mlt/mlt/mlt-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0rmrkj7z9g3nr4099f3ff0r14l3ixcfnlx2cdbkqa6pxin0pv9bz"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:make-flags '("CC=gcc")
|
||
#:configure-flags
|
||
(list "--enable-gpl3"
|
||
"--enable-gpl")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'configure 'override-LDFLAGS
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "config.mak"
|
||
(("LDFLAGS\\+=")
|
||
(string-append "LDFLAGS+=-Wl,-rpath="
|
||
(assoc-ref outputs "out")
|
||
"/lib ")))
|
||
#t)))))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("fftw" ,fftw)
|
||
("libxml2" ,libxml2)
|
||
("jack" ,jack-1)
|
||
("ladspa" ,ladspa)
|
||
("libsamplerate" ,libsamplerate)
|
||
("sdl" ,sdl)
|
||
("sox" ,sox)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "http://www.mltframework.org/")
|
||
(synopsis "Author, manage, and run multitrack audio/video compositions")
|
||
(description
|
||
"MLT is a multimedia framework, designed and developed for television
|
||
broadcasting. It provides a toolkit for broadcasters, video editors, media
|
||
players, transcoders, web streamers and many more types of applications. The
|
||
functionality of the system is provided via an assortment of ready to use
|
||
tools, XML authoring components, and an extensible plug-in based API.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public obs
|
||
(package
|
||
(name "obs")
|
||
(version "0.12.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/jp9000/obs-studio"
|
||
"/archive/" version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0b1xb5vd3g4h7m1hsjzsq3bbbnqb2n6mpmq6ix4yyy72g087rjk1"))))
|
||
(build-system cmake-build-system)
|
||
(arguments '(#:tests? #f)) ; no tests
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("curl" ,curl)
|
||
("eudev" ,eudev)
|
||
("ffmpeg" ,ffmpeg)
|
||
("freetype" ,freetype)
|
||
("jack" ,jack-1)
|
||
("jansson" ,jansson)
|
||
("libx264" ,libx264)
|
||
("libxcomposite" ,libxcomposite)
|
||
("mesa" ,mesa)
|
||
("pulseaudio" ,pulseaudio)
|
||
("qt" ,qt)
|
||
("zlib" ,zlib)))
|
||
(synopsis "Live streaming software")
|
||
(description "Open Broadcaster Software provides a graphical interface for
|
||
video recording and live streaming. OBS supports capturing audio and video
|
||
from many input sources such as webcams, X11 (for screencasting), PulseAudio,
|
||
and JACK.")
|
||
(home-page "https://obsproject.com")
|
||
(license license:gpl2+)))
|