5717 lines
220 KiB
Scheme
5717 lines
220 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014, 2015, 2016 David Thompson <davet@gnu.org>
|
||
;;; Copyright © 2014, 2015, 2016, 2018, 2020 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
||
;;; Copyright © 2015-2023 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2015, 2016 Andy Patterson <ajpatter@uwaterloo.ca>
|
||
;;; Copyright © 2015, 2018, 2019, 2020, 2021, 2023 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Alex Vong <alexvong1995@gmail.com>
|
||
;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
|
||
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
|
||
;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
|
||
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2016, 2018, 2019, 2020, 2021 Eric Bavier <bavier@posteo.net>
|
||
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
|
||
;;; Copyright © 2017 Feng Shu <tumashu@163.com>
|
||
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
|
||
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
|
||
;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com>
|
||
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
|
||
;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
|
||
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
|
||
;;; Copyright © 2018 Roel Janssen <roel@gnu.org>
|
||
;;; Copyright © 2018-2022 Marius Bakke <marius@gnu.org>
|
||
;;; Copyright © 2018, 2019, 2020 Pierre Neidhardt <mail@ambrevar.xyz>
|
||
;;; Copyright © 2018, 2019, 2020, 2022 Leo Famulari <leo@famulari.name>
|
||
;;; Copyright © 2018 Brendan Tildesley <mail@brendan.scot>
|
||
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
|
||
;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
|
||
;;; Copyright © 2018 Mark Meyer <mark@ofosos.org>
|
||
;;; Copyright © 2018 Gábor Boskovit <boskovits@gmail.com>
|
||
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
|
||
;;; Copyright © 2019 Timo Eisenmann <eisenmann@fn.de>
|
||
;;; Copyright © 2019 Arne Babenhauserheide <arne_bab@web.de>
|
||
;;; Copyright © 2019 Riku Viitanen <riku.viitanen@protonmail.com>
|
||
;;; Copyright © 2020, 2021, 2023 Oleg Pykhalov <go.wigust@gmail.com>
|
||
;;; Copyright © 2020 Josh Holland <josh@inv.alid.pw>
|
||
;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
|
||
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
|
||
;;; Copyright © 2020, 2021 Guillaume Le Vaillant <glv@posteo.net>
|
||
;;; Copyright © 2020 Alex McGrath <amk@amk.ie>
|
||
;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de>
|
||
;;; Copyright © 2020, 2021, 2022, 2023 Vinicius Monego <monego@posteo.net>
|
||
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
|
||
;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@posteo.ro>
|
||
;;; Copyright © 2020 Ivan Kozlov <kanichos@yandex.ru>
|
||
;;; Copyright © 2020 Antoine Côté <antoine.cote@posteo.net>
|
||
;;; Copyright © 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
|
||
;;; Copyright © 2021 Alexey Abramov <levenson@mmer.org>
|
||
;;; Copyright © 2021, 2022, 2023 Andrew Tropin <andrew@trop.in>
|
||
;;; Copyright © 2021 David Wilson <david@daviwil.com>
|
||
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||
;;; Copyright © 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
|
||
;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
|
||
;;; Copyright © 2021 Thiago Jung Bauermann <bauermann@kolabnow.com>
|
||
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
|
||
;;; Copyright © 2021 Robin Templeton <robin@terpri.org>
|
||
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
|
||
;;; Copyright © 2021 Pradana Aumars <paumars@courrier.dev>
|
||
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
|
||
;;; Copyright © 2022 Bird <birdsite@airmail.cc>
|
||
;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
|
||
;;; Copyright © 2022 Chadwain Holness <chadwainholness@gmail.com>
|
||
;;; Copyright © 2022 Andy Tai <atai@atai.org>
|
||
;;; Copyright © 2023 Ott Joon <oj@vern.cc>
|
||
;;; Copyright © 2023 Dominik Delgado Steuter <dds@disroot.org>
|
||
;;; Copyright © 2023 Saku Laesvuori <saku@laesvuori.fi>
|
||
;;;
|
||
;;; 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 ((srfi srfi-1) #:hide (zip))
|
||
#:use-module (srfi srfi-26)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix gexp)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix svn-download)
|
||
#:use-module (guix hg-download)
|
||
#:use-module (guix build-system cargo)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system copy)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system glib-or-gtk)
|
||
#:use-module (guix build-system meson)
|
||
#:use-module (guix build-system perl)
|
||
#:use-module (guix build-system pyproject)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (guix build-system qt)
|
||
#:use-module (guix build-system waf)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages algebra)
|
||
#:use-module (gnu packages assembly)
|
||
#:use-module (gnu packages audio)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages avahi)
|
||
#:use-module (gnu packages backup)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages bison)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages cdrom)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages cpp)
|
||
#:use-module (gnu packages crates-io)
|
||
#:use-module (gnu packages crates-graphics)
|
||
#:use-module (gnu packages curl)
|
||
#:use-module (gnu packages dbm)
|
||
#:use-module (gnu packages dejagnu)
|
||
#:use-module (gnu packages dns)
|
||
#:use-module (gnu packages docbook)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages file)
|
||
#:use-module (gnu packages flex)
|
||
#:use-module (gnu packages fonts)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages fribidi)
|
||
#:use-module (gnu packages gcc)
|
||
#: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 gnome)
|
||
#:use-module (gnu packages gnunet)
|
||
#:use-module (gnu packages gnupg)
|
||
#:use-module (gnu packages gstreamer)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages haskell-xyz)
|
||
#:use-module (gnu packages hunspell)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages imagemagick)
|
||
#:use-module (gnu packages iso-codes)
|
||
#:use-module (gnu packages libidn)
|
||
#:use-module (gnu packages libusb)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages man)
|
||
#:use-module (gnu packages markup)
|
||
#:use-module (gnu packages maths)
|
||
#:use-module (gnu packages music)
|
||
#:use-module (gnu packages mp3)
|
||
#:use-module (gnu packages multiprecision)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages nettle)
|
||
#:use-module (gnu packages networking)
|
||
#:use-module (gnu packages ocr)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages pciutils)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages perl-check)
|
||
#:use-module (gnu packages perl-web)
|
||
#:use-module (gnu packages php)
|
||
#:use-module (gnu packages photo)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages popt)
|
||
#:use-module (gnu packages pretty-print)
|
||
#:use-module (gnu packages protobuf)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-build)
|
||
#:use-module (gnu packages python-crypto)
|
||
#:use-module (gnu packages python-web)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages qt)
|
||
#:use-module (gnu packages re2c)
|
||
#:use-module (gnu packages ruby)
|
||
#:use-module (gnu packages rust-apps)
|
||
#:use-module (gnu packages samba)
|
||
#:use-module (gnu packages sdl)
|
||
#:use-module (gnu packages serialization)
|
||
#:use-module (gnu packages shells)
|
||
#:use-module (gnu packages spice)
|
||
#:use-module (gnu packages sqlite)
|
||
#:use-module (gnu packages ssh)
|
||
#:use-module (gnu packages swig)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages textutils)
|
||
#:use-module (gnu packages tls)
|
||
#:use-module (gnu packages time)
|
||
#:use-module (gnu packages upnp)
|
||
#:use-module (gnu packages version-control)
|
||
#:use-module (gnu packages vulkan)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu packages wget)
|
||
#:use-module (gnu packages wxwidgets)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xiph)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module (gnu packages xorg))
|
||
|
||
(define-public transcode
|
||
(package
|
||
(name "transcode")
|
||
(version "1.1.7")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://sources.archlinux.org/other/community/"
|
||
name "/" name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "14ha9xjsjrj131f35jd56z5v1jb4rbsrj1nril5shqnxw3c74khy"))
|
||
(patches
|
||
(search-patches "transcode-ffmpeg.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list
|
||
"CFLAGS=-O2 -g -fcommon"
|
||
;; XXX: Broken API.
|
||
;; Undeclared variables 'sys_nerr' and 'sys_errlist'.
|
||
;; "--enable-libv4l2"
|
||
"--enable-libmpeg2"
|
||
"--enable-libmpeg2convert"
|
||
;; XXX: Broken API.
|
||
;; Undeclared variables 'sys_nerr' and 'sys_errlist'.
|
||
;; "--enable-v4l"
|
||
;;; XXX: Not available.
|
||
;"--enable-bktr"
|
||
;"--enable-sunau"
|
||
"--enable-oss"
|
||
"--enable-alsa"
|
||
;;; XXX: Not available.
|
||
;"--enable-libpostproc"
|
||
"--enable-freetype2"
|
||
"--enable-xvid"
|
||
"--enable-x264"
|
||
"--enable-ogg"
|
||
"--enable-vorbis"
|
||
"--enable-theora"
|
||
;;; XXX: Not available.
|
||
;"--enable-pvm3"
|
||
"--enable-libdv"
|
||
"--enable-libquicktime"
|
||
"--enable-lzo"
|
||
"--enable-a52"
|
||
"--enable-libxml2"
|
||
;;; XXX: Not available.
|
||
;"--enable-ibp"
|
||
;;"--enable-mjpegtools"
|
||
"--enable-sdl"
|
||
"--enable-imagemagick"
|
||
;;; XXX: Not available.
|
||
;"--enable-libjpegmmx"
|
||
"--enable-libjpeg")))
|
||
;;; XXX: Not available.
|
||
;"--enable-bsdav"
|
||
;"--enable-pv3"
|
||
;"--enable-nuv"
|
||
(native-inputs
|
||
(list autoconf
|
||
automake
|
||
libtool
|
||
libxml2
|
||
perl
|
||
pkg-config
|
||
python-wrapper))
|
||
(inputs
|
||
(list alsa-lib
|
||
ffmpeg-4
|
||
freetype
|
||
imagemagick
|
||
lame
|
||
liba52
|
||
libdv
|
||
libdvdread
|
||
libjpeg-turbo
|
||
libmpeg2
|
||
libogg
|
||
libquicktime
|
||
libtheora
|
||
libvorbis
|
||
lzo
|
||
mjpegtools
|
||
sdl
|
||
;; ("v4l-utils" ,v4l-utils)
|
||
libx11
|
||
libx264
|
||
libxaw
|
||
libxext
|
||
libxpm
|
||
libxv
|
||
xvid
|
||
zlib))
|
||
(synopsis "Audio/Video Transcoder")
|
||
(description "Transcode is a fast, versatile and command-line based
|
||
audio/video everything to everything converter primarily focused on producing
|
||
AVI video files with MP3 audio, but also including a program to read all the
|
||
video and audio streams from a DVD.")
|
||
(home-page
|
||
"https://linuxfromscratch.org/blfs/view/svn/multimedia/transcode.html")
|
||
(license license:gpl2+)))
|
||
|
||
;;; Warning: this package shouldn't be added as an input anywhere, as it can
|
||
;;; only be used for recent x86_64 CPUs implementing the AVX2 instruction!
|
||
(define-public svt-hevc
|
||
(package
|
||
(name "svt-hevc")
|
||
(version "1.5.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/OpenVisualCloud/SVT-HEVC")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1cv6vcf5yxcwdvj5yqcckbixqrvvdxk7ibincnnv80pz6wh527sv"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ; Test script is stand-alone
|
||
(native-inputs
|
||
(list yasm))
|
||
(synopsis "SVT HEVC encoder")
|
||
(description "Scalable Video Technology (SVT) is a software-based video
|
||
coding technology that is highly optimized for Intel's Xeon processors. Using
|
||
the SVT-HEVC encoder, it is possible to spread video encoding processing
|
||
across multiple Intel's Xeon processors to achieve a real advantage of
|
||
processing efficiency. Note that this package @emph{requires} the AVX2
|
||
instruction, which means it will @emph{not} work on older x86_64 CPUs such as
|
||
the Core 2 Duo.")
|
||
(home-page "https://github.com/OpenVisualCloud/SVT-HEVC/")
|
||
(supported-systems '("x86_64-linux"))
|
||
(license (license:non-copyleft "file:///LICENSE.md"))))
|
||
|
||
(define-public mediasdk
|
||
(package
|
||
(name "mediasdk")
|
||
(version "22.4.4")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/Intel-Media-SDK/MediaSDK")
|
||
(commit (string-append "intel-" name "-" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "18mrqringyv1drswm4m8ppw7sks6x4jzp6s0ag0h9hrpd15kn5rx"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
(list
|
||
#:configure-flags
|
||
#~(list
|
||
"-DENABLE_X11=ON"
|
||
"-DENABLE_X11_DRI3=ON"
|
||
"-DENABLE_WAYLAND=ON"
|
||
"-DENABLE_TEXTLOG=ON"
|
||
"-DENABLE_STAT=ON"
|
||
"-DBUILD_TESTS=ON"
|
||
"-DBUILD_TOOLS=ON"
|
||
(string-append "-DCMAKE_EXE_LINKER_FLAGS=-Wl,-rpath="
|
||
#$output "/lib"))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'do-not-embed-kernel-version
|
||
(lambda _
|
||
(substitute* "builder/FindGlobals.cmake"
|
||
(("set\\([[:blank:]]+?BUILD_INFO \"\\$\\{CMAKE_SYSTEM\\}\
|
||
\\$\\{CMAKE_SYSTEM_VERSION\\}")
|
||
"set( BUILD_INFO \"Linux")))))))
|
||
(native-inputs
|
||
(list pkg-config python-wrapper))
|
||
(inputs
|
||
(list libdrm libva libpciaccess wayland libx11))
|
||
(synopsis "Intel Media SDK")
|
||
(description "MediaSDK provides a plain C API to access hardware-accelerated
|
||
video decode, encode and filtering on Intel's Gen graphics hardware platforms.")
|
||
(home-page "http://mediasdk.intel.com/")
|
||
(supported-systems '("x86_64-linux" "i686-linux"))
|
||
(license (license:non-copyleft "file:///LICENSE"))))
|
||
|
||
(define-public schroedinger
|
||
(package
|
||
(name "schroedinger")
|
||
(version "1.0.11")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://launchpad.net/" name "/trunk/" version
|
||
"/+download/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "04prr667l4sn4zx256v1z36a0nnkxfdqyln48rbwlamr6l3jlmqy"))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out" "doc"))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'move-docs
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(doc (assoc-ref outputs "doc")))
|
||
(mkdir-p (string-append doc "/share"))
|
||
(rename-file
|
||
(string-append out "/share/gtk-doc")
|
||
(string-append doc "/share/gtk-doc"))
|
||
#t))))))
|
||
(native-inputs
|
||
(list dash gtk-doc/stable pkg-config))
|
||
(inputs
|
||
`(("glew" ,glew)
|
||
("opengl" ,mesa)))
|
||
(propagated-inputs
|
||
(list orc))
|
||
(synopsis "Dirac video codec")
|
||
(description "Schroedinger is a project implementing the Dirac video codec in
|
||
ANSI C code. It is meant to be highly optimized and portable. It is developed
|
||
as a joint effort between the BBC and Fluendo.")
|
||
(home-page "https://launchpad.net/schroedinger")
|
||
(license
|
||
;; This library is licensed under 4 different licenses,
|
||
;; and you can choose to use it under the terms of any one of them.
|
||
(list
|
||
license:gpl2+
|
||
license:lgpl2.0+
|
||
license:expat
|
||
license:mpl1.1))))
|
||
|
||
(define-public libquicktime
|
||
(package
|
||
(name "libquicktime")
|
||
(version "1.2.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://sourceforge.net/projects/" name "/files/"
|
||
name "/" version "/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "0s3kshzl3zfjw3phzv73r91fkr9z8q8kc3dhsys4f4xk6ff3alqw"))
|
||
(patches
|
||
(search-patches "libquicktime-ffmpeg.patch"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list gettext-minimal doxygen pkg-config))
|
||
(inputs
|
||
(list alsa-lib
|
||
ffmpeg-4
|
||
gtk+-2
|
||
lame
|
||
libdv
|
||
libjpeg-turbo
|
||
libpng
|
||
libvorbis
|
||
mesa
|
||
schroedinger
|
||
libx11
|
||
libx264
|
||
libxaw
|
||
libxv))
|
||
(synopsis "Quick Time Library")
|
||
(description "The goal of this project is to enhance the quicktime4linux
|
||
library.")
|
||
(home-page "https://libquicktime.sourceforge.net/")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public mjpg-streamer
|
||
(package
|
||
(name "mjpg-streamer")
|
||
(version "1.0.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/jacksonliam/mjpg-streamer")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0w81pg228154blzbzr590xwhcll9baxyqxl6wxrgqsi9cd7pzq23"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(with-directory-excursion "mjpg-streamer-experimental/www"
|
||
(for-each delete-file-recursively
|
||
'("cambozola.jar"
|
||
"JQuerySpinBtn.css"
|
||
"JQuerySpinBtn.js"
|
||
"jquery.js"
|
||
"jquery.rotate.js"
|
||
"jquery.ui.core.min.js"
|
||
"jquery.ui.custom.css"
|
||
"jquery.ui.tabs.min.js"
|
||
"jquery.ui.widget.min.js")))))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; no test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir
|
||
(lambda* _
|
||
(chdir "mjpg-streamer-experimental"))))))
|
||
(inputs (list libjpeg-turbo))
|
||
(synopsis "Stream JPEG over IP network")
|
||
(description "Command line application that copies JPEG frames from one or
|
||
more input plugins to multiple output plugins. It can be used to stream JPEG
|
||
files over an IP-based network from a webcam to various types of viewers such
|
||
as Chrome, Firefox, Cambozola, VLC, mplayer, and other software capable of
|
||
receiving MJPG streams.")
|
||
(home-page "https://github.com/jacksonliam/mjpg-streamer")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public mjpegtools
|
||
(package
|
||
(name "mjpegtools")
|
||
(version "2.2.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://sourceforge.net/projects/mjpeg/files/"
|
||
name "/" version "/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "16pl22ra3x2mkp8p3awslhlhj46b1nq9g89301gb0q4rgmnm705i"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(list gtk+-2 libdv libjpeg-turbo libpng libquicktime sdl))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(synopsis "Tools for handling MPEG")
|
||
(description "Mjpeg tools is a suite of programs which support video capture,
|
||
editing, playback, and compression to MPEG of MJPEG video. Edit, play and
|
||
compression software is hardware independent.")
|
||
(home-page "https://mjpeg.sourceforge.net/")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libmms
|
||
(package
|
||
(name "libmms")
|
||
(version "0.6.4")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://sourceforge.net/projects/" name "/files/"
|
||
name "/" version "/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "0kvhxr5hkabj9v7ah2rzkbirndfqdijd9hp8v52c1z6bxddf019w"))))
|
||
(build-system gnu-build-system)
|
||
(synopsis "MMS stream protocol library")
|
||
(description "Libmms is a library for streaming media files using the mmst
|
||
and mmsh protocols.")
|
||
(home-page "https://sourceforge.net/projects/libmms/")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libvideogfx
|
||
(package
|
||
(name "libvideogfx")
|
||
(version "1.0.9")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/farindk/libvideogfx")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "154b0j8cfg879pg08xcbwvbz8z9nrfnyj31i48vxir1psas70ynq"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-build-errors
|
||
(lambda _
|
||
(substitute* "libvideogfx/graphics/fileio/ffmpeg.cc"
|
||
(("av_close_input_file\\(")
|
||
"avformat_close_input(&"))
|
||
(substitute* "libvideogfx/graphics/fileio/png.cc"
|
||
(("is != NULL") "is.good()"))
|
||
#t)))))
|
||
(native-inputs
|
||
(list autoconf automake libtool pkg-config))
|
||
(inputs
|
||
`(("ffmpeg" ,ffmpeg-2.8)
|
||
("jpeg" ,libjpeg-turbo)
|
||
("png" ,libpng)
|
||
("x11" ,libx11)
|
||
("xext" ,libxext)))
|
||
(synopsis "Video processing library")
|
||
(description "LibVideoGfx is a C++ library for low-level video processing.
|
||
It aims at speeding up the development process for image and video processing
|
||
applications by providing high-level classes for commonly required tasks.")
|
||
(home-page "https://dirk-farin.net/software/libvideogfx/index.html")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libde265
|
||
(package
|
||
(name "libde265")
|
||
(version "1.0.8")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/strukturag/libde265")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1dzflqbk248lz5ws0ni5acmf32b3rmnq5gsfaz7691qqjxkl1zml"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--disable-static")))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("libtool" ,libtool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python-wrapper)))
|
||
(inputs
|
||
`(;; XXX: Build fails with libvideogfx.
|
||
;; ("libvideogfx" ,libvideogfx)
|
||
("qt" ,qtbase-5)
|
||
("sdl" ,sdl)))
|
||
(synopsis "H.265 video codec implementation")
|
||
(description "Libde265 is an implementation of the h.265 video codec. It is
|
||
written from scratch and has a plain C API to enable a simple integration into
|
||
other software.")
|
||
(home-page "https://www.libde265.org/")
|
||
(license
|
||
(list
|
||
;; Applications.
|
||
license:expat
|
||
;; Library.
|
||
license:lgpl3+))))
|
||
|
||
(define-public tslib
|
||
(package
|
||
(name "tslib")
|
||
(version "1.22")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/libts/tslib")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "197p6vy539wvfrv23agbvmay4rjya1jnisi46llm0nx4cvqh48by"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:test-target "tests"
|
||
#:configure-flags
|
||
(list "--with-sdl2")))
|
||
(native-inputs
|
||
(list autoconf automake libtool pkg-config))
|
||
(inputs
|
||
`(("sdl2" ,sdl2)))
|
||
(synopsis "Touchscreen access library")
|
||
(description "TSLib is a cross-platform library that provides access to
|
||
touchscreen devices and the ability to apply filters to their input events.")
|
||
(home-page "http://www.tslib.org/")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libmpeg3
|
||
(package
|
||
(name "libmpeg3")
|
||
(version "1.8")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri
|
||
(string-append "https://sourceforge.net/projects/heroines/files/"
|
||
"releases/081108/" name "-" version "-src.tar.bz2"))
|
||
(sha256
|
||
(base32 "1i53vv0wm5qfwgg1z7j9g14s6c7gxxkiy4vbdkq3lijjyyz50vv5"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:test-target "test"
|
||
#:make-flags
|
||
(list
|
||
(string-append "A52DIR=" (assoc-ref %build-inputs "liba52"))
|
||
(string-append "DST=" (assoc-ref %outputs "out") "/bin"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'delete-bundled-a52dec
|
||
(lambda _
|
||
(delete-file-recursively "a52dec-0.7.3")
|
||
(substitute* "Makefile"
|
||
(("include Makefile\\.a52")
|
||
"")
|
||
(("\\(A52DIR\\)/include")
|
||
"(A52DIR)/include/a52dec")
|
||
(("LIBS = " match)
|
||
(string-append match "-la52 ")))))
|
||
(add-after 'unpack 'preseed-cflags
|
||
(lambda _
|
||
(setenv "CFLAGS"
|
||
(string-append "-D_FILE_OFFSET_BITS=64 "
|
||
"-D_LARGEFILE_SOURCE "
|
||
"-D_LARGEFILE64_SOURCE"))))
|
||
(add-before 'install 'create-destination-directory
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (string-append (assoc-ref outputs "out"))))
|
||
(mkdir-p (string-append out "/bin"))))))))
|
||
(native-inputs
|
||
(list nasm))
|
||
(inputs
|
||
(list liba52))
|
||
(synopsis "Advanced MPEG editing and manipulation library")
|
||
(description "Libmpeg3 decodes MP2, MP3, AC3, MPEG-1 video, MPEG-2 video,
|
||
and DVD footage in a single library. It supports many esoteric features like
|
||
parallel video decoding, frame-accurate editing, YUV 4:2:2, and ATSC transport
|
||
stream decoding")
|
||
(home-page "http://heroinewarrior.com/libmpeg3.php")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public aalib
|
||
(package
|
||
(name "aalib")
|
||
(version "1.4rc5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/aa-project/aa-lib/"
|
||
version "/" name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1vkh19gb76agvh4h87ysbrgy82hrw88lnsvhynjf4vng629dmpgv"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:configure-flags
|
||
#~(list "--disable-static"
|
||
(string-append "--with-ncurses="
|
||
#$(this-package-input "ncurses")))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'force-autoreconf
|
||
(lambda _
|
||
(delete-file "configure"))))))
|
||
(native-inputs (list autoconf automake libtool texinfo))
|
||
(inputs (list ncurses))
|
||
(home-page "https://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 celluloid
|
||
(package
|
||
(name "celluloid")
|
||
(version "0.25")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/celluloid-player/celluloid"
|
||
"/releases/download/v" version
|
||
"/celluloid-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "0an98lz90s4hhvrvqd1ja814mav9md9n843vhknjgcv4zmrwn0sg"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
(list
|
||
#:glib-or-gtk? #t
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-postinstall-script
|
||
(lambda _
|
||
(setenv "DESTDIR" "/"))))))
|
||
(native-inputs
|
||
(list
|
||
intltool
|
||
`(,glib "bin") ; for glib-compile-resources
|
||
pkg-config
|
||
python-wrapper)) ; for generate-authors.py
|
||
(inputs
|
||
(list gtk libadwaita libepoxy mpv))
|
||
(home-page "https://github.com/celluloid-player/celluloid")
|
||
(synopsis "GTK+ frontend for the mpv media player")
|
||
(description "Celluloid is a simple GTK+ frontend for the mpv media player.
|
||
It interacts with mpv via the client API exported by libmpv, allowing access to
|
||
mpv's powerful playback capabilities.")
|
||
(license license:gpl3+)))
|
||
|
||
(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 (search-patches "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
|
||
(list autoconf automake libtool))
|
||
(arguments `(#:configure-flags '("--enable-shared")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; XXX We need to run ./bootstrap because of the build
|
||
;; system fixes above.
|
||
(replace 'bootstrap
|
||
(lambda _ (invoke "sh" "bootstrap"))))))
|
||
(home-page "https://liba52.sourceforge.net/")
|
||
(synopsis "ATSC A/52 audio stream decoder")
|
||
(description "liba52 is a library for decoding ATSC A/52 audio 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 libaom
|
||
(package
|
||
(name "libaom")
|
||
(version "3.5.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://aomedia.googlesource.com/aom/")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0arn8a88jz4mj69n8cs4qmrdjwhbvzsqgnx20wr9mq01b06kqich"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
(list perl pkg-config python)) ; to detect the version
|
||
(arguments
|
||
`(#:tests? #f ; downloads many video clips
|
||
#:configure-flags
|
||
(list "-DBUILD_SHARED_LIBS=YES"
|
||
"-DAOM_TARGET_CPU=generic"
|
||
(string-append "-DCMAKE_INSTALL_PREFIX="
|
||
(assoc-ref %outputs "out")))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'delete-static-libraries
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(lib (string-append out "/lib")))
|
||
(for-each delete-file
|
||
(find-files lib "\\.a$"))))))))
|
||
(home-page "https://aomedia.googlesource.com/aom/")
|
||
(synopsis "AV1 video codec")
|
||
(description "Libaom is the reference implementation of AV1. It includes a
|
||
shared library and encoder and decoder command-line executables.")
|
||
(license license:bsd-2)))
|
||
|
||
(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"))
|
||
(patches (search-patches "libmpeg2-arm-private-symbols.patch"
|
||
"libmpeg2-global-symbol-test.patch"))
|
||
(sha256
|
||
(base32
|
||
"1m3i322n2fwgrvbs1yck7g5md1dbg22bhq5xdqmjpz5m7j4jxqny"))))
|
||
(inputs
|
||
(list libx11
|
||
libxext
|
||
libxv
|
||
libsm
|
||
libice
|
||
sdl))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://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
|
||
;; There are no tags in the repository, so we take the version number from
|
||
;; the X264_BUILD variable defined in x264.h.
|
||
(let ((version "164")
|
||
(commit "b093bbe7d9bc642c8f24067cbdcc73bb43562eab")
|
||
(revision "0"))
|
||
(package
|
||
(name "libx264")
|
||
(version (git-version version revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://code.videolan.org/videolan/x264.git")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"095pv8y6fqjg8mdvsfk12d0jqgyhip536a6vxhzm7qz8hfp96qhq"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list pkg-config nasm))
|
||
(inputs
|
||
(list config))
|
||
;; 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"
|
||
"--enable-pic"
|
||
|
||
;; On MIPS, we must pass "--disable-asm" or else
|
||
;; configure fails after printing: "You specified a
|
||
;; pre-MSA CPU in your CFLAGS. If you really want
|
||
;; to run on such a CPU, configure with
|
||
;; --disable-asm."
|
||
,@(if (string-prefix? "mips"
|
||
(or (%current-target-system)
|
||
(%current-system)))
|
||
'("--disable-asm")
|
||
'()))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'update-config-scripts
|
||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||
(for-each (lambda (file)
|
||
(install-file
|
||
(search-input-file
|
||
(or native-inputs inputs)
|
||
(string-append "/bin/" file)) "."))
|
||
'("config.guess" "config.sub")))))))
|
||
(home-page "https://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 mkvtoolnix
|
||
(package
|
||
(name "mkvtoolnix")
|
||
(version "52.0.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://mkvtoolnix.download/sources/"
|
||
"mkvtoolnix-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "15y7ahlifsclnkl70wn5w34dil8nwcwcjnw3k2ydqc6dz4vb0j5s"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin
|
||
;; Delete bundled libraries.
|
||
(for-each delete-file-recursively
|
||
'("lib/fmt"
|
||
"lib/libebml"
|
||
"lib/libmatroska"
|
||
"lib/nlohmann-json"
|
||
"lib/pugixml"
|
||
"lib/utf8-cpp"))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out" "gui")) ; "mkvtoolnix-gui" brings the closure size from ~300 MB to 1.5+ GB.
|
||
(inputs
|
||
(list boost
|
||
bzip2
|
||
cmark
|
||
libebml
|
||
file
|
||
flac
|
||
fmt-8
|
||
libdvdread
|
||
libmatroska
|
||
libogg
|
||
libvorbis
|
||
lzo
|
||
pcre2
|
||
pugixml
|
||
qtbase-5
|
||
qtmultimedia-5
|
||
utfcpp
|
||
zlib))
|
||
(native-inputs
|
||
`(("docbook-xsl" ,docbook-xsl)
|
||
("gettext" ,gettext-minimal)
|
||
("googletest" ,googletest)
|
||
("libxslt" ,libxslt)
|
||
("nlohmann-json" ,nlohmann-json)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
("po4a" ,po4a)
|
||
("qttools-5" ,qttools-5)
|
||
("ruby" ,ruby-2.7)))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list (string-append "--with-boost="
|
||
(assoc-ref %build-inputs "boost"))
|
||
(string-append "--with-docbook-xsl-root="
|
||
(assoc-ref %build-inputs "docbook-xsl")
|
||
"/xml/xsl/docbook-xsl-"
|
||
,(package-version docbook-xsl))
|
||
"--enable-update-check=no"
|
||
"--enable-precompiled-headers=no")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-utfcpp-include
|
||
(lambda _
|
||
(substitute* "src/common/strings/utf8.cpp"
|
||
(("<utf8.h>")
|
||
"<utf8cpp/utf8.h>"))))
|
||
(add-after 'unpack 'patch-relative-file-names
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "src/mkvtoolnix-gui/util/settings.cpp"
|
||
(("mkvmerge" match)
|
||
(string-append out "/bin/" match)))
|
||
#t)))
|
||
(add-before 'configure 'add-googletest
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(symlink (search-input-directory inputs "/include/gtest")
|
||
"lib/gtest")))
|
||
(replace 'build
|
||
(lambda _
|
||
(let ((-j (list "-j" (number->string (parallel-job-count)))))
|
||
(apply invoke "rake" -j))))
|
||
(replace 'check
|
||
(lambda _
|
||
(invoke "rake" "tests/unit")))
|
||
(replace 'install
|
||
(lambda _
|
||
(invoke "rake" "install")))
|
||
(add-after 'install 'post-install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Move the Qt interface to "gui".
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(gui (assoc-ref outputs "gui"))
|
||
(strip-store-dir (lambda (path)
|
||
(substring path (string-prefix-length out path)))))
|
||
(for-each
|
||
(lambda (file)
|
||
(mkdir-p (string-append gui (dirname file)))
|
||
(rename-file (string-append out file)
|
||
(string-append gui file)))
|
||
(append '("/bin/mkvtoolnix-gui"
|
||
"/share/applications/org.bunkus.mkvtoolnix-gui.desktop"
|
||
"/share/metainfo/org.bunkus.mkvtoolnix-gui.appdata.xml"
|
||
"/share/mime/packages/org.bunkus.mkvtoolnix-gui.xml")
|
||
(map strip-store-dir (find-files out "\\.ogg$"))
|
||
(map strip-store-dir (find-files out "mkvtoolnix-gui\\.png$"))
|
||
(map strip-store-dir (find-files out "mkvtoolnix-gui\\.1"))))
|
||
(for-each
|
||
(lambda (file)
|
||
(delete-file-recursively (string-append out file)))
|
||
'("/share/applications"
|
||
"/share/metainfo"
|
||
"/share/mime"
|
||
"/share/mkvtoolnix")))
|
||
#t)))))
|
||
(home-page "https://mkvtoolnix.download")
|
||
(synopsis "Tools to create, alter and inspect Matroska files")
|
||
(description
|
||
"MKVToolNix provides tools for getting information about Matroska files
|
||
(@command{mkvinfo}), extracting tracks/data from Matroska files
|
||
(@command{mkvextract}), and creating Matroska files from other media files
|
||
(@command{mkvmerge}).")
|
||
(license license:gpl2)))
|
||
|
||
(define-public pipe-viewer
|
||
(package
|
||
(name "pipe-viewer")
|
||
(version "0.4.8")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri
|
||
(git-reference
|
||
(url "https://github.com/trizen/pipe-viewer")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0x5jq9vr6qr2zckz509wscbf3gblifcksf7vpzq9iy3jma5fnmkc"))))
|
||
(build-system perl-build-system)
|
||
(arguments
|
||
`(#:imported-modules
|
||
((guix build copy-build-system)
|
||
,@%perl-build-system-modules)
|
||
#:modules
|
||
(((guix build copy-build-system)
|
||
#:prefix copy:)
|
||
(guix build perl-build-system)
|
||
(guix build utils)
|
||
(srfi srfi-26))
|
||
#:module-build-flags
|
||
(list
|
||
"--gtk3")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-source
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* (find-files "lib" "\\.pm$")
|
||
(("\"yt-dlp\"")
|
||
(format #f "\"~a/bin/yt-dlp\""
|
||
(assoc-ref inputs "yt-dlp"))))
|
||
(substitute* (find-files "bin" ".*-viewer$")
|
||
(("'ffmpeg'")
|
||
(format #f "'~a/bin/ffmpeg'"
|
||
(assoc-ref inputs "ffmpeg")))
|
||
(("'wget'")
|
||
(format #f "'~a/bin/wget'"
|
||
(assoc-ref inputs "wget")))
|
||
(("'xdg-open'")
|
||
(format #f "'~a/bin/xdg-open'"
|
||
(assoc-ref inputs "xdg-utils")))
|
||
(("'yt-dlp'")
|
||
(format #f "'~a/bin/yt-dlp'"
|
||
(assoc-ref inputs "yt-dlp"))))))
|
||
(add-after 'install 'install-xdg
|
||
(lambda args
|
||
(apply (assoc-ref copy:%standard-phases 'install)
|
||
#:install-plan
|
||
'(("share/icons" "share/pixmaps")
|
||
("share" "share/applications"
|
||
#:include-regexp ("\\.desktop$")))
|
||
args)))
|
||
(add-after 'install-xdg 'wrap-programs
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin-dir (string-append out "/bin/"))
|
||
(site-dir (string-append out "/lib/perl5/site_perl/"))
|
||
(perl-lib (getenv "PERL5LIB"))
|
||
(gi-typelib (getenv "GI_TYPELIB_PATH")))
|
||
(for-each
|
||
(cut wrap-program <>
|
||
`("PERL5LIB" ":" prefix (,perl-lib ,site-dir))
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib)))
|
||
(find-files bin-dir))))))))
|
||
(native-inputs
|
||
(list perl-module-build perl-test-pod perl-test-simple))
|
||
(inputs
|
||
(list perl-data-dump
|
||
perl-digest-md5
|
||
perl-encode
|
||
ffmpeg
|
||
perl-file-path
|
||
perl-file-sharedir
|
||
perl-getopt-long
|
||
perl-gtk3
|
||
perl-http-message
|
||
perl-json
|
||
perl-json-xs
|
||
perl-libwww
|
||
perl-lwp-protocol-https
|
||
perl-lwp-useragent-cached
|
||
perl-memoize
|
||
perl-mime-base64
|
||
perl-pathtools
|
||
perl-scalar-list-utils
|
||
perl-storable
|
||
perl-term-ansicolor
|
||
perl-term-readline-gnu
|
||
perl-text-parsewords
|
||
perl-text-tabs+wrap
|
||
perl-unicode-linebreak
|
||
perl-uri-escape
|
||
wget
|
||
xdg-utils
|
||
yt-dlp))
|
||
(propagated-inputs
|
||
(list dconf))
|
||
(home-page "https://github.com/trizen/pipe-viewer")
|
||
(synopsis "CLI+GUI YouTube Client")
|
||
(description "Pipe-Viewer is a lightweight application for searching and
|
||
playing videos from YouTube. It parses the YouTube website directly and relies
|
||
on the Invidious instances only as a fallback method.")
|
||
(license license:artistic2.0)))
|
||
|
||
(define-public straw-viewer
|
||
(deprecated-package "straw-viewer" pipe-viewer))
|
||
|
||
(define-public x265
|
||
(package
|
||
(name "x265")
|
||
(version "3.5")
|
||
(outputs '("out" "static"))
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://bitbucket.org/multicoreware/x265_git"
|
||
"/downloads/x265_" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1s6afxj61jdwfjnn70dwiql34fbqsvn6zv10785vmjyar8sk62p7"))
|
||
(patches (search-patches "x265-arm-flags.patch"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin
|
||
(delete-file-recursively "source/compat/getopt")))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
;; XXX: ASM optimization fails on i686-linux, see <https://bugs.gnu.org/41768>.
|
||
(if (string-prefix? "i686" (%current-system))
|
||
'()
|
||
`(("nasm" ,nasm))))
|
||
(arguments
|
||
`(#:tests? #f ; tests are skipped if ENABLE_ASSEMBLY is TRUE.
|
||
#:configure-flags
|
||
;; Ensure position independent code for everyone.
|
||
(list "-DENABLE_PIC=TRUE"
|
||
(string-append "-DCMAKE_INSTALL_PREFIX="
|
||
(assoc-ref %outputs "out")))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'prepare-build
|
||
(lambda _
|
||
(delete-file-recursively "build")
|
||
(chdir "source")
|
||
;; We're not building from a git or mercurial repository,
|
||
;; so help cmake find the version number.
|
||
(substitute* "cmake/Version.cmake"
|
||
(("if\\(X265_TAG_DISTANCE STREQUAL \"0\"\\)")
|
||
(string-append "if(TRUE)\n"
|
||
" set(X265_LATEST_TAG \"" ,version "\")\n")))))
|
||
(add-before 'configure 'build-12-bit
|
||
(lambda* (#:key (configure-flags '()) #:allow-other-keys #:rest args)
|
||
(mkdir "../build-12bit")
|
||
(with-directory-excursion "../build-12bit"
|
||
(apply invoke
|
||
"cmake" "../source"
|
||
,@(if (target-aarch64?)
|
||
'("-DENABLE_ASSEMBLY=OFF")
|
||
'())
|
||
;; Altivec code produces many build errors.
|
||
,@(if (target-ppc64le?)
|
||
'("-DENABLE_ALTIVEC=OFF")
|
||
'())
|
||
"-DHIGH_BIT_DEPTH=ON"
|
||
"-DEXPORT_C_API=OFF"
|
||
"-DENABLE_CLI=OFF"
|
||
"-DMAIN12=ON"
|
||
configure-flags)
|
||
(substitute* (cons "cmake_install.cmake"
|
||
(append
|
||
(find-files "CMakeFiles/x265-shared.dir")
|
||
(find-files "CMakeFiles/x265-static.dir")))
|
||
(("libx265") "libx265_main12"))
|
||
((assoc-ref %standard-phases 'build)))))
|
||
(add-before 'configure 'build-10-bit
|
||
(lambda* (#:key (configure-flags '()) #:allow-other-keys #:rest args)
|
||
(mkdir "../build-10bit")
|
||
(with-directory-excursion "../build-10bit"
|
||
(apply invoke
|
||
"cmake" "../source"
|
||
,@(if (target-aarch64?)
|
||
'("-DENABLE_ASSEMBLY=OFF")
|
||
'())
|
||
;; Altivec code produces many build errors.
|
||
,@(if (target-ppc64le?)
|
||
'("-DENABLE_ALTIVEC=OFF")
|
||
'())
|
||
"-DHIGH_BIT_DEPTH=ON"
|
||
"-DEXPORT_C_API=OFF"
|
||
"-DENABLE_CLI=OFF"
|
||
configure-flags)
|
||
(substitute* (cons "cmake_install.cmake"
|
||
(append
|
||
(find-files "CMakeFiles/x265-shared.dir")
|
||
(find-files "CMakeFiles/x265-static.dir")))
|
||
(("libx265") "libx265_main10"))
|
||
((assoc-ref %standard-phases 'build)))))
|
||
(add-after 'install 'install-more-libs
|
||
(lambda args
|
||
(with-directory-excursion "../build-12bit"
|
||
((assoc-ref %standard-phases 'install)))
|
||
(with-directory-excursion "../build-10bit"
|
||
((assoc-ref %standard-phases 'install)))))
|
||
(add-before 'strip 'move-static-libs
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(static (assoc-ref outputs "static")))
|
||
(mkdir-p (string-append static "/lib"))
|
||
(with-directory-excursion
|
||
(string-append out "/lib")
|
||
(for-each
|
||
(lambda (file)
|
||
(rename-file file
|
||
(string-append static "/lib/" file)))
|
||
(find-files "." "\\.a$")))))))))
|
||
(home-page "https://x265.org/")
|
||
(synopsis "Library for encoding h.265/HEVC video streams")
|
||
(description "x265 is a H.265 / HEVC video encoder application library,
|
||
designed to encode video or images into an H.265 / HEVC encoded bitstream.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libass
|
||
(package
|
||
(name "libass")
|
||
(version "0.15.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/libass/libass/releases/download/"
|
||
version "/libass-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0lwfmdizzrr4gcq3fgw4j8g9pkrqgx6h0f3pgrrnxc07s34kkp8w"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("--disable-static")))
|
||
(native-inputs
|
||
(list pkg-config nasm))
|
||
(propagated-inputs
|
||
`(("freetype" ,freetype)
|
||
("fribidi" ,fribidi)
|
||
("fontconfig" ,fontconfig)
|
||
("harfbuzz" ,harfbuzz)))
|
||
(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"))
|
||
(patches (search-patches "libcaca-CVE-2021-3410-pt1.patch"
|
||
"libcaca-CVE-2021-3410-pt2.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("--disable-static")))
|
||
(native-inputs (list pkg-config))
|
||
(inputs
|
||
(list freeglut
|
||
ftgl
|
||
imlib2
|
||
libx11
|
||
mesa
|
||
ncurses
|
||
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:wtfpl2)))
|
||
|
||
(define-public libdca
|
||
(package
|
||
(name "libdca")
|
||
(version "0.0.7")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://download.videolan.org/pub/videolan/libdca/"
|
||
version "/libdca-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0sjz0s0nrv7jcpvh1i432x3jza0y5yycmzw84cfncb2qby0i62rs"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf automake libtool))
|
||
(home-page "https://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 "/libdv-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1fl96f2xh2slkv1i1ix7kqk576a0ak1d33cylm0mbhm96d0761d3"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list pkg-config))
|
||
(inputs (list libxv))
|
||
(home-page "https://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 libmatroska
|
||
(package
|
||
(name "libmatroska")
|
||
(version "1.6.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://dl.matroska.org/downloads/"
|
||
"libmatroska/libmatroska-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "06h81sxyz2riic0gpzik6ffcnq32wrqphi8c6k55glcdymiimyfs"))))
|
||
(build-system cmake-build-system)
|
||
(inputs
|
||
(list libebml))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "-DBUILD_SHARED_LIBS=YES")
|
||
#:tests? #f)) ; no test suite
|
||
(home-page "https://www.matroska.org")
|
||
(synopsis "C++ library to parse Matroska files (.mkv and .mka)")
|
||
(description
|
||
"Matroska aims to become the standard of multimedia container formats.
|
||
It is based on @dfn{EBML} (Extensible Binary Meta Language), a binary derivative
|
||
of XML. EBML enables the Matroska Development Team to gain significant
|
||
advantages in terms of future format extensibility, without breaking file
|
||
support in old parsers.
|
||
libebml is a C++ library to read and write EBML files.")
|
||
(license license:lgpl2.1)))
|
||
|
||
(define-public libplacebo
|
||
(package
|
||
(name "libplacebo")
|
||
(version "4.208.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://code.videolan.org/videolan/libplacebo.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "161dp5781s74ca3gglaxlmchx7glyshf0wg43w98pl22n1jcm5qk"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
`("-Dopengl=enabled"
|
||
,(string-append "-Dvulkan-registry="
|
||
(assoc-ref %build-inputs "vulkan-headers")
|
||
"/share/vulkan/registry/vk.xml"))))
|
||
(native-inputs
|
||
(list python python-mako pkg-config))
|
||
(inputs
|
||
(list lcms
|
||
libepoxy
|
||
mesa
|
||
shaderc
|
||
vulkan-headers
|
||
vulkan-loader))
|
||
(home-page "https://code.videolan.org/videolan/libplacebo")
|
||
(synopsis "GPU-accelerated image/video processing library")
|
||
(description "libplacebo is, in a nutshell, the core rendering algorithms
|
||
and ideas of mpv rewritten as an independent library. As of today, libplacebo
|
||
contains a large assortment of video processing shaders, focusing on both
|
||
quality and performance.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libva
|
||
(package
|
||
(name "libva")
|
||
(version "2.19.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/intel/libva/releases/download/"
|
||
version "/libva-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "0x113spshsjcqh4pk8rkqq4r8vxf1nm83ym6ppp7zpsrsncfffwn"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list config pkg-config))
|
||
(inputs
|
||
(list libdrm
|
||
libx11
|
||
libxext
|
||
libxfixes
|
||
mesa
|
||
wayland))
|
||
(arguments
|
||
(list
|
||
;; 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="
|
||
(search-input-directory %build-inputs "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=" #$output "/lib/dri"))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'update-config-scripts
|
||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||
(for-each (lambda (file)
|
||
(install-file
|
||
(search-input-file
|
||
(or native-inputs inputs)
|
||
(string-append "/bin/" file)) "."))
|
||
'("config.guess" "config.sub"))))
|
||
(add-before 'build 'fix-dlopen-paths
|
||
(lambda _
|
||
(substitute* "va/drm/va_drm_auth_x11.c"
|
||
(("\"libva-x11\\.so\\.%d\"")
|
||
(string-append "\"" #$output "/lib/libva-x11.so.%d\""))))))))
|
||
(home-page "https://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 libva-utils
|
||
(package
|
||
(name "libva-utils")
|
||
(version "2.18.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/intel/libva-utils/releases/download/"
|
||
version "/libva-utils-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "06n123kvzk51bx5cbhf34i3cfxc8vxmksgh5azycz9fwwcz3n7rm"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--enable-wayland"
|
||
"--enable-x11")))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list libdrm libva libx11 mesa wayland))
|
||
(home-page "https://github.com/intel/libva-utils")
|
||
(synopsis "Collection of testing utilities for VA-API")
|
||
(description
|
||
"This is a collection of utilities to query and test the @acronym{VA-API,
|
||
Video Acceleration API} implemented by the libva library.
|
||
|
||
These tools require a supported graphics chip, driver, and VA-API back end to
|
||
operate properly.")
|
||
(license license:expat)))
|
||
|
||
(define-public ffmpeg
|
||
(package
|
||
(name "ffmpeg")
|
||
(version "6.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"10kh2f4y4isfqj4xpcqqnzk611jh89ywcjyjnq9c2jcv5p18ggjp"))))
|
||
(outputs '("out" "debug"))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(append
|
||
;; XXX: rav1e depends on rust, which currently only works on x86_64.
|
||
;; See also the related configure flag when changing this.
|
||
(if (target-x86-64?) (list rav1e) '())
|
||
(list dav1d
|
||
fontconfig
|
||
freetype
|
||
frei0r-plugins
|
||
gnutls
|
||
opus
|
||
ladspa
|
||
lame
|
||
libaom
|
||
libass
|
||
libbluray
|
||
libcaca
|
||
libcdio-paranoia
|
||
libdrm
|
||
libtheora
|
||
libva
|
||
libvdpau
|
||
libvorbis
|
||
libvpx
|
||
libwebp
|
||
libx11
|
||
libx264
|
||
mesa
|
||
openal
|
||
pulseaudio
|
||
sdl2
|
||
soxr
|
||
speex
|
||
srt
|
||
twolame
|
||
vidstab
|
||
x265
|
||
xvid
|
||
zlib)))
|
||
(native-inputs
|
||
(list bc
|
||
perl
|
||
pkg-config
|
||
texinfo
|
||
speex
|
||
yasm))
|
||
(arguments
|
||
(list
|
||
#:test-target "fate"
|
||
#:configure-flags
|
||
;; possible additional inputs:
|
||
;; --enable-avisynth enable reading of AviSynth script
|
||
;; files [no]
|
||
;; --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-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-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
|
||
#~(list
|
||
#$@(if (target-powerpc?)
|
||
;; These tests fail on powerpc64-le (see:
|
||
;; https://trac.ffmpeg.org/ticket/9604).
|
||
'("--ignore-tests=checkasm-sw_scale,filter-scale2ref_keep_aspect")
|
||
'())
|
||
"--enable-gpl" ;enable optional gpl licensed parts
|
||
"--enable-shared"
|
||
"--enable-frei0r"
|
||
"--enable-fontconfig"
|
||
"--enable-gnutls"
|
||
"--enable-ladspa"
|
||
"--enable-libaom"
|
||
"--enable-libass"
|
||
"--enable-libbluray"
|
||
"--enable-libcaca"
|
||
"--enable-libcdio"
|
||
"--enable-libdav1d"
|
||
"--enable-libfreetype"
|
||
"--enable-libmp3lame"
|
||
"--enable-libopus"
|
||
"--enable-libpulse"
|
||
#$@(if (target-x86-64?)
|
||
'("--enable-librav1e")
|
||
'())
|
||
"--enable-libsoxr"
|
||
"--enable-libspeex"
|
||
"--enable-libsrt"
|
||
"--enable-libtheora"
|
||
"--enable-libtwolame"
|
||
"--enable-libvidstab"
|
||
"--enable-libvorbis"
|
||
"--enable-libvpx"
|
||
"--enable-libwebp"
|
||
"--enable-libxvid"
|
||
"--enable-libx264"
|
||
"--enable-libx265"
|
||
"--enable-openal"
|
||
"--enable-opengl"
|
||
"--enable-libdrm"
|
||
"--enable-vaapi"
|
||
|
||
"--enable-runtime-cpudetect"
|
||
|
||
;; The HTML pages take 7.2 MiB
|
||
"--disable-htmlpages"
|
||
|
||
;; The static libraries are 23 MiB
|
||
"--disable-static"
|
||
|
||
"--disable-stripping"
|
||
|
||
#$@(if (target-riscv64?)
|
||
'("--extra-cflags=-fPIC")
|
||
'())
|
||
|
||
;; Runtime cpu detection is not implemented on
|
||
;; MIPS, so we disable some features.
|
||
"--disable-mips32r2"
|
||
"--disable-mipsdsp"
|
||
"--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 "sh"))))
|
||
(setenv "SHELL" (which "bash"))
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(apply invoke
|
||
"./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)))))))
|
||
(home-page "https://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 ffmpeg-5
|
||
(package
|
||
(inherit ffmpeg)
|
||
(version "5.1.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"0biil32xnshg1b4lwzbdc5rxv1g7lpfsr5gdgaz96wlhzy9ka48v"))))))
|
||
|
||
(define-public ffmpeg-4
|
||
(package
|
||
(inherit ffmpeg-5)
|
||
(version "4.4.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"14xadxm1yaamp216nq09xwasxg5g133v86dbb33mdg5di1zrlhdg"))))
|
||
(inputs (modify-inputs (package-inputs ffmpeg)
|
||
(replace "sdl2" sdl2-2.0)))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments ffmpeg)
|
||
((#:configure-flags flags ''())
|
||
#~(cons "--enable-avresample" #$flags))))))
|
||
|
||
(define-public ffmpeg-3.4
|
||
(package
|
||
(inherit ffmpeg-4)
|
||
(version "3.4.11")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1rijdvcx8xjqwh084qchwz91vcj8wsvb4diax0g8miywpir00ccw"))))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments ffmpeg-4)
|
||
((#:modules modules %gnu-build-system-modules)
|
||
`((srfi srfi-1)
|
||
,@modules))
|
||
((#:configure-flags flags)
|
||
#~(fold delete #$flags
|
||
'("--enable-libdav1d"
|
||
"--enable-libaom"
|
||
"--enable-librav1e"
|
||
"--enable-libsrt")))))
|
||
(inputs (modify-inputs (package-inputs ffmpeg-4)
|
||
(delete "dav1d" "libaom" "rav1e" "srt")))))
|
||
|
||
(define-public ffmpeg-2.8
|
||
(package
|
||
(inherit ffmpeg-3.4)
|
||
(version "2.8.20")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1ivnfqmfnp3zmn1q2dxy4p85427y3r6d3jbnl5kprr7lqckf6rl5"))))
|
||
(arguments
|
||
`(#:tests? #f ; XXX: Enable them later, if required
|
||
#:configure-flags
|
||
(list
|
||
"--disable-static"
|
||
"--enable-shared"
|
||
"--extra-cflags=-DFF_API_OLD_ENCODE_VIDEO -DFF_API_OLD_ENCODE_AUDIO")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key outputs configure-flags #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "sh"))))
|
||
;; configure does not work followed by "SHELL=..." and
|
||
;; "CONFIG_SHELL=..."; set environment variables instead.
|
||
(setenv "SHELL" (which "bash"))
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(apply invoke
|
||
"./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)))))))
|
||
;; FFmpeg 2.8 does support libwebp, but we don't enable it while configuring
|
||
;; the build, and we'd rather not add features to this old package anymore.
|
||
(inputs (modify-inputs (package-inputs ffmpeg-3.4)
|
||
(delete "libwebp")))))
|
||
|
||
(define-public ffmpeg-for-stepmania
|
||
(hidden-package
|
||
(package
|
||
(inherit ffmpeg-4)
|
||
(version "2.1.3")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/stepmania/ffmpeg")
|
||
(commit "eda6effcabcf9c238e4635eb058d72371336e09b")))
|
||
(sha256
|
||
(base32 "1by8rmbva8mfrivdbbkr2gx4kga89zqygkd4cfjl76nr8mdcdamb"))
|
||
(file-name (git-file-name "ffmpeg" version))))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments ffmpeg-4)
|
||
((#:configure-flags flags)
|
||
#~(list "--disable-programs"
|
||
"--disable-doc"
|
||
"--disable-debug"
|
||
"--disable-avdevice"
|
||
"--disable-swresample"
|
||
"--disable-postproc"
|
||
"--disable-avfilter"
|
||
"--disable-shared"
|
||
"--enable-static"))))
|
||
(inputs '()))))
|
||
|
||
(define-public ffmpegthumbnailer
|
||
(package
|
||
(name "ffmpegthumbnailer")
|
||
(version "2.2.2")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/dirkvdb/ffmpegthumbnailer")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1bakbr714j7yxdal1f5iq0gcl4cxggbbgj227ihdh5kvygqlwich"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list ffmpeg-4 libjpeg-turbo libpng gvfs))
|
||
(arguments
|
||
`(#:configure-flags (list "-DENABLE_GIO=ON" "-DENABLE_THUMBNAILER=ON")))
|
||
(home-page "https://github.com/dirkvdb/ffmpegthumbnailer")
|
||
(synopsis "Create thumbnails from video files")
|
||
(description "FFmpegthumbnailer is a lightweight video thumbnailer that
|
||
can be used by file managers to create thumbnails for your video files. The
|
||
thumbnailer uses ffmpeg to decode frames from the video files, so supported
|
||
videoformats depend on the configuration flags of ffmpeg.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public vlc
|
||
(package
|
||
(name "vlc")
|
||
(version "3.0.18")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://download.videolan.org/pub/videolan/vlc/"
|
||
(car (string-split version #\-))
|
||
"/vlc-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1v7db9icrb12yz7banq2wvpjpvqfrj031yj1kf5smn35qcwl82ap"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list flex bison gettext-minimal pkg-config))
|
||
;; FIXME: Add optional inputs once available.
|
||
(inputs
|
||
(list alsa-lib
|
||
avahi
|
||
bash-minimal
|
||
dav1d
|
||
dbus
|
||
eudev
|
||
ffmpeg
|
||
flac
|
||
fontconfig
|
||
freetype
|
||
fribidi
|
||
gnutls
|
||
liba52
|
||
libarchive
|
||
libass
|
||
libavc1394
|
||
libbluray
|
||
libcaca
|
||
libcddb
|
||
libdca
|
||
libdvbpsi
|
||
libdvdnav
|
||
libdvdread
|
||
libebml
|
||
libgcrypt
|
||
libidn
|
||
libkate
|
||
libmad
|
||
libmatroska
|
||
libmicrodns
|
||
libmodplug
|
||
libmpeg2
|
||
libogg
|
||
libpng
|
||
libraw1394
|
||
(librsvg-for-system)
|
||
libsamplerate
|
||
libsecret
|
||
libssh2
|
||
libtheora
|
||
libupnp
|
||
libva
|
||
libvdpau
|
||
libvorbis
|
||
libvpx
|
||
libx264
|
||
libxext
|
||
libxi
|
||
libxinerama
|
||
libxml2
|
||
libxpm
|
||
livemedia-utils
|
||
lua-5.2
|
||
mesa
|
||
opus
|
||
perl
|
||
protobuf
|
||
pulseaudio
|
||
python-wrapper
|
||
qtbase-5
|
||
qtsvg-5
|
||
qtx11extras
|
||
samba
|
||
sdl
|
||
sdl-image
|
||
speex
|
||
speexdsp
|
||
srt
|
||
taglib
|
||
twolame
|
||
unzip
|
||
wayland
|
||
wayland-protocols
|
||
x265
|
||
xcb-util-keysyms))
|
||
(arguments
|
||
`(#:configure-flags
|
||
`("BUILDCC=gcc"
|
||
,(string-append "LDFLAGS=-Wl,-rpath -Wl,"
|
||
(assoc-ref %build-inputs "ffmpeg")
|
||
"/lib")) ;needed for the tests
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-source
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((livemedia-utils (assoc-ref inputs "livemedia-utils")))
|
||
(substitute* "configure"
|
||
(("LIVE555_PREFIX=\\$\\{LIVE555_PREFIX-\"/usr\"\\}")
|
||
(string-append "LIVE555_PREFIX=" livemedia-utils)))
|
||
;; Some of the tests require using the display to test out VLC,
|
||
;; which fails in our sandboxed build system
|
||
(substitute* "test/run_vlc.sh"
|
||
(("./vlc --ignore-config") "echo"))
|
||
#t)))
|
||
(add-after 'strip 'regenerate-plugin-cache
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; The 'install-exec-hook' rule in the top-level Makefile.am
|
||
;; generates 'lib/vlc/plugins/plugins.dat', a plugin cache, using
|
||
;; 'vlc-cache-gen'. This file includes the mtime of the plugins
|
||
;; it references. Thus, we first reset the timestamps of all
|
||
;; these files, and then regenerate the cache such that the
|
||
;; mtimes it includes are always zero instead of being dependent
|
||
;; on the build time.
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(pkglibdir (string-append out "/lib/vlc"))
|
||
(plugindir (string-append pkglibdir "/plugins"))
|
||
(cachegen (string-append pkglibdir "/vlc-cache-gen")))
|
||
;; TODO: Factorize 'reset-timestamps'.
|
||
(for-each (lambda (file)
|
||
(let ((s (lstat file)))
|
||
(unless (eq? (stat:type s) 'symlink)
|
||
(utime file 1 1))))
|
||
(find-files plugindir))
|
||
(invoke cachegen plugindir))))
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(plugin-path (getenv "QT_PLUGIN_PATH")))
|
||
(wrap-program (string-append out "/bin/vlc")
|
||
`("QT_PLUGIN_PATH" ":" prefix (,plugin-path))))
|
||
#t)))))
|
||
(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
|
||
streaming protocols.")
|
||
(properties
|
||
'((release-monitoring-url . "https://download.videolan.org/pub/videolan/vlc/last")))
|
||
(license license:gpl2+)))
|
||
|
||
(define-public mplayer
|
||
(package
|
||
(name "mplayer")
|
||
(version "1.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
|
||
version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"11dzrdb74ayvivcid3giqncrfm98hi4aqvg3kjrwji6bnddxa335"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:tests? #f ; no test target
|
||
#:configure-flags
|
||
#~(list (string-append "--prefix=" #$output)
|
||
"--disable-ffmpeg_a" ; disables bundled ffmpeg
|
||
"--disable-iwmmxt"
|
||
(string-append "--extra-cflags=-I"
|
||
#$(this-package-input "libx11")
|
||
"/include") ; to detect libx11
|
||
|
||
;; 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))))))))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(replace 'configure
|
||
;; configure does not work followed by "SHELL=..." and
|
||
;; "CONFIG_SHELL=..."; set environment variables instead
|
||
(lambda* (#:key (configure-flags '()) #:allow-other-keys)
|
||
(substitute* "configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "sh"))))
|
||
(setenv "SHELL" (which "bash"))
|
||
(setenv "CONFIG_SHELL" (which "bash"))
|
||
(apply invoke "./configure" configure-flags))))))
|
||
;; FIXME: Add additional inputs once available.
|
||
(native-inputs
|
||
(list pkg-config yasm))
|
||
(inputs
|
||
(list alsa-lib
|
||
cdparanoia
|
||
ffmpeg-5
|
||
fontconfig
|
||
freetype
|
||
giflib
|
||
lame
|
||
libass
|
||
libdvdcss
|
||
libdvdnav ; ignored without libdvdread
|
||
libdvdread ; ignored without libdvdnav
|
||
libjpeg-turbo
|
||
libmpeg2
|
||
mpg123 ; audio codec for MP3
|
||
libpng
|
||
libtheora
|
||
libvdpau
|
||
libvorbis
|
||
libx11
|
||
libx264
|
||
libxinerama
|
||
libxv
|
||
libxxf86dga
|
||
mesa
|
||
opus
|
||
perl
|
||
pulseaudio
|
||
python-wrapper
|
||
sdl
|
||
speex
|
||
zlib))
|
||
(home-page "https://www.mplayerhq.hu")
|
||
(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.36.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/mpv-player/mpv")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1ri06h7pv6hrxmxxc618n9hymlgr0gfx38bqq5dcszdgnlashsgk"))))
|
||
(build-system waf-build-system)
|
||
(arguments
|
||
(list
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-file-names
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "player/lua/ytdl_hook.lua"
|
||
(("\"yt-dlp\",")
|
||
(string-append
|
||
"\"" (search-input-file inputs "bin/yt-dlp") "\",")))))
|
||
(add-before 'configure 'build-reproducibly
|
||
(lambda _
|
||
;; Somewhere in the build system library dependencies are enumerated
|
||
;; and passed as linker flags, but the order in which they are added
|
||
;; varies. See <https://github.com/mpv-player/mpv/issues/7855>.
|
||
;; Set PYTHONHASHSEED as a workaround for deterministic results.
|
||
(setenv "PYTHONHASHSEED" "1")))
|
||
(add-before 'configure 'set-up-waf
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(copy-file (search-input-file inputs "bin/waf") "waf")
|
||
(setenv "CC" #$(cc-for-target)))))
|
||
#:configure-flags
|
||
#~(list "--enable-libmpv-shared"
|
||
"--enable-cdda"
|
||
"--enable-dvdnav"
|
||
"--disable-build-date")
|
||
;; No check function defined.
|
||
#:tests? #f))
|
||
(native-inputs
|
||
(list perl ; for zsh completion file
|
||
pkg-config python-docutils))
|
||
;; Missing features: libguess, V4L2.
|
||
(inputs
|
||
(list alsa-lib
|
||
enca
|
||
ffmpeg
|
||
jack-1
|
||
ladspa
|
||
lcms
|
||
libass
|
||
libbluray
|
||
libcaca
|
||
libbs2b
|
||
libcdio-paranoia
|
||
libdvdread
|
||
libdvdnav
|
||
libjpeg-turbo
|
||
libva
|
||
libvdpau
|
||
libx11
|
||
libxext
|
||
libxkbcommon
|
||
libxinerama
|
||
libxpresent
|
||
libxrandr
|
||
libxscrnsaver
|
||
libxv
|
||
;; XXX: lua > 5.2 is not currently supported; see
|
||
;; waftools/checks/custom.py
|
||
lua-5.2
|
||
mesa
|
||
mpg123
|
||
pulseaudio
|
||
python-waf
|
||
rsound
|
||
shaderc
|
||
vulkan-headers
|
||
vulkan-loader
|
||
wayland
|
||
wayland-protocols
|
||
yt-dlp
|
||
zlib))
|
||
(home-page "https://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 smplayer
|
||
(package
|
||
(name "smplayer")
|
||
(version "21.10.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/smplayer/SMPlayer/" version
|
||
"/smplayer-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"12nvcl0cfix1xay9hfi7856vg4lpv8y5b0a22212bsjbvl5g22rc"))))
|
||
(build-system qt-build-system)
|
||
(native-inputs
|
||
(list qttools-5))
|
||
(inputs
|
||
(list bash-minimal qtbase-5 zlib mpv))
|
||
(arguments
|
||
(list #:tests? #false ; no tests
|
||
#:make-flags #~(list (string-append "PREFIX=" #$output)
|
||
(string-append "CC=" #+(cc-for-target))
|
||
;; A KLUDGE to turn off invoking lrelease on the
|
||
;; project for now, because it fails consistently
|
||
;; with "WARNING: Could not find qmake spec
|
||
;; 'default'". See below.
|
||
"LRELEASE=true")
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
;; Due to the above, we must run lrelease separately on each .ts file
|
||
;; (as opposed to running `lrelease-pro smplayer.pro` for the entire
|
||
;; project, as the Makefile does normally without the above kludge).
|
||
(add-after 'build 'compile-ts-files
|
||
(lambda _
|
||
(for-each (lambda (file)
|
||
(invoke "lrelease" file))
|
||
(find-files "./" "\\.ts$"))))
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(mpv (assoc-ref inputs "mpv")))
|
||
(wrap-program (string-append out "/bin/smplayer")
|
||
`("PATH" ":" prefix
|
||
,(list (string-append mpv "/bin"))))))))))
|
||
(home-page "https://www.smplayer.info")
|
||
(synopsis "Complete front-end for MPlayer, a media player")
|
||
(description "SMPlayer is a graphical user interface (GUI) for
|
||
MPlayer, which is capable of playing almost all known video and audio
|
||
formats. Apart from providing access for the most common and useful
|
||
options of MPlayer, SMPlayer adds other interesting features like the
|
||
possibility to play Youtube videos, download subtitles, remember
|
||
the last played position, etc.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public gallery-dl
|
||
(package
|
||
(name "gallery-dl")
|
||
(version "1.25.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/mikf/gallery-dl"
|
||
"/releases/download/v" version "/gallery_dl-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0dshv4j2gmvd2grwcvp1vsrqsji05r13jvw0cqi9srl66kvqbbga"))))
|
||
(build-system python-build-system)
|
||
(inputs (list python-requests ffmpeg))
|
||
(home-page "https://github.com/mikf/gallery-dl")
|
||
(synopsis "Command-line program to download images from several sites")
|
||
(description "Gallery-dl is a command-line program that downloads image
|
||
galleries and collections from several image hosting sites. While this package
|
||
can use youtube-dl or yt-dlp packages to download videos, the focus is more on
|
||
images and image hosting sites.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public mpv-mpris
|
||
(package
|
||
(name "mpv-mpris")
|
||
(version "1.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/hoyon/mpv-mpris")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1vpx4kzyg4pssn1hql2ci4s9x08sdx2v0kphw4aryywnz04yjhzf"))))
|
||
(build-system copy-build-system)
|
||
(arguments
|
||
'(#:install-plan
|
||
'(("mpris.so" "lib/"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'install 'build
|
||
(lambda _
|
||
(setenv "CC" (which "gcc"))
|
||
(invoke "make"))))))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list glib mpv))
|
||
(home-page "https://github.com/hoyon/mpv-mpris")
|
||
(synopsis "MPRIS plugin for mpv")
|
||
(description "This package provides an @dfn{MPRIS} (Media Player Remote
|
||
Interfacing Specification) plugin for the @code{mpv} media player. It implements
|
||
@code{org.mpris.MediaPlayer2} and @code{org.mpris.MediaPlayer2.Player} D-Bus
|
||
interfaces.
|
||
|
||
To load this plugin, specify the following option when starting mpv:
|
||
@code{--script $GUIX_PROFILE/lib/mpris.so} or link it into
|
||
@file{$HOME/.config/mpv/scripts}.")
|
||
(license license:expat)))
|
||
|
||
(define-public libvpx
|
||
(package
|
||
(name "libvpx")
|
||
(version "1.12.0")
|
||
(replacement libvpx/fixed)
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://chromium.googlesource.com/webm/libvpx")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1x12f2bd4jqd532rnixmwvcx8d29yxiacpcxqqh86qczc49la8gm"))
|
||
(patches (search-patches "libvpx-CVE-2016-2818.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags (list "--enable-shared"
|
||
"--disable-static"
|
||
"--as=yasm"
|
||
;; Limit size to avoid CVE-2015-1258
|
||
"--size-limit=16384x16384"
|
||
(string-append "--prefix=" (assoc-ref %outputs "out")))
|
||
#:make-flags (list (string-append "LDFLAGS=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib"))
|
||
#:phases (modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key configure-flags #:allow-other-keys)
|
||
;; The configure script does not understand some of the GNU
|
||
;; options, so we only add the flags specified above.
|
||
(apply invoke "./configure" configure-flags))))
|
||
|
||
;; XXX: The test suite wants to download 871 files from a cloud storage
|
||
;; service (see test/test-data.sha1). It is possible to specify a
|
||
;; custom directory, but there seems to be no tarball with all files.
|
||
#:tests? #f))
|
||
(native-inputs
|
||
(list perl yasm))
|
||
(synopsis "VP8/VP9 video codec")
|
||
(description "libvpx is a codec for the VP8/VP9 video compression format.")
|
||
(license license:bsd-3)
|
||
(home-page "https://www.webmproject.org/")))
|
||
|
||
(define libvpx/fixed
|
||
(package
|
||
(inherit libvpx)
|
||
(source
|
||
(origin
|
||
(inherit (package-source libvpx))
|
||
(patches (search-patches "libvpx-CVE-2016-2818.patch"
|
||
"libvpx-CVE-2023-5217.patch"))))))
|
||
|
||
(define-public orf-dl
|
||
(let ((commit "2dbbe7ef4e0efe0f3c1d59c503108e22d9065999")
|
||
(revision "1"))
|
||
(package
|
||
(name "orf-dl")
|
||
(version (git-version "0" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/tpoechtrager/orf_dl")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1w413miy01cm7rzb5c6wwfdnc2sqv87cvxwikafgrkswpimvdjsk"))))
|
||
(build-system copy-build-system)
|
||
(arguments
|
||
(list #:install-plan #~`(("orf_dl.php" "bin/orf-dl"))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-source
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "orf_dl.php"
|
||
(("ffmpeg")
|
||
(search-input-file inputs "bin/ffmpeg"))))))))
|
||
(inputs (list php ffmpeg))
|
||
(home-page "https://github.com/tpoechtrager/orf_dl")
|
||
(synopsis "Download videos from tvthek.orf.at")
|
||
(description "This package provides a PHP-based command line application
|
||
to download videos from Austria's national television broadcaster.")
|
||
(license license:gpl2+))))
|
||
|
||
(define-public yle-dl
|
||
(package
|
||
(name "yle-dl")
|
||
(version "20230611")
|
||
(source (origin
|
||
;; PyPI release doesn't include tests.
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/aajanki/yle-dl")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"04smlq6cswfp08sjif0cxnall0xbxl3bgly849nm5kg1m33ybmqk"))))
|
||
(build-system pyproject-build-system)
|
||
(arguments
|
||
(list
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'wrap 'wrap-path
|
||
(lambda _
|
||
(wrap-program (string-append #$output "/bin/yle-dl")
|
||
`("PATH" = (,(string-append #$(this-package-input "ffmpeg")
|
||
"/bin")
|
||
,(string-append #$(this-package-input "wget")
|
||
"/bin"))))))
|
||
;; Integration tests require internet access.
|
||
(add-before 'check 'remove-integration-tests
|
||
(lambda _
|
||
(delete-file-recursively "tests/integration"))))))
|
||
(native-inputs
|
||
(list python-flit-core python-pytest python-pytest-runner))
|
||
(inputs (list bash-minimal ffmpeg-5 wget))
|
||
(propagated-inputs
|
||
(list python-attrs
|
||
python-configargparse
|
||
python-lxml
|
||
python-requests
|
||
python-xattr))
|
||
(home-page "https://aajanki.github.io/yle-dl/")
|
||
(synopsis "Download videos from Yle servers")
|
||
(description
|
||
"Yle-dl is a command line program for downloading media files from the
|
||
video streaming services of the Finnish national broadcasting company Yle.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public youtube-dl
|
||
(package
|
||
(name "youtube-dl")
|
||
(version "2021.12.17")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://youtube-dl.org/downloads/latest/"
|
||
"youtube-dl-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1prm84ci1n1kjzhikhrsbxbgziw6br822psjnijm2ibqnz49jfwz"))
|
||
(snippet
|
||
'(begin
|
||
;; Delete the pre-generated files, except for the man page
|
||
;; which requires 'pandoc' to build.
|
||
(for-each delete-file '("youtube-dl"
|
||
;;pandoc is needed to generate
|
||
;;"youtube-dl.1"
|
||
"youtube-dl.bash-completion"
|
||
"youtube-dl.fish"
|
||
"youtube-dl.zsh"))))))
|
||
(build-system python-build-system)
|
||
(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'.
|
||
`(#:tests? #f ; Many tests fail. The test suite can be run with pytest.
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'unpack 'default-to-the-ffmpeg-input
|
||
(lambda _
|
||
;; See <https://issues.guix.gnu.org/43418#5>.
|
||
;; ffmpeg is big but required to request free formats
|
||
;; from, e.g., YouTube so pull it in unconditionally.
|
||
;; Continue respecting the --ffmpeg-location argument.
|
||
(substitute* "youtube_dl/postprocessor/ffmpeg.py"
|
||
(("\\.get\\('ffmpeg_location'\\)" match)
|
||
(format #f "~a or '~a'" match (which "ffmpeg"))))))
|
||
(add-before 'build 'build-generated-files
|
||
(lambda _
|
||
;; Avoid the make targets that require pandoc.
|
||
(invoke "make"
|
||
"PYTHON=python"
|
||
"youtube-dl"
|
||
;;"youtube-dl.1" ; needs pandoc
|
||
"youtube-dl.bash-completion"
|
||
"youtube-dl.zsh"
|
||
"youtube-dl.fish")))
|
||
(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/"))))))
|
||
(add-after 'install 'install-completion
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(zsh (string-append out
|
||
"/share/zsh/site-functions")))
|
||
(mkdir-p zsh)
|
||
(copy-file "youtube-dl.zsh"
|
||
(string-append zsh "/_youtube-dl"))))))))
|
||
(native-inputs
|
||
(list zip))
|
||
(inputs
|
||
(list ffmpeg))
|
||
(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 many more sites.")
|
||
(home-page "https://yt-dl.org")
|
||
(properties '((release-monitoring-url . "https://yt-dl.org/downloads/")))
|
||
(license license:public-domain)))
|
||
|
||
(define-public yt-dlp
|
||
(package/inherit youtube-dl
|
||
(name "yt-dlp")
|
||
(version "2023.09.24")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/yt-dlp/yt-dlp/")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "15ngsg3cadf2bv700fa1k5az5xpsm0wqr0cixbz8fcbhwdflfq6f"))))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments youtube-dl)
|
||
((#:tests? _) (not (%current-target-system)))
|
||
((#:phases phases)
|
||
#~(modify-phases #$phases
|
||
;; See the comment for the corresponding phase in youtube-dl.
|
||
(replace 'default-to-the-ffmpeg-input
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "yt_dlp/postprocessor/ffmpeg.py"
|
||
(("location = self.get_param(.*)$")
|
||
(string-append
|
||
"location = '"
|
||
(dirname (search-input-file inputs "bin/ffmpeg"))
|
||
"'\n")))))
|
||
(replace 'build-generated-files
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(if (assoc-ref inputs "pandoc")
|
||
(invoke "make"
|
||
"PYTHON=python"
|
||
"yt-dlp"
|
||
"yt-dlp.1"
|
||
"completions")
|
||
(invoke "make"
|
||
"PYTHON=python"
|
||
"yt-dlp"
|
||
"completions"))))
|
||
(replace 'fix-the-data-directories
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((prefix (assoc-ref outputs "out")))
|
||
(substitute* "setup.py"
|
||
(("'etc/")
|
||
(string-append "'" prefix "/etc/"))
|
||
(("'share/")
|
||
(string-append "'" prefix "/share/"))))))
|
||
(delete 'install-completion)
|
||
(replace 'check
|
||
(lambda* (#:key tests? #:allow-other-keys)
|
||
(when tests?
|
||
(invoke "pytest" "-k" "not download"))))))))
|
||
(inputs (modify-inputs (package-inputs youtube-dl)
|
||
(append python-brotli
|
||
python-certifi
|
||
python-mutagen
|
||
python-pycryptodomex
|
||
python-websockets)))
|
||
(native-inputs
|
||
(append
|
||
;; To generate the manpage.
|
||
(if (supported-package? pandoc)
|
||
(list pandoc)
|
||
'())
|
||
(list python-pytest zip)))
|
||
(description
|
||
"yt-dlp is a small command-line program to download videos from
|
||
YouTube.com and many more sites. It is a fork of youtube-dl with a
|
||
focus on adding new features while keeping up-to-date with the
|
||
original project.")
|
||
(properties '((release-monitoring-url . "https://pypi.org/project/yt-dlp/")))
|
||
(home-page "https://github.com/yt-dlp/yt-dlp")))
|
||
|
||
(define-public you-get
|
||
(package
|
||
(name "you-get")
|
||
(version "0.4.1555")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/soimort/you-get")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0gn86i6nfsw395r9a3i88nv2g08s5bgjps7w4qawb9gvk4h7zqap"))))
|
||
(build-system python-build-system)
|
||
(inputs
|
||
(list ffmpeg)) ; for multi-part and >=1080p videos
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'qualify-input-references
|
||
;; Explicitly invoke the input ffmpeg, instead of whichever one
|
||
;; happens to be in the user's $PATH at run time.
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((ffmpeg (search-input-file inputs "/bin/ffmpeg")))
|
||
(substitute* "src/you_get/processor/ffmpeg.py"
|
||
;; Don't blindly replace all occurrences of ‘'ffmpeg'’: the
|
||
;; same string is also used when sniffing ffmpeg's output.
|
||
(("(FFMPEG == |\\()'ffmpeg'" _ prefix)
|
||
(string-append prefix "'" ffmpeg "'")))))))
|
||
#:tests? #f)) ; XXX some tests need Internet access
|
||
(synopsis "Download videos, audio, or images from Web sites")
|
||
(description
|
||
"You-Get is a command-line utility to download media contents (videos,
|
||
audio, images) from the Web. It can use either mpv or vlc for playback.")
|
||
(home-page "https://you-get.org/")
|
||
(license license:expat)))
|
||
|
||
(define-public youtube-viewer
|
||
(package
|
||
(name "youtube-viewer")
|
||
(version "3.8.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/trizen/youtube-viewer")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0xdybiihd66b79rbsawjhxs9snm78gld5ziz3gnp8vdcw0bshwz7"))))
|
||
(build-system perl-build-system)
|
||
(native-inputs
|
||
(list perl-module-build))
|
||
(inputs
|
||
(list perl-data-dump
|
||
perl-file-sharedir
|
||
perl-gtk2
|
||
perl-json
|
||
perl-json-xs
|
||
perl-libwww
|
||
perl-lwp-protocol-https
|
||
perl-lwp-useragent-cached
|
||
perl-memoize
|
||
perl-mozilla-ca
|
||
perl-term-readline-gnu
|
||
perl-unicode-linebreak
|
||
xdg-utils
|
||
;; Some videos play without youtube-dl, but others silently fail to.
|
||
youtube-dl))
|
||
(arguments
|
||
`(#:modules ((guix build perl-build-system)
|
||
(guix build utils)
|
||
(srfi srfi-26))
|
||
;; gtk-2/3 variants are both installed by default but the gtk3 variant
|
||
;; is broken without perl-gtk3.
|
||
#:module-build-flags '("--gtk2")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'refer-to-inputs
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "lib/WWW/YoutubeViewer.pm"
|
||
(("'youtube-dl'")
|
||
(format #f "'~a/bin/youtube-dl'"
|
||
(assoc-ref inputs "youtube-dl"))))
|
||
(substitute* '("bin/gtk2-youtube-viewer"
|
||
"bin/gtk3-youtube-viewer")
|
||
(("'xdg-open'")
|
||
(format #f "'~a/bin/xdg-open'"
|
||
(assoc-ref inputs "xdg-utils"))))
|
||
#t))
|
||
(add-after 'install 'install-desktop
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(sharedir (string-append out "/share")))
|
||
(install-file "share/gtk-youtube-viewer.desktop"
|
||
(string-append sharedir "/applications"))
|
||
(install-file "share/icons/gtk-youtube-viewer.png"
|
||
(string-append sharedir "/pixmaps"))
|
||
#t)))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin-dir (string-append out "/bin/"))
|
||
(site-dir (string-append out "/lib/perl5/site_perl/"))
|
||
(lib-path (getenv "PERL5LIB")))
|
||
(for-each (cut wrap-program <>
|
||
`("PERL5LIB" ":" prefix (,lib-path ,site-dir)))
|
||
(find-files bin-dir))
|
||
#t))))))
|
||
(synopsis
|
||
"Lightweight application for searching and streaming videos from YouTube")
|
||
(description
|
||
"Youtube-viewer searches and plays YouTube videos in a native player.
|
||
It comes with various search options; it can search for videos, playlists
|
||
and/or channels. The videos are streamed directly in a selected video player
|
||
at the best resolution (customizable) and with closed-captions (if available).
|
||
Both command-line and GTK2 interface are available.")
|
||
(home-page "https://github.com/trizen/youtube-viewer")
|
||
(license license:perl-license)))
|
||
|
||
(define-public libbluray
|
||
(package
|
||
(name "libbluray")
|
||
(version "1.0.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.videolan.org/videolan/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1zxfnw1xbghcj7b3zz5djndv6gwssxda19cz1lrlqrkg8577r7kd"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--disable-bdjava-jar"
|
||
"--disable-static")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'refer-to-libxml2-in-.pc-file
|
||
;; Avoid the need to propagate libxml2 by referring to it
|
||
;; directly, as is already done for fontconfig & freetype.
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((libxml2 (assoc-ref inputs "libxml2")))
|
||
(substitute* "configure"
|
||
((" libxml-2.0") ""))
|
||
(substitute* "src/libbluray.pc.in"
|
||
(("^Libs.private:" field)
|
||
(string-append field " -L" libxml2 "/lib -lxml2")))
|
||
#t)))
|
||
(add-before 'build 'fix-dlopen-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((libaacs (assoc-ref inputs "libaacs"))
|
||
(libbdplus (assoc-ref inputs "libbdplus")))
|
||
(substitute* "src/libbluray/disc/aacs.c"
|
||
(("\"libaacs\"")
|
||
(string-append "\"" libaacs "/lib/libaacs\"")))
|
||
(substitute* "src/libbluray/disc/bdplus.c"
|
||
(("\"libbdplus\"")
|
||
(string-append "\"" libbdplus "/lib/libbdplus\"")))
|
||
#t))))))
|
||
(native-inputs (list pkg-config))
|
||
(inputs
|
||
`(("fontconfig" ,fontconfig)
|
||
("freetype" ,freetype)
|
||
("libaacs" ,libaacs)
|
||
("libbdplus" ,libbdplus)
|
||
("libxml2" ,libxml2)))
|
||
(home-page "https://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 "6.0.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.videolan.org/videolan/"
|
||
"libdvdread/" version "/"
|
||
"libdvdread-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1c7yqqn67m3y3n7nfrgrnzz034zjaw5caijbwbfrq89v46ph257r"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--with-libdvdcss=yes")))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(propagated-inputs
|
||
(list libdvdcss))
|
||
(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 dvdauthor
|
||
(package
|
||
(name "dvdauthor")
|
||
(version "0.7.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/dvdauthor/dvdauthor-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1drfc47hikfzc9d7hjk34rw10iqw01d2vwmn91pv73ppx4nsj81h"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(list libdvdread libpng imagemagick libxml2 freetype))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(synopsis "Generates a DVD-Video movie from a MPEG-2 stream")
|
||
(description "@command{dvdauthor} will generate a DVD-Video movie from a
|
||
MPEG-2 stream containing VOB packets.")
|
||
(home-page "https://dvdauthor.sourceforge.net")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public libdvdnav
|
||
(package
|
||
(name "libdvdnav")
|
||
(version "6.0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.videolan.org/videolan/"
|
||
"libdvdnav/" version "/"
|
||
"libdvdnav-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0cv7j8irsv1n2dadlnhr6i1b8pann2ah6xpxic41f04my6ba6rp5"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list 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 libdvdcss
|
||
(package
|
||
(name "libdvdcss")
|
||
(version "1.4.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://download.videolan.org/pub/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0y800y33spblb20s1lsjbaiybknmwwmmiczmjqx5s760blpwjg13"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://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.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://files.dthompson.us/srt2vtt/srt2vtt-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1ravl635x81fcai4h2xnsn926i69pafgr6zkghq6319iprkw8ffv"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-srt2vtt
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(version ,(let ((v (package-version guile-3.0)))
|
||
(string-append (car (string-split v #\.))
|
||
".0")))
|
||
(site (string-append out "/share/guile/site/" version))
|
||
(compiled (string-append
|
||
out "/lib/guile/" version
|
||
"/site-ccache")))
|
||
(wrap-program (string-append bin "/srt2vtt")
|
||
`("GUILE_LOAD_PATH" ":" prefix (,site))
|
||
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,compiled)))))))))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list guile-3.0))
|
||
(synopsis "SubRip to WebVTT subtitle converter")
|
||
(description "srt2vtt converts SubRip formatted subtitles to WebVTT format
|
||
for use with HTML5 video.")
|
||
(home-page "https://dthompson.us/projects/srt2vtt.html")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public avidemux
|
||
(package
|
||
(name "avidemux")
|
||
(version "2.7.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/avidemux/avidemux/" version "/"
|
||
"avidemux_" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"00blv5455ry3bb86zyzk1xmq3rbqmbif62khc0kq3whza97l12k2"))
|
||
(patches (search-patches "avidemux-install-to-lib.patch"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
`(("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python-wrapper)
|
||
("qttools-5" ,qttools-5)
|
||
("yasm" ,yasm)))
|
||
;; 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)
|
||
("libaom" ,libaom)
|
||
("libva" ,libva)
|
||
("libvdpau" ,libvdpau)
|
||
("libvorbis" ,libvorbis)
|
||
("libvpx" ,libvpx)
|
||
("libxv" ,libxv)
|
||
("pulseaudio" ,pulseaudio)
|
||
("qtbase" ,qtbase-5)
|
||
("sqlite" ,sqlite)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
`(#:tests? #f ; no check target
|
||
#:phases
|
||
;; Make sure files inside the included ffmpeg tarball are
|
||
;; patch-shebanged.
|
||
(let ((ffmpeg "ffmpeg-4.2.4"))
|
||
(modify-phases %standard-phases
|
||
(add-before 'patch-source-shebangs 'unpack-ffmpeg
|
||
(lambda _
|
||
(with-directory-excursion "avidemux_core/ffmpeg_package"
|
||
(invoke "tar" "xf" (string-append ffmpeg ".tar.bz2"))
|
||
(delete-file (string-append ffmpeg ".tar.bz2")))
|
||
#t))
|
||
(add-after 'patch-source-shebangs 'repack-ffmpeg
|
||
(lambda _
|
||
(with-directory-excursion "avidemux_core/ffmpeg_package"
|
||
(substitute* (string-append ffmpeg "/configure")
|
||
(("#! /bin/sh") (string-append "#!" (which "sh"))))
|
||
(invoke "tar" "cjf" (string-append ffmpeg ".tar.bz2") ffmpeg
|
||
;; avoid non-determinism in the archive
|
||
"--sort=name" "--mtime=@0"
|
||
"--owner=root:0" "--group=root:0")
|
||
(delete-file-recursively ffmpeg))
|
||
#t))
|
||
(replace 'configure
|
||
(lambda _
|
||
;; Copy-paste settings from the cmake build system.
|
||
(setenv "CMAKE_LIBRARY_PATH" (getenv "LIBRARY_PATH"))
|
||
(setenv "CMAKE_INCLUDE_PATH" (getenv "C_INCLUDE_PATH"))
|
||
#t))
|
||
(replace 'build
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(lib (string-append out "/lib"))
|
||
(top (getcwd))
|
||
(build_component
|
||
(lambda* (component srcdir #:optional (args '()))
|
||
(let ((builddir (string-append "build_" component)))
|
||
(mkdir builddir)
|
||
(with-directory-excursion builddir
|
||
(apply invoke "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 "../" srcdir)
|
||
"-DENABLE_QT5=True"
|
||
args)
|
||
(invoke "make" "-j"
|
||
(number->string (parallel-job-count)))
|
||
(invoke "make" "install"))))))
|
||
(mkdir out)
|
||
(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"))
|
||
#t)))
|
||
(delete 'install)))))
|
||
(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.")
|
||
(supported-systems '("x86_64-linux" "i686-linux" "armhf-linux"))
|
||
;; Software with various licenses is included, see License.txt.
|
||
(license license:gpl2+)))
|
||
|
||
(define-public vapoursynth
|
||
(package
|
||
(name "vapoursynth")
|
||
(version "61")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/vapoursynth/vapoursynth")
|
||
(commit (string-append "R" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0v0dp3hydqzam0dp2d9zbrccrsvhy6n61s4v7ca2qbw69vpsm594"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(site (string-append out "/lib/python"
|
||
,(version-major+minor
|
||
(package-version python))
|
||
"/site-packages")))
|
||
(wrap-program (string-append out "/bin/vspipe")
|
||
`("PYTHONPATH" ":" = (,site)))))))))
|
||
(native-inputs
|
||
(list autoconf
|
||
automake
|
||
python-cython
|
||
libtool
|
||
pkg-config
|
||
yasm))
|
||
(inputs
|
||
(list ffmpeg libass python tesseract-ocr zimg))
|
||
(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.")
|
||
;; src/core/cpufeatures only allows x86, ARM or PPC
|
||
(supported-systems (fold delete %supported-systems
|
||
'("mips64el-linux" "aarch64-linux")))
|
||
;; As seen from the source files.
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public xvid
|
||
(package
|
||
(name "xvid")
|
||
(version "1.3.7")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://downloads.xvid.com/downloads/xvidcore-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1xyg3amgg27zf7188kss7y248s0xhh1vv8rrk0j9bcsd5nasxsmf"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list yasm))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'pre-configure
|
||
(lambda _
|
||
(chdir "build/generic")
|
||
(substitute* "configure"
|
||
(("#! /bin/sh") (string-append "#!" (which "sh"))))
|
||
#t)))
|
||
#:tests? #f)) ; no test suite
|
||
(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 streamlink
|
||
(package
|
||
(name "streamlink")
|
||
(version "3.2.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "streamlink" version))
|
||
(sha256
|
||
(base32
|
||
"09nrspga15svzi0hmakcarbciav0nzf30hg1ff53gia473cd4w4p"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(replace 'check
|
||
(lambda* (#:key tests? #:allow-other-keys)
|
||
(when tests?
|
||
(invoke "python" "-m" "pytest")))))))
|
||
(native-inputs
|
||
(list python-freezegun python-mock python-pytest
|
||
python-requests-mock))
|
||
(propagated-inputs
|
||
(list python-pysocks
|
||
python-websocket-client
|
||
python-isodate
|
||
python-lxml
|
||
python-pycountry
|
||
python-pycryptodome
|
||
python-requests
|
||
python-urllib3))
|
||
(home-page "https://github.com/streamlink/streamlink")
|
||
(synopsis "Extract streams from various services")
|
||
(description "Streamlink is command-line utility that extracts streams
|
||
from sites like Twitch.tv and pipes them into a video player of choice.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public twitchy
|
||
(let ((commit "9beb36d80b16662414129693e74fa3a2fd97554e")) ; 3.4 has no tag
|
||
(package
|
||
(name "twitchy")
|
||
(version (git-version "3.4" "1" commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/BasioMeusPuga/twitchy")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0di03h1j9ipp2bbnxxlxz07v87icyg2hmnsr4s7184z5ql8kpzr7"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "twitchy/twitchy_play.py"
|
||
(("\"streamlink ")
|
||
(string-append "\"" (assoc-ref inputs "streamlink")
|
||
"/bin/streamlink ")))
|
||
#t))
|
||
(add-before 'check 'check-setup
|
||
(lambda _
|
||
(setenv "HOME" (getcwd)) ;Needs to write to ‘$HOME’.
|
||
#t))
|
||
(add-after 'install 'install-rofi-plugin
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(install-file "plugins/rofi-twitchy"
|
||
(string-append (assoc-ref outputs "out")
|
||
"/bin"))
|
||
#t)))))
|
||
(inputs
|
||
(list python-requests streamlink))
|
||
(home-page "https://github.com/BasioMeusPuga/twitchy")
|
||
(synopsis "Command-line interface for Twitch.tv")
|
||
(description
|
||
"This package provides a command-line interface for Twitch.tv")
|
||
(license license:gpl3+))))
|
||
|
||
(define-public mlt
|
||
(package
|
||
(name "mlt")
|
||
(version "7.20.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/mltframework/mlt")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1dc09j8yvis6ilba5a13qicf6wbgxnzwllab6h48kzfl1lc0n8g7"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
(list
|
||
#:tests? #f ;requires "Kwalify"
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-before 'configure 'override-LDFLAGS
|
||
(lambda _
|
||
(setenv "LDFLAGS"
|
||
(string-append "-Wl,-rpath=" #$output "/lib"))))
|
||
(add-after 'install 'wrap-executable
|
||
(lambda _
|
||
(let* ((frei0r #$(this-package-input "frei0r-plugins"))
|
||
(ladspa #$(this-package-input "ladspa"))
|
||
;; In MLT 7, 'melt' symlinks to 'melt-7'. Try to keep
|
||
;; compatibility with MLT 6 where it's only 'melt'.
|
||
(major #$(version-major version))
|
||
(exec (if (file-exists?
|
||
(string-append #$output "/bin/melt-" major))
|
||
(string-append "melt-" major)
|
||
"melt")))
|
||
(wrap-program (string-append #$output "/bin/" exec)
|
||
`("FREI0R_PATH" ":" =
|
||
(,(string-append frei0r "/lib/frei0r-1")))
|
||
`("LADSPA_PATH" ":" =
|
||
(,(string-append ladspa "/lib/ladspa"))))))))))
|
||
(inputs
|
||
(list alsa-lib
|
||
`(,alsa-plugins "pulseaudio")
|
||
bash-minimal
|
||
ffmpeg
|
||
fftw
|
||
frei0r-plugins
|
||
gdk-pixbuf
|
||
gtk+
|
||
libxml2
|
||
jack-1
|
||
ladspa
|
||
libebur128
|
||
libexif
|
||
libvorbis
|
||
rubberband
|
||
libsamplerate
|
||
pulseaudio
|
||
qtbase-5
|
||
qtsvg-5
|
||
rtaudio
|
||
sdl2
|
||
sdl2-image
|
||
sox
|
||
vidstab))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(home-page "https://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 mlt-6
|
||
(package
|
||
(inherit mlt)
|
||
(name "mlt")
|
||
(version "6.26.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/mltframework/mlt")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1gz79xvs5jrzqhwhfk0dqdd3xiavnjp4q957h7nb02rij32byb39"))))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list (string-append "-DGTK2_GDKCONFIG_INCLUDE_DIR="
|
||
(assoc-ref %build-inputs "gtk+")
|
||
"/lib/gtk-2.0/include")
|
||
(string-append "-DGTK2_GLIBCONFIG_INCLUDE_DIR="
|
||
(assoc-ref %build-inputs "glib")
|
||
"/lib/glib-2.0/include"))
|
||
,@(package-arguments mlt)))
|
||
(inputs
|
||
(modify-inputs (package-inputs mlt)
|
||
(replace "ffmpeg" ffmpeg-4)
|
||
(replace "gtk+" gtk+-2)))))
|
||
|
||
(define-public v4l-utils
|
||
(package
|
||
(name "v4l-utils")
|
||
(version "1.22.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://linuxtv.org/downloads/v4l-utils"
|
||
"/v4l-utils-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0cafp64b7ylxhjnp47hxm59r0b0v5hc2gc23qh2s2k5463lgpik5"))))
|
||
(build-system gnu-build-system)
|
||
;; Separate graphical tools in order to save almost 1 GiB on the closure
|
||
;; for the common case.
|
||
(outputs '("out" "gui"))
|
||
(arguments
|
||
'(#:configure-flags
|
||
(list "--disable-static"
|
||
(string-append "--with-udevdir="
|
||
(assoc-ref %outputs "out")
|
||
"/lib/udev"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'split
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gui (assoc-ref outputs "gui")))
|
||
(mkdir-p (string-append gui "/bin"))
|
||
(mkdir-p (string-append gui "/share/man/man1"))
|
||
(mkdir-p (string-append gui "/share/applications"))
|
||
(for-each
|
||
(lambda (prog)
|
||
(for-each
|
||
(lambda (file)
|
||
(rename-file (string-append out file)
|
||
(string-append gui file)))
|
||
(list
|
||
(string-append "/bin/" prog)
|
||
(string-append "/share/man/man1/" prog ".1")
|
||
(string-append "/share/applications/" prog ".desktop"))))
|
||
'("qv4l2" "qvidcap"))
|
||
(copy-recursively (string-append out "/share/icons")
|
||
(string-append gui "/share/icons"))
|
||
(delete-file-recursively (string-append out "/share/icons"))
|
||
(rmdir (string-append out "/share/applications"))
|
||
#t))))))
|
||
(native-inputs
|
||
(list perl pkg-config))
|
||
(inputs
|
||
(list alsa-lib
|
||
glu
|
||
libjpeg-turbo
|
||
libx11
|
||
qtbase-5
|
||
eudev))
|
||
(synopsis "Realtime video capture utilities for Linux")
|
||
(description "The v4l-utils provide a series of libraries and utilities to
|
||
be used for realtime video capture via Linux-specific APIs.")
|
||
(home-page "https://linuxtv.org/wiki/index.php/V4l-utils")
|
||
;; libv4l2 is LGPL2.1+, while utilities are GPL2 only.
|
||
(license (list license:lgpl2.1+ license:gpl2))))
|
||
|
||
(define-public obs
|
||
(package
|
||
(name "obs")
|
||
(version "29.0.2")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/obsproject/obs-studio")
|
||
(commit version)
|
||
(recursive? #t)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1ijn19wy52fa7ahr29v1rzvh6j0qr7i5xl129m6s9c644f7i51ac"))
|
||
(patches
|
||
(search-patches "obs-modules-location.patch"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
(list
|
||
#:configure-flags
|
||
#~(list (string-append "-DOBS_VERSION_OVERRIDE=" #$version)
|
||
"-DENABLE_UNIT_TESTS=ON"
|
||
"-DENABLE_NEW_MPEGTS_OUTPUT=OFF"
|
||
"-DENABLE_AJA=OFF"
|
||
;; Browser plugin requires cef, but it is not packaged yet.
|
||
;; <https://bitbucket.org/chromiumembedded/cef/src/master/>
|
||
"-DBUILD_BROWSER=OFF")
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* _
|
||
(let ((plugin-path (getenv "QT_PLUGIN_PATH")))
|
||
(wrap-program (string-append #$output "/bin/obs")
|
||
`("QT_PLUGIN_PATH" ":" prefix (,plugin-path)))))))))
|
||
(native-search-paths
|
||
(list (search-path-specification
|
||
(variable "OBS_PLUGINS_DIRECTORY")
|
||
(separator #f) ;single entry
|
||
(files '("lib/obs-plugins")))
|
||
(search-path-specification
|
||
(variable "OBS_PLUGINS_DATA_DIRECTORY")
|
||
(separator #f) ;single entry
|
||
(files '("share/obs/obs-plugins")))))
|
||
(native-inputs
|
||
(list cmocka pkg-config swig))
|
||
(inputs
|
||
(list
|
||
alsa-lib
|
||
bash-minimal
|
||
curl
|
||
eudev
|
||
ffmpeg-4
|
||
fontconfig
|
||
freetype
|
||
glib
|
||
jack-1
|
||
jansson
|
||
libglvnd
|
||
libva
|
||
libx264
|
||
libxcomposite
|
||
libxkbcommon
|
||
luajit
|
||
mbedtls-apache
|
||
mesa
|
||
pciutils
|
||
pipewire
|
||
pulseaudio
|
||
python
|
||
qtbase-5
|
||
qtsvg-5
|
||
qtx11extras
|
||
qtwayland-5
|
||
speexdsp
|
||
v4l-utils
|
||
vlc
|
||
wayland
|
||
wayland-protocols
|
||
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+)))
|
||
|
||
(define-public obs-looking-glass
|
||
(package
|
||
(name "obs-looking-glass")
|
||
(version "B5")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/gnif/LookingGlass")
|
||
(commit version)
|
||
(recursive? #t)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"09mn544x5hg1z31l92ksk7fi7yj9r8xdk0dcl9fk56ivcr452ylm"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
(list
|
||
#:tests? #f ; no test target
|
||
#:make-flags #~(list "CC=gcc")
|
||
#:configure-flags
|
||
#~(list "-DGLOBAL_INSTALLATION=ON"
|
||
"-DUSE_CMAKE_LIBDIR=ON"
|
||
(string-append "-DOBS_PLUGIN_PREFIX="
|
||
#$output "/lib/obs-plugins"))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-before 'configure 'chdir-to-source
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(chdir "obs")
|
||
#t))
|
||
(add-after 'chdir-to-source 'substitute-output
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(substitute* "CMakeLists.txt"
|
||
(("\\$\\{OBS_PLUGIN_PREFIX\\}/\\$\\{CMAKE_PROJECT_NAME\\}/bin/\\$\\{OBS_PLUGIN_DIR\\}")
|
||
(string-append (string-append #$output "/lib/obs-plugins"))))
|
||
#t)))))
|
||
(native-inputs (list libconfig nettle pkg-config))
|
||
(inputs
|
||
(list bash-minimal
|
||
fontconfig
|
||
freetype
|
||
glu
|
||
gmp
|
||
libglvnd
|
||
libiberty
|
||
libx11
|
||
libxcursor
|
||
libxfixes
|
||
libxi
|
||
libxinerama
|
||
libxkbcommon
|
||
libxpresent
|
||
libxrandr
|
||
libxscrnsaver
|
||
mesa
|
||
obs
|
||
openssl
|
||
sdl2
|
||
sdl2-ttf
|
||
spice-protocol
|
||
wayland
|
||
wayland-protocols
|
||
`(,zlib "static")))
|
||
(home-page "https://looking-glass.io/")
|
||
(synopsis "Looking Glass video feed to OBS as a video source")
|
||
(description "This OBS plugin allows a Looking Glass video feed to OBS as
|
||
a video source with the included OBS plugin. This provides a lower-latency
|
||
alternative to capturing the Looking Glass client window with a Screen or
|
||
Window Capture source.
|
||
|
||
This may help improve your viewers watching experience, and allows you to use
|
||
your host privately.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public obs-websocket
|
||
;; Functionality was merged into OBS.
|
||
(deprecated-package "obs-websocket" obs))
|
||
|
||
(define-public obs-wlrobs
|
||
(package
|
||
(name "obs-wlrobs")
|
||
(version "1.1")
|
||
(source
|
||
(origin
|
||
(method hg-fetch)
|
||
(uri (hg-reference
|
||
(url "https://hg.sr.ht/~scoopta/wlrobs")
|
||
(changeset (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1whdb2ykisz50qw19nv1djw5qp17rpnpkc8s8470ja8iz894mmwd"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(propagated-inputs `() )
|
||
(inputs (list obs
|
||
`(,libx11 "out") wayland wayland-protocols))
|
||
(home-page "https://hg.sr.ht/~scoopta/wlrobs")
|
||
(synopsis "OBS plugin for Wayland (wlroots) screen capture")
|
||
(description
|
||
"This OBS plugin allows you to capture the screen on wlroots-based
|
||
Wayland compositors.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public obs-vkcapture
|
||
(package
|
||
(name "obs-vkcapture")
|
||
(version "1.3.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/nowrep/obs-vkcapture")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"18v15bfzm31qkpwipvbqgzak4z6f2hhq6mnz2bvhwnv57whirln6"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:tests? #f)) ;no tests
|
||
(native-inputs (list pkg-config))
|
||
(inputs (list mesa
|
||
obs
|
||
libx11
|
||
libxcb
|
||
vulkan-headers
|
||
vulkan-loader
|
||
wayland))
|
||
(home-page "https://github.com/nowrep/obs-vkcapture")
|
||
(synopsis "OBS plugin for Vulkan/OpenGL game capture on Linux")
|
||
(description
|
||
"This OBS plugin lets you record an OpenGL or Vulkan
|
||
game by adding the Game Capture source to your scene and starting an
|
||
application with @code{obs-gamecapture}.")
|
||
(license license:gpl2)))
|
||
|
||
(define-public libvdpau
|
||
(package
|
||
(name "libvdpau")
|
||
(version "1.5")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.freedesktop.org/vdpau/libvdpau.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1zfbh5q9adzlydpgwq7hl5w1j2b29j7zns6dxf9fp9pvkj23fz5l"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list `(,libx11 "out") libxext xorgproto))
|
||
(home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
|
||
(synopsis "Video Decode and Presentation API")
|
||
(description "VDPAU is the Video Decode and Presentation API for UNIX. It
|
||
provides an interface to video decode acceleration and presentation hardware
|
||
present in modern GPUs.")
|
||
(license (license:x11-style "file://COPYING"))))
|
||
|
||
(define-public vdpauinfo
|
||
(package
|
||
(name "vdpauinfo")
|
||
(version "1.5")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.freedesktop.org/vdpau/vdpauinfo")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "01nkk8rixzvicrg0cr90mbxyd4vdyd0739ipywn0mx56xddambmx"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'bootstrap
|
||
;; ./autogen.sh runs ./configure too soon.
|
||
(lambda _
|
||
(invoke "autoreconf" "-fiv"))))))
|
||
(native-inputs
|
||
(list autoconf automake libx11 pkg-config))
|
||
(propagated-inputs
|
||
(list libvdpau))
|
||
(home-page "https://wiki.freedesktop.org/www/Software/VDPAU/")
|
||
(synopsis "Tool to query the capabilities of a VDPAU implementation")
|
||
(description "Vdpauinfo is a tool to query the capabilities of a VDPAU
|
||
implementation.")
|
||
(license (license:x11-style "file://COPYING"))))
|
||
|
||
(define-public libvdpau-va-gl
|
||
(package
|
||
(name "libvdpau-va-gl")
|
||
(version "0.4.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/i-rinat/libvdpau-va-gl/"
|
||
"releases/download/v" version "/libvdpau-va-gl-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1x2ag1f2fwa4yh1g5spv99w9x1m33hbxlqwyhm205ssq0ra234bx"))
|
||
(patches (search-patches "libvdpau-va-gl-unbundle.patch"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin (delete-file-recursively "3rdparty")
|
||
#t))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:tests? #f)) ; Tests require a running X11 server, with VA-API support.
|
||
(native-inputs
|
||
(list libvdpau pkg-config))
|
||
(inputs
|
||
(list libva mesa))
|
||
(home-page "https://github.com/i-rinat/libvdpau-va-gl")
|
||
(synopsis "VDPAU driver with VA-API/OpenGL backend")
|
||
(description
|
||
"Many applications can use VDPAU to accelerate portions of the video
|
||
decoding process and video post-processing to the GPU video hardware. Since
|
||
there is no VDPAU available on Intel chips, they fall back to different drawing
|
||
techniques. This driver uses OpenGL under the hood to accelerate drawing and
|
||
scaling and VA-API (if available) to accelerate video decoding.")
|
||
(license license:expat)))
|
||
|
||
(define-public recordmydesktop
|
||
(package
|
||
(name "recordmydesktop")
|
||
(version "0.4.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/Enselic/"
|
||
name "/releases/download/v" version
|
||
"/recordmydesktop-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"17kjgmkl45zma64a5dg1hyvnjkzk4vl8milgi6ic7hlsbmywpig7"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list popt
|
||
zlib
|
||
libx11
|
||
libice
|
||
libsm
|
||
libxfixes
|
||
libxdamage
|
||
libxext
|
||
alsa-lib
|
||
libvorbis
|
||
libtheora))
|
||
(home-page "https://enselic.github.io/recordmydesktop/")
|
||
(synopsis "Desktop session video recorder")
|
||
(description
|
||
"recordMyDesktop is a command-line tool that captures the activity in
|
||
your graphical desktop and encodes it as a video. This is a useful tool for
|
||
making @dfn{screencasts}.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public simplescreenrecorder
|
||
(package
|
||
(name "simplescreenrecorder")
|
||
(version "0.4.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/MaartenBaert/ssr")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1dzp5yzqlha65crzklx2qlan6ssw1diwzfpc4svd7gnr858q2292"))))
|
||
(build-system cmake-build-system)
|
||
;; Although libx11, libxfixes, libxext are listed as build dependencies in
|
||
;; README.md, the program builds and functions properly without them.
|
||
;; As a result, they are omitted. Please add them back if problems appear.
|
||
(inputs
|
||
(list alsa-lib
|
||
ffmpeg-4
|
||
glu
|
||
jack-1
|
||
libxi
|
||
libxinerama
|
||
pulseaudio
|
||
qtbase-5
|
||
qtx11extras))
|
||
(native-inputs (list pkg-config))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "-DWITH_QT5=TRUE")
|
||
#:tests? #f)) ; no test suite
|
||
;; Using HTTPS causes part of the page to be displayed improperly.
|
||
(home-page "https://www.maartenbaert.be/simplescreenrecorder/")
|
||
(synopsis "Screen recorder")
|
||
(description "SimpleScreenRecorder is an easy to use screen recorder with
|
||
a graphical user interface. It supports recording the entire screen, or a
|
||
part of it, and allows encoding in many different codecs and file formats.
|
||
Other features include a live preview and live streaming.")
|
||
(license (list license:gpl3+ ; most files
|
||
license:zlib ; glinject/elfhacks.*
|
||
license:isc ; glinject/*
|
||
license:x11)))) ; build-aux/install-sh
|
||
|
||
(define-public libsmpeg
|
||
(package
|
||
(name "libsmpeg")
|
||
(version "0.4.5-401")
|
||
(source (origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url "svn://svn.icculus.org/smpeg/trunk/")
|
||
(revision 401))) ; last revision before smpeg2 (for SDL 2.0)
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1srzyjks9s0g4k7ms8vc0hjby2g6shndnr552hl63pn90sgmwxs9"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
;; libsmpeg fails to build with -std=c++11, which is the default with
|
||
;; GCC 7. Also, 'configure' does CXXFLAGS=$CFLAGS, hence this hack.
|
||
'(#:configure-flags '("CFLAGS=-O2 -g -std=c++03")))
|
||
(native-inputs
|
||
(list autoconf automake))
|
||
(inputs
|
||
`(("sdl" ,sdl2)))
|
||
(home-page "https://icculus.org/smpeg/")
|
||
(synopsis "SDL MPEG decoding library")
|
||
(description
|
||
"SMPEG (SDL MPEG Player Library) is a free MPEG1 video player library
|
||
with sound support. Video playback is based on the ubiquitous Berkeley MPEG
|
||
player, mpeg_play v2.2. Audio is played through a slightly modified mpegsound
|
||
library, part of splay v0.8.2. SMPEG supports MPEG audio (MP3), MPEG-1 video,
|
||
and MPEG system streams.")
|
||
(license (list license:expat
|
||
license:lgpl2.1
|
||
license:lgpl2.1+
|
||
license:gpl2))))
|
||
|
||
;; for btanks
|
||
(define-public libsmpeg-with-sdl1
|
||
(package (inherit libsmpeg)
|
||
(name "libsmpeg")
|
||
(version "0.4.5-399")
|
||
(source (origin
|
||
(method svn-fetch)
|
||
(uri (svn-reference
|
||
(url "svn://svn.icculus.org/smpeg/trunk/")
|
||
(revision 399))) ; tagged release 0.4.5
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"1jy9xqykhwfg8in0fxjcqcvwazii1ckzs39wp749b926q7ny5bwy"))))
|
||
(inputs
|
||
(list sdl))))
|
||
|
||
(define-public libbdplus
|
||
(package
|
||
(name "libbdplus")
|
||
(version "0.1.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ftp.videolan.org/pub/videolan/libbdplus/"
|
||
version "/" name "-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "02n87lysqn4kg2qk7d1ffrp96c44zkdlxdj0n16hbgrlrpiwlcd6"))))
|
||
(inputs
|
||
(list libgcrypt))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://www.videolan.org/developers/libbdplus.html")
|
||
(synopsis "Library for decrypting certain Blu-Ray discs")
|
||
(description "libbdplus is a library which implements the BD+ System
|
||
specifications.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public libaacs
|
||
(package
|
||
(name "libaacs")
|
||
(version "0.11.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://ftp.videolan.org/pub/videolan/libaacs/"
|
||
version "/libaacs-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "11skjqjlldmbjkyxdcz4fmcn6y4p95r1xagbcnjy4ndnzf0l723d"))))
|
||
(inputs
|
||
(list libgcrypt))
|
||
(native-inputs
|
||
(list bison flex))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://www.videolan.org/developers/libaacs.html")
|
||
(synopsis "Library for decrypting certain Blu-Ray discs")
|
||
(description "libaacs is a library which implements the Advanced Access
|
||
Content System specification.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public mps-youtube
|
||
(package
|
||
(name "mps-youtube")
|
||
(version "0.2.8")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/mps-youtube/mps-youtube")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1w1jhw9rg3dx7vp97cwrk5fymipkcy2wrbl1jaa38ivcjhqg596y"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
;; Tests need to be disabled until #556 upstream is fixed. It reads as if the
|
||
;; test suite results differ depending on the country and also introduce
|
||
;; non-determinism in the tests.
|
||
;; https://github.com/mps-youtube/mps-youtube/issues/556
|
||
'(#:tests? #f
|
||
#:phases (modify-phases %standard-phases
|
||
;; Loading this as a library will create cache directories,
|
||
;; etc; which fails in the build container.
|
||
(delete 'sanity-check))))
|
||
(propagated-inputs
|
||
(list python-pafy python-pygobject)) ; For mpris2 support
|
||
(home-page "https://github.com/mps-youtube/mps-youtube")
|
||
(synopsis "Terminal based YouTube player and downloader")
|
||
(description
|
||
"@code{mps-youtube} is based on mps, a terminal based program to
|
||
search, stream and download music. This implementation uses YouTube as
|
||
a source of content and can play and download video as well as audio.
|
||
It can use either mpv or mplayer for playback, and for conversion of
|
||
formats ffmpeg or libav is used. Users should install one of the
|
||
supported players in addition to this package.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public handbrake
|
||
(package
|
||
(name "handbrake")
|
||
(version "1.5.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/HandBrake/HandBrake/"
|
||
"releases/download/" version "/"
|
||
"HandBrake-" version "-source.tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1w1hjj6gvdydypw4mdn281w0x163is59cfm7k6bq371hsl3gx69r"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
;; Remove "contrib" and source not necessary for
|
||
;; building/running under a GNU environment.
|
||
'(begin
|
||
(for-each delete-file-recursively
|
||
'("contrib" "macosx" "win")) ; 540KiB, 11MiB, 5.9MiB resp.
|
||
(substitute* "make/include/main.defs"
|
||
;; Disable unconditional inclusion of "contrib" libraries
|
||
;; (ffmpeg, libvpx, libdvdread, libdvdnav, and libbluray),
|
||
;; which would lead to fetching and building of these
|
||
;; libraries. Use our own instead.
|
||
(("MODULES \\+= contrib") "# MODULES += contrib"))))))
|
||
(build-system glib-or-gtk-build-system)
|
||
(native-inputs
|
||
`(("automake" ,automake) ; GUI subpackage must be bootstrapped
|
||
("autoconf" ,autoconf)
|
||
("intltool" ,intltool)
|
||
("libtool" ,libtool)
|
||
("pkg-config" ,pkg-config)
|
||
("python" ,python-2))) ; For configuration
|
||
(inputs
|
||
`(("bzip2" ,bzip2)
|
||
("dbus-glib" ,dbus-glib)
|
||
("ffmpeg" ,ffmpeg-4)
|
||
("fontconfig" ,fontconfig)
|
||
("freetype" ,freetype)
|
||
("glib" ,glib)
|
||
("gstreamer" ,gstreamer)
|
||
("gst-plugins-base" ,gst-plugins-base)
|
||
("gtk+" ,gtk+)
|
||
("jansson" ,jansson)
|
||
("lame" ,lame)
|
||
("libass" ,libass)
|
||
("libbluray" ,libbluray)
|
||
("libdav1d" ,dav1d)
|
||
("libdvdnav" ,libdvdnav)
|
||
("libdvdread" ,libdvdread)
|
||
("libgudev" ,libgudev)
|
||
("libjpeg-turbo" ,libjpeg-turbo)
|
||
("libmpeg2" ,libmpeg2)
|
||
("libnotify" ,libnotify)
|
||
("libnuma" ,numactl)
|
||
("libogg" ,libogg)
|
||
("libopus" ,opus)
|
||
("libsamplerate" ,libsamplerate)
|
||
("libtheora" ,libtheora)
|
||
("libvorbis" ,libvorbis)
|
||
("libvpx" ,libvpx)
|
||
("libxml2" ,libxml2)
|
||
("libx264" ,libx264)
|
||
("speex" ,speex)
|
||
("x265" ,x265)
|
||
("zimg" ,zimg)
|
||
("zlib" ,zlib)))
|
||
(arguments
|
||
`(#:tests? #f ;tests require Ruby and claim to be unsupported
|
||
#:configure-flags
|
||
(list "--disable-gtk-update-checks"
|
||
"--disable-nvenc"
|
||
(string-append "CPPFLAGS=-I"
|
||
(assoc-ref %build-inputs "libxml2")
|
||
"/include/libxml2")
|
||
"LDFLAGS=-lx265")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'bootstrap
|
||
;; Run bootstrap ahead of time so that shebangs get patched.
|
||
(lambda _
|
||
(setenv "CONFIG_SHELL" (which "sh"))
|
||
;; Patch the Makefile so that it doesn't bootstrap again.
|
||
(substitute* "gtk/module.rules"
|
||
((".*autoreconf.*") ""))
|
||
(with-directory-excursion "gtk"
|
||
(invoke "autoreconf" "-fiv"))))
|
||
(add-before 'configure 'patch-SHELL
|
||
(lambda _
|
||
(substitute* "gtk/po/Makefile.in.in"
|
||
(("SHELL = /bin/sh") "SHELL = @SHELL@"))))
|
||
(add-before 'configure 'relax-reqs
|
||
(lambda _
|
||
(substitute* "make/configure.py"
|
||
;; cmake is checked for so that it can be used to build
|
||
;; contrib/harfbuzz and contrib/x265, but we get these as
|
||
;; inputs, so don't abort if it's not found. Similarly, meson
|
||
;; and ninja are only needed for contrib/libdav1d, and nasm
|
||
;; only for libvpx
|
||
(("((cmake|meson|ninja|nasm) *=.*abort=)True" _ &)
|
||
(string-append & "False")))))
|
||
(replace 'configure
|
||
(lambda* (#:key outputs configure-flags #:allow-other-keys)
|
||
;; 'configure' is not an autoconf-generated script, and
|
||
;; errors on unrecognized arguments,
|
||
;; e.g. --enable-fast-install
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(apply invoke "./configure"
|
||
(string-append "--prefix=" out)
|
||
(or configure-flags '())))))
|
||
(add-after 'configure 'chdir-build
|
||
(lambda _ (chdir "./build"))))))
|
||
(home-page "https://handbrake.fr")
|
||
(synopsis "Video transcoder")
|
||
(description
|
||
"HandBrake is a tool for converting video from any format to a selection
|
||
of modern, widely supported codecs.")
|
||
;; Some under GPLv2+, some under LGPLv2.1+, and portions under BSD3.
|
||
;; Combination under GPLv2. See LICENSE.
|
||
(license license:gpl2)))
|
||
|
||
(define-public intel-vaapi-driver
|
||
(package
|
||
(name "intel-vaapi-driver")
|
||
(version "2.4.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/intel/intel-vaapi-driver")
|
||
(commit version)))
|
||
(sha256
|
||
(base32 "1cidki3av9wnkgwi7fklxbg3bh6kysf8w3fk2qadjr05a92mx3zp"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf automake libtool pkg-config))
|
||
(inputs
|
||
(list libdrm libva libx11))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'set-target-directory
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(setenv "LIBVA_DRIVERS_PATH" (string-append out "/lib/dri"))
|
||
#t))))))
|
||
;; XXX Because of <https://issues.guix.gnu.org/issue/22138>, we need to add
|
||
;; this to all VA-API back ends instead of once to libva.
|
||
(native-search-paths
|
||
(list (search-path-specification
|
||
(variable "LIBVA_DRIVERS_PATH")
|
||
(files '("lib/dri")))))
|
||
(supported-systems '("i686-linux" "x86_64-linux"))
|
||
(home-page "https://01.org/linuxmedia/vaapi")
|
||
(synopsis "VA-API video acceleration driver for Intel GEN Graphics devices")
|
||
(description
|
||
"This is the @acronym{VA-API, Video Acceleration API} back end required for
|
||
hardware-accelerated video processing on Intel GEN Graphics devices supported by
|
||
the i915 driver, such as integrated Intel HD Graphics. It provides access to
|
||
both hardware and shader functionality for faster encoding, decoding, and
|
||
post-processing of video formats like MPEG2, H.264/AVC, and VC-1.")
|
||
(license (list license:bsd-2 ; src/gen9_vp9_const_def.c
|
||
license:expat)))) ; the rest, excluding the test suite
|
||
|
||
(define-public openh264
|
||
(package
|
||
(name "openh264")
|
||
(version "2.3.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/cisco/openh264")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1yr6nsjpnazq4z6dvjfyanljwgwnyjh3ddxa0sq6hl9qc59yq91r"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list nasm python))
|
||
(arguments
|
||
(list
|
||
#:make-flags
|
||
#~(list (string-append "PREFIX=" #$output)
|
||
"CC=gcc")
|
||
#:test-target "test"
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
;; no configure script
|
||
(delete 'configure))))
|
||
(home-page "https://www.openh264.org/")
|
||
(synopsis "H264 decoder library")
|
||
(description
|
||
"Openh264 is a library which can decode H264 video streams.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public libmp4v2
|
||
(package
|
||
(name "libmp4v2")
|
||
(version "2.0.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
;; XXX: The new location of upstream is uncertain and will become relevant the
|
||
;; moment when the googlecode archive shuts down. It is past the date it
|
||
;; should've been turned off. I tried to communicate with upstream, but this
|
||
;; wasn't very responsive and not very helpful. The short summary is, it is
|
||
;; chaos when it comes to the amount of forks and only time will tell where
|
||
;; the new upstream location is.
|
||
(uri (string-append "https://storage.googleapis.com/google-"
|
||
"code-archive-downloads/v2/"
|
||
"code.google.com/mp4v2/mp4v2-" version ".tar.bz2"))
|
||
(file-name (string-append name "-" version ".tar.bz2"))
|
||
(patches (search-patches "libmp4v2-c++11.patch"))
|
||
(sha256
|
||
(base32
|
||
"0f438bimimsvxjbdp4vsr8hjw2nwggmhaxgcw07g2z361fkbj683"))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out"
|
||
"static")) ; 3.7MiB .a file
|
||
(arguments
|
||
`(;; Build as C++2003 to avoid C++11 "narrowing conversion" errors.
|
||
#:configure-flags '("CXXFLAGS=-O2 -g -std=c++03")
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'remove-dates
|
||
(lambda _
|
||
;; Make the build reproducible.
|
||
(substitute* "configure"
|
||
(("PROJECT_build=\"`date`\"") "PROJECT_build=\"\"")
|
||
(("ac_abs_top_builddir=$ac_pwd") "ac_abs_top_builddir=\"\""))
|
||
#t))
|
||
(add-after 'install 'move-static-libraries
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Move static libraries to the "static" output.
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(lib (string-append out "/lib"))
|
||
(static (assoc-ref outputs "static"))
|
||
(slib (string-append static "/lib")))
|
||
(mkdir-p slib)
|
||
(for-each (lambda (file)
|
||
(install-file file slib)
|
||
(delete-file file))
|
||
(find-files lib "\\.a$"))
|
||
#t))))))
|
||
(native-inputs
|
||
(list help2man dejagnu))
|
||
(home-page "https://code.google.com/archive/p/mp4v2/")
|
||
(synopsis "API to create and modify mp4 files")
|
||
(description
|
||
"The MP4v2 library provides an API to create and modify mp4 files as defined by
|
||
ISO-IEC:14496-1:2001 MPEG-4 Systems. This file format is derived from Apple's QuickTime
|
||
file format that has been used as a multimedia file format in a variety of platforms and
|
||
applications. It is a very powerful and extensible format that can accommodate
|
||
practically any type of media.")
|
||
(license license:mpl1.1)))
|
||
|
||
(define-public libmediainfo
|
||
(package
|
||
(name "libmediainfo")
|
||
(version "23.03")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://mediaarea.net/download/source/"
|
||
name "/" version "/"
|
||
name "_" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1660lsilm02324c65sxxi41fn225hg78yxqyxff5dyf6fvyzyypm"))))
|
||
;; TODO add a Big Buck Bunny webm for tests.
|
||
(native-inputs
|
||
(list autoconf automake libtool pkg-config))
|
||
(propagated-inputs
|
||
(list zlib tinyxml2 curl ; In Requires.private of libmediainfo.pc.
|
||
libzen))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; see above TODO
|
||
#:configure-flags
|
||
(list "--with-libcurl" "--with-libtinyxml2")
|
||
#:phases
|
||
;; build scripts not in root of archive
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'change-to-build-dir
|
||
(lambda _
|
||
(chdir "Project/GNU/Library")
|
||
;; XXX Add a shebang to the script to avoid an error like:
|
||
;; "In execvp of ./autogen.sh: Exec format error"
|
||
;; The string replaced is just a code comment.
|
||
;; See the similar substitution made in mediainfo.
|
||
(substitute* "autogen.sh"
|
||
(("#libtoolize")
|
||
"#!/bin/sh"))
|
||
#t)))))
|
||
(home-page "https://mediaarea.net/en/MediaInfo")
|
||
(synopsis "Library for retrieving media metadata")
|
||
(description "MediaInfo is a library used for retrieving technical
|
||
information and other metadata about audio or video files. A non-exhaustive
|
||
list of the information MediaInfo can retrieve from media files include:
|
||
|
||
@itemize
|
||
@item General: title, author, director, album, track number, date, duration...
|
||
@item Video: codec, aspect, fps, bitrate...
|
||
@item Audio: codec, sample rate, channels, language, bitrate...
|
||
@item Text: language of subtitle
|
||
@item Chapters: number of chapters, list of chapters
|
||
@end itemize
|
||
|
||
MediaInfo supports the following formats:
|
||
|
||
@itemize
|
||
@item Video: MKV, OGM, AVI, DivX, WMV, QuickTime, Real, MPEG-1,
|
||
MPEG-2, MPEG-4, DVD (VOB)...
|
||
@item Video Codecs: DivX, XviD, MSMPEG4, ASP, H.264, AVC...)
|
||
@item Audio: OGG, MP3, WAV, RA, AC3, DTS, AAC, M4A, AU, AIFF...
|
||
@item Subtitles: SRT, SSA, ASS, SAMI...
|
||
@end itemize\n")
|
||
(license license:bsd-2)))
|
||
|
||
;; TODO also have a GUI version available
|
||
(define-public mediainfo
|
||
(package
|
||
(name "mediainfo")
|
||
(version "23.03")
|
||
(source (origin
|
||
(method url-fetch)
|
||
;; Warning: This source has proved unreliable 1 time at least.
|
||
;; Consider an alternate source or report upstream if this
|
||
;; happens again.
|
||
(uri (string-append "https://mediaarea.net/download/source/"
|
||
name "/" version "/"
|
||
name "_" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1654pal4x753pcha8h939a70q5z3jzaddgb39cinlrv5fljs8qgh"))))
|
||
(native-inputs
|
||
(list autoconf automake libtool pkg-config))
|
||
(inputs
|
||
(list libmediainfo))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; lacks tests
|
||
#:phases
|
||
;; build scripts not in root of archive
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'change-to-build-dir
|
||
(lambda _
|
||
(chdir "Project/GNU/CLI")
|
||
;; XXX Add a shebang to the script to avoid an error like:
|
||
;; "In execvp of ./autogen.sh: Exec format error"
|
||
;; The string replaced is just a code comment.
|
||
;; See the similar substitution made in libmediainfo.
|
||
(substitute* "autogen.sh"
|
||
(("#libtoolize")
|
||
"#!/bin/sh"))
|
||
#t)))))
|
||
(home-page "https://mediaarea.net/en/MediaInfo")
|
||
(synopsis "Utility for reading media metadata")
|
||
(description "MediaInfo is a utility used for retrieving technical
|
||
information and other metadata about audio or video files. It supports the
|
||
many codecs and formats supported by libmediainfo.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public atomicparsley
|
||
(package
|
||
(name "atomicparsley")
|
||
(version "20200701.154658.b0d6223")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/wez/atomicparsley")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1kym2l5y34nmbrrlkfmxsf1cwrvch64kb34jp0hpa0b89idbhwqh"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;; no tests included
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'set-cmake-version
|
||
(lambda* _
|
||
(substitute* "CMakeLists.txt"
|
||
;; At the time of writing, Guix has CMake at 3.16, but
|
||
;; AtomicParsley uses 3.17. This brings the required CMake
|
||
;; version down to what Guix can afford.
|
||
(("VERSION 3.17") "VERSION 3.16"))
|
||
#t))
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin")))
|
||
(install-file "AtomicParsley" bin))
|
||
#t)))))
|
||
(inputs
|
||
(list zlib))
|
||
(synopsis "Metadata editor for MPEG-4 files")
|
||
(description "AtomicParsley is a lightweight command line program for
|
||
reading, parsing and setting metadata into MPEG-4 files, in particular,
|
||
iTunes-style metadata.")
|
||
(home-page "https://github.com/wez/atomicparsley")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public livemedia-utils
|
||
(package
|
||
(name "livemedia-utils")
|
||
(version "2020.11.19")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://download.videolan.org/contrib/live555/live."
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"16w6yxdbmjdhvffnrb752dn4llf3l0wb00dgdkyia0vqsv2qqyn7"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:make-flags (list (string-append "CC=" ,(cc-for-target))
|
||
(string-append "CXX=" ,(cxx-for-target))
|
||
(string-append "LDFLAGS=-Wl,-rpath="
|
||
(assoc-ref %outputs "out") "/lib")
|
||
(string-append "PREFIX="
|
||
(assoc-ref %outputs "out")))
|
||
#:phases (modify-phases %standard-phases
|
||
(add-before 'configure 'fix-makefiles-generation
|
||
(lambda _
|
||
(substitute* "genMakefiles"
|
||
(("/bin/rm") "rm"))
|
||
#t))
|
||
(replace 'configure
|
||
(lambda _
|
||
(invoke "./genMakefiles"
|
||
"linux-with-shared-libraries"))))))
|
||
(inputs
|
||
(list openssl))
|
||
(home-page "http://www.live555.com/liveMedia/")
|
||
(synopsis "Set of C++ libraries for multimedia streaming")
|
||
(description "This code forms a set of C++ libraries for multimedia
|
||
streaming, using open standard protocols (RTP/RTCP, RTSP, SIP). The libraries
|
||
can be used to stream, receive, and process MPEG, H.265, H.264, H.263+, DV or
|
||
JPEG video, and several audio codecs. They can easily be extended to support
|
||
additional (audio and/or video) codecs, and can also be used to build basic
|
||
RTSP or SIP clients and servers.")
|
||
(license license:lgpl3+)))
|
||
|
||
(define-public libdvbpsi
|
||
(package
|
||
(name "libdvbpsi")
|
||
(version "1.3.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://download.videolan.org/pub/libdvbpsi/"
|
||
version "/libdvbpsi-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"04h1l3vrkrdsrvkgzcr51adk10g6hxcxvgjphyyxz718ry5rkd82"))))
|
||
(build-system gnu-build-system)
|
||
(home-page "https://www.videolan.org/developers/libdvbpsi.html")
|
||
(synopsis "Library for decoding and generation of MPEG TS and DVB PSI
|
||
tables")
|
||
(description "libdvbpsi is a simple library designed for decoding and
|
||
generation of MPEG TS and DVB PSI tables according to standards ISO/IEC 13818s
|
||
and ITU-T H.222.0.")
|
||
(license license:lgpl2.1)))
|
||
|
||
(define-public ffms2
|
||
(package
|
||
(name "ffms2")
|
||
(version "2.23")
|
||
(home-page "https://github.com/FFMS/ffms2")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/FFMS/ffms2")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0dkz5b3gxq5p4xz0qqg6l2sigszrlsinz3skyf0ln4wf3zrvf8m5"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
(list "--enable-avresample")))
|
||
(inputs
|
||
(list zlib))
|
||
(propagated-inputs
|
||
(list ffmpeg-4))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(synopsis "Cross-platform wrapper around ffmpeg/libav")
|
||
(description
|
||
"FFMpegSource is a wrapper library around ffmpeg/libav that allows
|
||
programmers to access a standard API to open and decompress media files.")
|
||
;; sources are distributed under a different license that the binary.
|
||
;; see https://github.com/FFMS/ffms2/blob/master/COPYING
|
||
(license license:gpl2+))); inherits from ffmpeg
|
||
|
||
(define-public aegisub
|
||
(package
|
||
(name "aegisub")
|
||
(version "3.2.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"http://ftp.aegisub.org/pub/archives/releases/source/"
|
||
name "-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"11b83qazc8h0iidyj1rprnnjdivj1lpphvpa08y53n42bfa36pn5"))
|
||
(patches (search-patches "aegisub-icu59-include-unistr.patch"
|
||
"aegisub-make43.patch"
|
||
"aegisub-boost68.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list "--disable-update-checker"
|
||
"--without-portaudio"
|
||
"--without-openal"
|
||
"--without-oss"
|
||
"CXXFLAGS=-DU_USING_ICU_NAMESPACE=1")
|
||
;; tests require busted, a lua package we don't have yet
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'fix-ldflags
|
||
(lambda _
|
||
(setenv "LDFLAGS" "-pthread")
|
||
#t))
|
||
(add-after 'unpack 'fix-boost-headers
|
||
(lambda _
|
||
(substitute*
|
||
'("src/subtitles_provider_libass.cpp"
|
||
"src/colour_button.cpp"
|
||
"src/video_provider_dummy.cpp"
|
||
"./src/video_frame.cpp")
|
||
(("#include <boost/gil/gil_all.hpp>")
|
||
"#include <boost/gil.hpp>"))
|
||
#t)))))
|
||
(inputs
|
||
(list boost
|
||
ffms2
|
||
fftw
|
||
hunspell
|
||
mesa
|
||
libass
|
||
alsa-lib
|
||
pulseaudio
|
||
libx11
|
||
freetype
|
||
wxwidgets-gtk2))
|
||
(native-inputs
|
||
(list intltool desktop-file-utils pkg-config))
|
||
(home-page "https://www.aegisub.org/")
|
||
(synopsis "Subtitle engine")
|
||
(description
|
||
"Aegisub is a tool for creating and modifying subtitles. Aegisub makes
|
||
it quick and easy to time subtitles to audio, and features many powerful
|
||
tools for styling them, including a built-in real-time video preview.")
|
||
(license (list license:bsd-3 ; the package is licensed under the bsd-3, except
|
||
license:mpl1.1 ; for vendor/universalchardet under the mpl1.1
|
||
license:expat)))) ; and src/gl that is under a license similar
|
||
; the the Expat license, with a rewording (Software -> Materials). (called MIT
|
||
; by upstream). See https://github.com/Aegisub/Aegisub/blob/master/LICENCE
|
||
; src/MatroskaParser.(c|h) is under bsd-3 with permission from the author
|
||
|
||
(define-public pitivi
|
||
(package
|
||
(name "pitivi")
|
||
(version "2022.06.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.gnome.org/GNOME/pitivi.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1wgfi8srblqzd2y6528cyvn56rbdxpwlq0wmwqhabshdk28zyx8d"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
(list gettext-minimal
|
||
`(,glib "bin")
|
||
itstool
|
||
pkg-config))
|
||
(inputs
|
||
(list bash-minimal
|
||
glib
|
||
gst-editing-services
|
||
gstreamer
|
||
gst-plugins-base
|
||
gst-plugins-good
|
||
;; TODO: Add the 'cvtracker' plugin after our gstreamer packages
|
||
;; has been upgraded to version 1.20.
|
||
(gst-plugins/selection gst-plugins-bad #:plugins
|
||
'("debugutils" "transcode")
|
||
#:configure-flags
|
||
#~'("-Dintrospection=enabled"))
|
||
gst-libav
|
||
gsound
|
||
gtk+
|
||
libpeas
|
||
libnotify
|
||
pango
|
||
python
|
||
python-gst
|
||
python-librosa
|
||
python-numpy
|
||
python-matplotlib
|
||
python-pycairo
|
||
python-pygobject))
|
||
;; Propagate librsvg so that is is registered in GDK_PIXBUF_MODULE_FILE,
|
||
;; otherwise pitivi fails to launch.
|
||
(propagated-inputs (list (librsvg-for-system)))
|
||
(arguments
|
||
`(#:glib-or-gtk? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'glib-or-gtk-wrap 'wrap-other-dependencies
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(wrap-program (search-input-file outputs "bin/pitivi")
|
||
`("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
|
||
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
|
||
;; We've only added inputs for what Pitivi deems either
|
||
;; necessary or optional. Let the user's packages take
|
||
;; precedence in case they have e.g. the full gst-plugins-bad.
|
||
`("GST_PLUGIN_SYSTEM_PATH" suffix
|
||
(,(getenv "GST_PLUGIN_SYSTEM_PATH")))))))))
|
||
(home-page "https://www.pitivi.org")
|
||
(synopsis "Video editor based on GStreamer Editing Services")
|
||
(description "Pitivi is a video editor built upon the GStreamer Editing
|
||
Services. It aims to be an intuitive and flexible application that can appeal
|
||
to newbies and professionals alike.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public gavl
|
||
(package
|
||
(name "gavl")
|
||
(version "1.4.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/gmerlin/"
|
||
name "/" version "/"
|
||
name "-" version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1kikkn971a14zzm7svi7190ldc14fjai0xyhpbcmp48s750sraji"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags '("LIBS=-lm")))
|
||
(native-inputs
|
||
(list pkg-config doxygen))
|
||
(home-page "https://gmerlin.sourceforge.net")
|
||
(synopsis "Low level library for multimedia API building")
|
||
(description
|
||
"Gavl is short for Gmerlin Audio Video Library. It is a low level
|
||
library, upon which multimedia APIs can be built. Gavl handles all the
|
||
details of audio and video formats like colorspaces, sample rates,
|
||
multichannel configurations, etc. It provides standardized definitions for
|
||
those formats as well as container structures for carrying audio samples or
|
||
video images inside an application.
|
||
|
||
In addition, it handles the sometimes ugly task of converting between all
|
||
these formats and provides some elementary operations (copying, scaling,
|
||
alpha blending etc).")
|
||
(license license:gpl3)))
|
||
|
||
(define-public frei0r-plugins
|
||
(package
|
||
(name "frei0r-plugins")
|
||
(version "1.7.0")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://files.dyne.org/frei0r/"
|
||
"frei0r-plugins-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0fjji3060r4fwr7vn91lwfzl80lg3my9lkp94kbyw8xwz7qgh7qv"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-Makefile
|
||
(lambda _
|
||
;; XXX: The 1.7.0 Makefile looks for files that have slightly different
|
||
;; names in the tarball. Try removing this for future versions.
|
||
(substitute* "Makefile.in"
|
||
(("README\\.md ChangeLog TODO AUTHORS")
|
||
"README.txt ChangeLog.txt TODO.txt AUTHORS.txt"))
|
||
#t)))))
|
||
;; TODO: opencv for additional face detection filters.
|
||
(inputs
|
||
(list gavl cairo))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(home-page "https://www.dyne.org/software/frei0r/")
|
||
(synopsis "Minimalistic plugin API for video effects")
|
||
(description
|
||
"Frei0r is a minimalistic plugin API for video effects.
|
||
The main emphasis is on simplicity for an API that will round up
|
||
the most common video effects into simple filters, sources and
|
||
mixers that can be controlled by parameters. Frei0r wants to
|
||
provide a way to share these simple effects between many
|
||
applications, avoiding their reimplementation by different projects.
|
||
It counts more than 100 plugins.")
|
||
(license (list license:gpl2+
|
||
;; The following files are licensed as LGPL2.1+:
|
||
;; src/generator/ising0r/ising0r.c
|
||
;; src/generator/onecol0r/onecol0r.cpp
|
||
;; src/generator/nois0r/nois0r.cpp
|
||
;; src/generator/lissajous0r/lissajous0r.cpp
|
||
;; src/filter/ndvi/gradientlut.hpp
|
||
;; src/filter/ndvi/ndvi.cpp
|
||
;; src/filter/facedetect/facedetect.cpp
|
||
license:lgpl2.1+))))
|
||
|
||
(define-public motion
|
||
(package
|
||
(name "motion")
|
||
(version "4.5.1")
|
||
(home-page "https://motion-project.github.io/")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/Motion-Project/motion")
|
||
(commit (string-append "release-" version))))
|
||
(sha256
|
||
(base32
|
||
"09j919bba75d05rkqpib5rcmn1ff5nvn4ss8yy4fi6iz0lnacffx"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf automake gettext-minimal pkg-config))
|
||
(inputs
|
||
(list libjpeg-turbo ffmpeg libmicrohttpd sqlite))
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases
|
||
(replace 'bootstrap
|
||
(lambda _
|
||
(patch-shebang "scripts/version.sh")
|
||
(invoke "autoreconf" "-vfi"))))
|
||
#:configure-flags '("--sysconfdir=/etc")
|
||
#:make-flags (list (string-append "sysconfdir="
|
||
(assoc-ref %outputs "out")
|
||
"/etc"))
|
||
|
||
#:tests? #f)) ; no 'check' target
|
||
(synopsis "Detect motion from video signals")
|
||
(description
|
||
"Motion is a program that monitors the video signal from one or more
|
||
cameras and is able to detect if a significant part of the picture has
|
||
changed. Or in other words, it can detect motion.")
|
||
|
||
;; Some files say "version 2" and others "version 2 or later".
|
||
(license license:gpl2)))
|
||
|
||
(define-public subdl
|
||
(let ((commit "4cf5789b11f0ff3f863b704b336190bf968cd471")
|
||
(revision "1"))
|
||
(package
|
||
(name "subdl")
|
||
(version (git-version "1.0.3" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/alexanderwink/subdl")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0kmk5ck1j49q4ww0lvas2767kwnzhkq0vdwkmjypdx5zkxz73fn8"))))
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build utils))
|
||
#:builder (begin
|
||
(use-modules (guix build utils))
|
||
(let* ((out (assoc-ref %outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(source (assoc-ref %build-inputs "source"))
|
||
(python (assoc-ref %build-inputs "python")))
|
||
(install-file (string-append source "/subdl") bin)
|
||
(patch-shebang (string-append bin "/subdl")
|
||
(list (string-append python "/bin")))))))
|
||
(inputs (list python))
|
||
(synopsis "Command-line tool for downloading subtitles from opensubtitles.org")
|
||
(description "Subdl is a command-line tool for downloading subtitles from
|
||
opensubtitles.org. By default, it will search for English subtitles, display
|
||
the results, download the highest-rated result in the requested language and
|
||
save it to the appropriate filename.")
|
||
(license license:gpl3+)
|
||
(home-page "https://github.com/alexanderwink/subdl"))))
|
||
|
||
(define-public l-smash
|
||
(package
|
||
(name "l-smash")
|
||
(version "2.14.5")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/l-smash/l-smash")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0rcq9727im6kd8da8b7kzzbzxdldvmh5nsljj9pvr4m3lj484b02"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;no tests
|
||
#:make-flags
|
||
(list (string-append "LDFLAGS=-Wl,-L.,-rpath="
|
||
(assoc-ref %outputs "out") "/lib"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
;; configure fails if it is followed by CONFIG_SHELL
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(invoke "./configure" (string-append "--prefix=" out)
|
||
"--disable-static")))))))
|
||
(native-inputs
|
||
(list which))
|
||
(home-page "https://l-smash.github.io/l-smash/")
|
||
(synopsis "MP4 multiplexer and demultiplexer library")
|
||
(description
|
||
"L-SMASH is a cross-platform library that handles the ISO base media file
|
||
format and some of its derived file formats, including MP4. It operates as a
|
||
multiplexer and demultiplexer, and can mux video and audio in several formats
|
||
using standalone executable files.")
|
||
(license license:isc)))
|
||
|
||
(define-public qtfaststart
|
||
(package
|
||
(name "qtfaststart")
|
||
(version "1.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "qtfaststart" version))
|
||
(sha256
|
||
(base32
|
||
"0hcjfik8hhb1syqvyh5c6aillpvzal26nkjflcq1270z64aj6i5h"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:tests? #f)) ; no test suite
|
||
(synopsis "Move QuickTime and MP4 metadata to the beginning of the file")
|
||
(description "qtfaststart enables streaming and pseudo-streaming of
|
||
QuickTime and MP4 files by moving metadata and offset information to the
|
||
beginning of the file. It can also print some useful information about the
|
||
structure of the file. This program is based on qt-faststart.c from the FFmpeg
|
||
project, which is released into the public domain, as well as ISO 14496-12:2005
|
||
(the official spec for MP4), which can be obtained from the ISO or found
|
||
online.")
|
||
(home-page "https://github.com/danielgtaylor/qtfaststart")
|
||
(license license:expat)))
|
||
|
||
(define-public vidstab
|
||
(let ((commit "aeabc8daa7904f9edf7441a11f293965a5ef53b8")
|
||
(revision "0"))
|
||
(package
|
||
(name "vidstab")
|
||
(version (git-version "1.1.0" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/georgmartius/vid.stab")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"042iy0f3khwzr68djzvqgn301sy21ljvkf52rnc2c73q7ircnzzn"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:tests? #f)) ; tests are not run as part of standard build process
|
||
(home-page "http://public.hronopik.de/vid.stab/")
|
||
(synopsis "Video stabilization library")
|
||
(description "Vidstab is a video stabilization library which can be used
|
||
with FFmpeg. A video acquired using a hand-held camera or a camera mounted on a
|
||
vehicle typically suffers from undesirable shakes and jitters. Activities such
|
||
as surfing, skiing, riding and walking while shooting videos are especially
|
||
prone to erratic camera shakes. Vidstab targets these video contents to help
|
||
create smoother and stable videos.")
|
||
(license license:gpl2+))))
|
||
|
||
(define-public libopenshot
|
||
(package
|
||
(name "libopenshot")
|
||
(version "0.3.2")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/OpenShot/libopenshot")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1hx2y9lvca7fzmy3996z08bzy65z1b0ip9d4jnnwd0wamwv4c4bb"))
|
||
(modules '((guix build utils)))
|
||
(snippet '(begin
|
||
;; Allow overriding of the python installation dir
|
||
(substitute* "bindings/python/CMakeLists.txt"
|
||
(("(SET\\(PYTHON_MODULE_PATH.*)\\)" _ set)
|
||
(string-append set " CACHE PATH "
|
||
"\"Python bindings directory\")")))
|
||
(delete-file-recursively "thirdparty")))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("python" ,python)
|
||
("swig" ,swig)
|
||
("unittest++" ,unittest-cpp)))
|
||
(inputs
|
||
(list alsa-lib zlib))
|
||
(propagated-inputs ;all referenced in installed headers
|
||
(list cppzmq
|
||
ffmpeg-4
|
||
imagemagick
|
||
jsoncpp
|
||
libopenshot-audio
|
||
qtbase-5
|
||
qtmultimedia-5
|
||
qtsvg-5
|
||
zeromq))
|
||
(arguments
|
||
`(#:configure-flags
|
||
(list (string-append "-DPYTHON_MODULE_PATH:PATH=" %output "/lib/python"
|
||
,(version-major+minor (package-version python))
|
||
"/site-packages")
|
||
"-DUSE_SYSTEM_JSONCPP:BOOL=ON")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'set-vars
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(setenv "LIBOPENSHOT_AUDIO_DIR"
|
||
(assoc-ref inputs "libopenshot-audio"))
|
||
(setenv "ZMQDIR"
|
||
(assoc-ref inputs "zeromq"))
|
||
(setenv "UNITTEST_DIR"
|
||
(search-input-directory inputs
|
||
"include/UnitTest++")))))))
|
||
(home-page "https://openshot.org")
|
||
(synopsis "Video-editing, animation, and playback library")
|
||
(description "OpenShot Library (libopenshot) is a powerful C++ video
|
||
editing library with a multi-threaded and feature rich video editing
|
||
API. It includes bindings for Python, Ruby, and other languages.")
|
||
(license license:lgpl3+)))
|
||
|
||
(define-public openshot
|
||
(package
|
||
(name "openshot")
|
||
(version "3.1.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/OpenShot/openshot-qt")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"11wmcipcx5icjcw4vaai5z06p8xj1j39dwl6kkjn5db2y00gak4h"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
;; TODO: Unbundle jquery and others from src/timeline/media
|
||
(delete-file-recursively "src/images/fonts") #t))))
|
||
(build-system python-build-system)
|
||
(inputs
|
||
(list ffmpeg
|
||
font-dejavu
|
||
libopenshot
|
||
python
|
||
python-pyqt
|
||
python-pyqtwebengine
|
||
python-pyzmq
|
||
python-requests
|
||
qtsvg-5
|
||
qtwebengine-5))
|
||
(arguments
|
||
`(#:modules ((guix build python-build-system)
|
||
(guix build qt-utils)
|
||
(guix build utils))
|
||
#:imported-modules (,@%python-build-system-modules
|
||
(guix build qt-utils))
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'build) ;install phase does all the work
|
||
(replace 'check
|
||
(lambda* (#:key tests? #:allow-other-keys)
|
||
(when tests?
|
||
(setenv "QT_QPA_PLATFORM" "offscreen")
|
||
(invoke "python" "src/tests/query_tests.py"))))
|
||
(add-after 'unpack 'patch-font-location
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(let ((font (assoc-ref inputs "font-dejavu")))
|
||
(substitute* "src/classes/app.py"
|
||
(("info.IMAGES_PATH") (string-append "\"" font "\""))
|
||
(("fonts") "share/fonts/truetype")
|
||
(("[A-Za-z_-]+.ttf") "DejaVuSans.ttf")))
|
||
#t))
|
||
(add-before 'install 'set-tmp-home
|
||
(lambda _
|
||
;; src/classes/info.py "needs" to create several
|
||
;; directories in $HOME when loaded during build
|
||
(setenv "HOME" "/tmp")
|
||
#t))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(qtwebengine-process-path
|
||
(search-input-file
|
||
inputs "/lib/qt5/libexec/QtWebEngineProcess")))
|
||
(wrap-qt-program "openshot-qt"
|
||
#:output out #:inputs inputs)
|
||
;; Help the program discover QtWebEngine at runtime.
|
||
(wrap-program (string-append out "/bin/openshot-qt")
|
||
`("QTWEBENGINEPROCESS_PATH" =
|
||
(,qtwebengine-process-path)))))))))
|
||
(home-page "https://www.openshot.org/")
|
||
(synopsis "Video editor")
|
||
(description "OpenShot takes your videos, photos, and music files and
|
||
helps you create the film you have always dreamed of. Easily add sub-titles,
|
||
transitions, and effects and then export your film to many common formats.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public shotcut
|
||
(package
|
||
(name "shotcut")
|
||
(version "23.09.29")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/mltframework/shotcut")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1r380lpa79i6821r3v84dm47vqxk4smx2k1wvf9afylw95v3i8zv"))))
|
||
(build-system qt-build-system)
|
||
(arguments
|
||
`(#:tests? #f ;there are no tests
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'patch-executable-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Shotcut expects ffmpeg and melt executables in the shotcut
|
||
;; directory. Use full store paths.
|
||
(let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
|
||
(mlt (assoc-ref inputs "mlt")))
|
||
(substitute* "src/jobs/ffmpegjob.cpp"
|
||
(("\"ffmpeg\"") (string-append "\"" ffmpeg "/bin/ffmpeg\"")))
|
||
(substitute* "src/jobs/meltjob.cpp"
|
||
(("\"melt\"") (string-append "\"" mlt "/bin/melt\""))
|
||
(("\"melt-7\"") (string-append "\"" mlt "/bin/melt-7\""))))))
|
||
(add-after 'install 'wrap-executable
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(frei0r (assoc-ref inputs "frei0r-plugins"))
|
||
(jack (assoc-ref inputs "jack"))
|
||
(ladspa (assoc-ref inputs "ladspa"))
|
||
(mlt (assoc-ref inputs "mlt"))
|
||
(sdl2 (assoc-ref inputs "sdl2")))
|
||
(wrap-program (string-append out "/bin/shotcut")
|
||
`("FREI0R_PATH" ":" =
|
||
(,(string-append frei0r "/lib/frei0r-1")))
|
||
`("LADSPA_PATH" ":" =
|
||
(,(string-append ladspa "/lib/ladspa")))
|
||
`("LD_LIBRARY_PATH" ":" prefix
|
||
,(list (string-append jack "/lib" ":" sdl2 "/lib")))
|
||
`("PATH" ":" prefix
|
||
,(list (string-append mlt "/bin"))))))))))
|
||
(native-inputs
|
||
(list pkg-config python-wrapper qttools))
|
||
(inputs
|
||
(list bash-minimal
|
||
ffmpeg
|
||
fftw
|
||
frei0r-plugins
|
||
jack-1
|
||
ladspa
|
||
mlt
|
||
pulseaudio
|
||
qtbase
|
||
qtdeclarative
|
||
qtmultimedia
|
||
sdl2))
|
||
(home-page "https://www.shotcut.org/")
|
||
(synopsis "Video editor built on the MLT framework")
|
||
(description
|
||
"Shotcut is a video editor built on the MLT framework. Features include
|
||
a wide range of formats through @code{ffmpeg}, 4k resolution support, webcam
|
||
and audio capture, network stream playback, and many more.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public dav1d
|
||
(package
|
||
(name "dav1d")
|
||
(version "1.0.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://code.videolan.org/videolan/dav1d.git")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0jkvb5as7danpalzlwd0w1dc9i2vijvmf39z0j6fwqvialsgnnj5"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs (list nasm))
|
||
(home-page "https://code.videolan.org/videolan/dav1d")
|
||
(synopsis "AV1 decoder")
|
||
(description "dav1d is a new AV1 cross-platform decoder, and focused on
|
||
speed and correctness.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public wlstream
|
||
(let ((commit "182076a94562b128c3a97ecc53cc68905ea86838")
|
||
(revision "1"))
|
||
(package
|
||
(name "wlstream")
|
||
(version (git-version "0.0" revision commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/atomnuker/wlstream")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"01qbcgfl3g9kfwn1jf1z9pdj3bvf5lmg71d1vwkcllc2az24bjqp"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs (list libdrm pkg-config))
|
||
(inputs (list ffmpeg-4 pulseaudio wayland wayland-protocols))
|
||
(home-page "https://github.com/atomnuker/wlstream")
|
||
(synopsis "Screen capture tool for Wayland sessions")
|
||
(description "Wlstream is a screen capture tool for recording audio and
|
||
video from a Wayland session.")
|
||
(license license:lgpl2.1+))))
|
||
|
||
(define-public gaupol
|
||
(package
|
||
(name "gaupol")
|
||
(version "1.12")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/otsaloma/gaupol/")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1z9j3r9pm4rdynlmhgsgnwnnaqw5274yfy4kyillgd77msnpbhaw"))))
|
||
(build-system pyproject-build-system)
|
||
(native-inputs
|
||
(list gettext-minimal pkg-config))
|
||
(inputs
|
||
(list python-pygobject
|
||
gtk+
|
||
python-pycairo ; Required or else clicking on a subtitle line fails.
|
||
python-chardet ; Optional: Character encoding detection.
|
||
gtkspell3 ; Optional: Inline spell-checking.
|
||
iso-codes ; Optional: Translations.
|
||
gstreamer
|
||
gst-libav
|
||
gst-plugins-base
|
||
gst-plugins-good
|
||
gst-plugins-bad
|
||
gst-plugins-ugly))
|
||
(arguments
|
||
`(#:tests? #f ; Tests seem to require networking.
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'disable-builtin-byte-compilation
|
||
(lambda _
|
||
;; The setup.py script attempts to compile bytecode and fails.
|
||
;; We compile bytecode in a separate phase, so just disable it.
|
||
(substitute* "setup.py"
|
||
(("distutils\\.util\\.byte_compile\\(.*")
|
||
""))))
|
||
(add-after 'install 'wrap-gaupol
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
|
||
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
|
||
(wrap-program (string-append out "/bin/gaupol")
|
||
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
|
||
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))))
|
||
;; Can't create a GtkStyleContext without a display connection
|
||
(delete 'sanity-check)
|
||
(add-after 'unpack 'patch-data-dir
|
||
;; Fix some path variables that setup.py seems to garble.
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "setup.py"
|
||
(("DATA_DIR = \\{!r\\}\"\\.format\\(data_dir\\)")
|
||
(string-append "DATA_DIR = '" out "/share/gaupol'\""))
|
||
(("LOCALE_DIR = \\{!r\\}\"\\.format\\(locale_dir\\)")
|
||
(string-append "LOCALE_DIR = '" out "/share/locale'\"")))))))))
|
||
(synopsis "Editor for text-based subtitles")
|
||
(description
|
||
"Gaupol supports multiple subtitle file formats and provides means of
|
||
creating subtitles, editing texts and timing subtitles to match video. The
|
||
user interface features a builtin video player and is designed with attention
|
||
to convenience of translating and batch processing of multiple documents.")
|
||
(home-page "https://otsaloma.io/gaupol/")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public theorafile
|
||
(let ((commit "404b14d7602b5918d117eaa64e8aa6601ede8593"))
|
||
(package
|
||
(name "theorafile")
|
||
(version (git-version "0.0.0" "1" commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/FNA-XNA/Theorafile")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "128c3pjzqbgrj020glm5jd6ss18vl19471lj615w2brjwb7c1f0z"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:make-flags '("CC=gcc")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(replace 'check
|
||
(lambda _
|
||
(setenv "CC" "gcc")
|
||
(invoke "make" "test")))
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(install-file "libtheorafile.so" (string-append out "/lib"))
|
||
(install-file "theorafile.h" (string-append out "/include")))
|
||
#t)))))
|
||
(native-inputs
|
||
;; For tests.
|
||
(list sdl2))
|
||
(home-page "https://github.com/FNA-XNA/Theorafile")
|
||
(synopsis "Ogg Theora Video Decoder Library")
|
||
(description "Theorafile is a library for quickly and easily decoding Ogg
|
||
Theora videos. Theorafile was written to be used for FNA's VideoPlayer.")
|
||
(license license:zlib))))
|
||
|
||
(define-public dvdbackup
|
||
(package
|
||
(name "dvdbackup")
|
||
(version "0.4.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/dvdbackup/dvdbackup/"
|
||
"dvdbackup-" version "/"
|
||
"dvdbackup-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "1rl3h7waqja8blmbpmwy01q9fgr5r0c32b8dy3pbf59bp3xmd37g"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(list libdvdcss libdvdread))
|
||
(home-page "https://dvdbackup.sourceforge.net")
|
||
(synopsis "DVD video ripper")
|
||
(description
|
||
"A simple command line tool to backup video from a DVD. Decrypts the
|
||
DVD using @command{libdvdcss}, but does @strong{not} demux, remux,
|
||
transcode or reformat the videos in any way, producing perfect backups.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public svt-av1
|
||
(package
|
||
(name "svt-av1")
|
||
(version "1.7.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.com/AOMediaCodec/SVT-AV1.git")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1308g0nqxq65h76a7h91999cbglkwihgrpid64kdn0r9vh6399sq"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
;; The test suite tries to download test data and git clone a 3rd-party
|
||
;; fork of libaom. Skip it.
|
||
`(#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-documentation
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref %outputs "out"))
|
||
(doc (string-append out "/share/doc/svt-av1-" ,version)))
|
||
(copy-recursively "../source/Docs" doc)
|
||
#t))))))
|
||
(native-inputs
|
||
(list yasm))
|
||
(synopsis "AV1 video codec")
|
||
(description "SVT-AV1 is an AV1 codec implementation. The encoder is a
|
||
work-in-progress, aiming to support video-on-demand and live streaming
|
||
applications with high performance requirements. It mainly targets
|
||
Intel-compatible CPUs (x86), but has limited support for other architectures.")
|
||
(home-page "https://gitlab.com/AOMediaCodec/SVT-AV1")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public svt-vp9
|
||
(package
|
||
(name "svt-vp9")
|
||
(version "0.3.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/OpenVisualCloud/SVT-VP9")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1ypdiw4cq22llvm8jyszxdq6r1aydkj80dsxjarjn5b7c1f2q3ar"))))
|
||
;; SVT-VP9 only supports 64-bit Intel-compatible CPUs.
|
||
(supported-systems '("x86_64-linux"))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; No test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-documentation
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref %outputs "out"))
|
||
(doc (string-append out "/share/doc/" ,name "-" ,version)))
|
||
(copy-recursively "../source/Docs" doc)
|
||
#t))))))
|
||
(native-inputs
|
||
(list yasm))
|
||
(home-page "https://github.com/OpenVisualCloud/SVT-VP9")
|
||
(synopsis "VP9 video encoder")
|
||
(description "SVT-VP9 is a VP9 video encoder implementation. It is focused
|
||
on supporting video-on-demand and live encoding on Intel Xeon processors.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public w-scan
|
||
(package
|
||
(name "w-scan")
|
||
(version "20170107")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.gen2vdr.de/wirbel/w_scan/w_scan-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32 "1zkgnj2sfvckix360wwk1v5s43g69snm45m0drnzyv7hgf5g7q1q"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("CFLAGS=-O2 -g -fcommon")))
|
||
(synopsis "Scan ATSC/DVB-C/DVB-S/DVB-T channels")
|
||
(description
|
||
"This is a small command line utility used to perform frequency scans for
|
||
DVB and ATSC transmissions without initial tuning data. It can print the
|
||
result in several formats:
|
||
@itemize
|
||
@item VDR channels.conf,
|
||
@item czap/tzap/xine/mplayer channels.conf,
|
||
@item Gstreamer dvbsrc plugin,
|
||
@item VLC xspf playlist,
|
||
@item XML,
|
||
@item initial tuning data for scan or dvbv5-scan.
|
||
@end itemize\n")
|
||
(home-page "https://www.gen2vdr.de/wirbel/w_scan/index2.html")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public rav1e
|
||
(package
|
||
(name "rav1e")
|
||
(version "0.6.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (crate-uri "rav1e" version))
|
||
(file-name
|
||
(string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0if94sfviy5cwljlnsy0f470ixfs090k54g416kcc0qd9w4rhy17"))))
|
||
(build-system cargo-build-system)
|
||
(arguments
|
||
`(#:cargo-inputs
|
||
(("rust-aom-sys" ,rust-aom-sys-0.3)
|
||
("rust-arbitrary" ,rust-arbitrary-0.4)
|
||
("rust-arg-enum-proc-macro" ,rust-arg-enum-proc-macro-0.3)
|
||
("rust-arrayvec" ,rust-arrayvec-0.7)
|
||
("rust-av-metrics" ,rust-av-metrics-0.9)
|
||
("rust-av1-grain" ,rust-av1-grain-0.2)
|
||
("rust-backtrace" ,rust-backtrace-0.3)
|
||
("rust-bitstream-io" ,rust-bitstream-io-1)
|
||
("rust-built" ,rust-built-0.5)
|
||
("rust-byteorder" ,rust-byteorder-1)
|
||
("rust-cc" ,rust-cc-1)
|
||
("rust-cfg-if" ,rust-cfg-if-1)
|
||
("rust-clap" ,rust-clap-4)
|
||
("rust-clap-complete" ,rust-clap-complete-4)
|
||
("rust-console" ,rust-console-0.15)
|
||
("rust-const-fn-assert" ,rust-const-fn-assert-0.1)
|
||
("rust-crossbeam" ,rust-crossbeam-0.8)
|
||
("rust-dav1d-sys" ,rust-dav1d-sys-0.7)
|
||
("rust-fern" ,rust-fern-0.6)
|
||
("rust-image" ,rust-image-0.24)
|
||
("rust-interpolate-name" ,rust-interpolate-name-0.2)
|
||
("rust-itertools" ,rust-itertools-0.10)
|
||
("rust-ivf" ,rust-ivf-0.1)
|
||
("rust-libc" ,rust-libc-0.2)
|
||
("rust-libfuzzer-sys" ,rust-libfuzzer-sys-0.3)
|
||
("rust-log" ,rust-log-0.4)
|
||
("rust-maybe-rayon" ,rust-maybe-rayon-0.1)
|
||
("rust-nasm-rs" ,rust-nasm-rs-0.2)
|
||
("rust-new-debug-unreachable" ,rust-new-debug-unreachable-1)
|
||
("rust-nom" ,rust-nom-7)
|
||
("rust-noop-proc-macro" ,rust-noop-proc-macro-0.3)
|
||
("rust-num-derive" ,rust-num-derive-0.3)
|
||
("rust-num-traits" ,rust-num-traits-0.2)
|
||
("rust-once-cell" ,rust-once-cell-1)
|
||
("rust-paste" ,rust-paste-1)
|
||
("rust-rand" ,rust-rand-0.8)
|
||
("rust-rand-chacha" ,rust-rand-chacha-0.3)
|
||
("rust-rust-hawktracer" ,rust-rust-hawktracer-0.7)
|
||
("rust-rustc-version" ,rust-rustc-version-0.4)
|
||
("rust-scan-fmt" ,rust-scan-fmt-0.2)
|
||
("rust-serde" ,rust-serde-1)
|
||
("rust-serde-big-array" ,rust-serde-big-array-0.4)
|
||
("rust-signal-hook" ,rust-signal-hook-0.3)
|
||
("rust-simd-helpers" ,rust-simd-helpers-0.1)
|
||
("rust-system-deps" ,rust-system-deps-6)
|
||
("rust-thiserror" ,rust-thiserror-1)
|
||
("rust-toml" ,rust-toml-0.5)
|
||
("rust-v-frame" ,rust-v-frame-0.3)
|
||
("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)
|
||
("rust-y4m" ,rust-y4m-0.7))
|
||
#:cargo-development-inputs
|
||
(("rust-assert-cmd" ,rust-assert-cmd-2)
|
||
("rust-criterion" ,rust-criterion-0.4)
|
||
("rust-interpolate-name" ,rust-interpolate-name-0.2)
|
||
("rust-nom" ,rust-nom-7)
|
||
("rust-pretty-assertions" ,rust-pretty-assertions-1)
|
||
("rust-quickcheck" ,rust-quickcheck-1)
|
||
("rust-quickcheck-macros" ,rust-quickcheck-macros-1)
|
||
("rust-rand" ,rust-rand-0.8)
|
||
("rust-rand-chacha" ,rust-rand-chacha-0.3)
|
||
("rust-semver" ,rust-semver-1))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'build
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(invoke "cargo" "cinstall" "--release"
|
||
(string-append "--prefix=" out)))))
|
||
(add-after 'install 'delete-static-library
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Delete 80 MiB (!) static library.
|
||
(delete-file (string-append (assoc-ref outputs "out")
|
||
"/lib/librav1e.a")))))))
|
||
(native-inputs
|
||
(list nasm pkg-config rust-cargo-c))
|
||
(inputs
|
||
(list libgit2 zlib))
|
||
(home-page "https://github.com/xiph/rav1e/")
|
||
(synopsis "Fast and safe AV1 encoder")
|
||
(description "@code{rav1e} is an AV1 video encoder. It is designed to
|
||
eventually cover all use cases, though in its current form it is most suitable
|
||
for cases where libaom (the reference encoder) is too slow.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public peek
|
||
(package
|
||
(name "peek")
|
||
(version "1.5.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/phw/peek")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1xwlfizga6hvjqq127py8vabaphsny928ar7mwqj9cyqfl6fx41x"))))
|
||
(build-system meson-build-system)
|
||
(arguments '(#:glib-or-gtk? #t))
|
||
(inputs
|
||
(list gtk+ python-wrapper))
|
||
(native-inputs
|
||
(list desktop-file-utils ; for update-desktop-database
|
||
gettext-minimal
|
||
`(,glib "bin") ; for glib-compile-resources
|
||
`(,gtk+ "bin") ; For gtk-update-icon-cache
|
||
pkg-config
|
||
vala))
|
||
(home-page "https://github.com/phw/peek")
|
||
(synopsis "Simple animated GIF screen recorder")
|
||
(description
|
||
"Peek makes it easy to create short screencasts of a screen area. It was
|
||
built for the specific use case of recording screen areas, e.g. for easily
|
||
showing UI features of your own apps or for showing a bug in bug reports.
|
||
With Peek, you simply place the Peek window over the area you want to record
|
||
and press \"Record\". Peek is optimized for generating animated GIFs, but you
|
||
can also directly record to WebM or MP4 if you prefer.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public wf-recorder
|
||
(package
|
||
(name "wf-recorder")
|
||
(version "0.3.0")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/ammen99/wf-recorder")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"18csvix8fdqir52q729rgcy355xy2ngvmr05l1abflpbvsklbn52"))))
|
||
(build-system meson-build-system)
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list ffmpeg pulseaudio wayland wayland-protocols libx264))
|
||
(home-page "https://github.com/ammen99/wf-recorder")
|
||
(synopsis "Screen recorder for wlroots-based compositors")
|
||
(description
|
||
"@code{wf-recorder} is a utility program for screen recording of
|
||
wlroots-based compositors. More specifically, those that support
|
||
@code{wlr-screencopy-v1} and @code{xdg-output}.")
|
||
(license license:expat)))
|
||
|
||
(define-public guvcview
|
||
(package
|
||
(name "guvcview")
|
||
(version "2.0.8")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/guvcview/source/guvcview-"
|
||
"src-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"108c4g0ns9i1wnxyalmpjqbhlflmrj855vxgggr6qrl6h924w7x2"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
;; There are no tests and "make check" would fail on an intltool error.
|
||
'(#:tests? #f))
|
||
(native-inputs
|
||
(list pkg-config intltool))
|
||
(inputs
|
||
(list bdb
|
||
gtk+
|
||
eudev
|
||
libjpeg-turbo
|
||
libusb
|
||
v4l-utils ;libv4l2
|
||
ffmpeg ;libavcodec, libavutil
|
||
sdl2
|
||
gsl
|
||
portaudio
|
||
alsa-lib))
|
||
(home-page "https://guvcview.sourceforge.net/")
|
||
(synopsis "Control your webcam and capture videos and images")
|
||
(description
|
||
"GTK+ UVC Viewer (guvcview) is a graphical application to control a
|
||
webcam accessible with Video4Linux (V4L2) and to capture videos and images.
|
||
It provides control over precise settings of the webcam such as exposure,
|
||
brightness, contrast, and frame rate.")
|
||
|
||
;; 'COPYING' is GPLv3 but source headers say GPLv2+.
|
||
(license license:gpl2+)))
|
||
|
||
(define-public get-iplayer
|
||
(package
|
||
(name "get-iplayer")
|
||
(version "3.30")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/get-iplayer/get_iplayer")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1kzsdq1mhm5h83bbdbhh3jhpfvq4f13ly22mfd6vvmhj8mq084pi"))))
|
||
(build-system perl-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(delete 'build)
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(man (string-append out "/share/man/man1")))
|
||
(install-file "get_iplayer" bin)
|
||
(install-file "get_iplayer.cgi" bin)
|
||
(install-file "get_iplayer.1" man))))
|
||
(add-after 'install 'wrap-program
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(perllib (string-append out "/lib/perl5/site_perl/"
|
||
,(package-version perl))))
|
||
(wrap-program (string-append out "/bin/get_iplayer")
|
||
`("PERL5LIB" ":"
|
||
prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))
|
||
(wrap-program (string-append out "/bin/get_iplayer.cgi")
|
||
`("PERL5LIB" ":"
|
||
prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))))))))
|
||
(inputs
|
||
(list perl-mojolicious perl-lwp-protocol-https perl-xml-libxml))
|
||
(home-page "https://github.com/get-iplayer/get_iplayer")
|
||
(synopsis "Download or stream available BBC iPlayer TV and radio programmes")
|
||
(description "@code{get_iplayer} lists, searches and records BBC iPlayer
|
||
TV/Radio, BBC Podcast programmes. Other third-party plugins may be available.
|
||
@code{get_iplayer} has three modes: recording a complete programme for later
|
||
playback, streaming a programme directly to a playback application, such as
|
||
mplayer; and as a @dfn{Personal Video Recorder} (PVR), subscribing to search
|
||
terms and recording programmes automatically. It can also stream or record live
|
||
BBC iPlayer output.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public ogmtools
|
||
(package
|
||
(name "ogmtools")
|
||
(version "1.5")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://www.bunkus.org/videotools/ogmtools/ogmtools-"
|
||
version
|
||
".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1spx81p5wf59ksl3r3gvf78d77sh7gj8a6lw773iv67bphfivmn8"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
(list libvorbis libdvdread))
|
||
(synopsis "Information, extraction or creation for OGG media streams")
|
||
(description
|
||
"These tools allow information about (@code{ogminfo}) or extraction from
|
||
\(@code{ogmdemux}) or creation of (@code{ogmmerge}) OGG media streams. It
|
||
includes @code{dvdxchap} tool for extracting chapter information from DVD.")
|
||
(license license:gpl2)
|
||
(home-page "https://www.bunkus.org/videotools/ogmtools/")))
|
||
|
||
(define-public libcaption
|
||
(package
|
||
(name "libcaption")
|
||
(version "0.7")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/szatmary/libcaption")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"16mhw8wpl7wdjj4n7rd1c294p1r8r322plj7z91crla5aah726rq"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; Cannot figure out how to run the unit tests
|
||
#:configure-flags '("-DENABLE_RE2C=ON")))
|
||
(native-inputs
|
||
(list re2c))
|
||
(synopsis "CEA608 / CEA708 closed-caption codec")
|
||
(description "Libcaption creates and parses closed-caption data,
|
||
providing an encoder / decoder for the EIA608 and CEA708 closed-caption
|
||
standards.
|
||
|
||
608 support is currently limited to encoding and decoding the necessary control
|
||
and preamble codes as well as support for the Basic North American, Special
|
||
North American and Extended Western European character sets.
|
||
|
||
708 support is limited to encoding the 608 data in NTSC field 1 user data type
|
||
structure.
|
||
|
||
In addition, utility functions to create h.264 SEI (Supplementary enhancement
|
||
information) NALUs (Network Abstraction Layer Unit) for inclusion into an h.264
|
||
elementary stream are provided.")
|
||
(home-page "https://github.com/szatmary/libcaption")
|
||
(license license:expat)))
|
||
|
||
(define-public video-contact-sheet
|
||
(package
|
||
(name "video-contact-sheet")
|
||
(version "1.13.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://p.outlyer.net/vcs/files/vcs-" version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0jsl93r0rnybjcipqbww5hwsr9ln6kz1qnf32qfxdvhfw52n27fw"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:make-flags
|
||
#~(list (string-append "prefix=" #$output))
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(delete 'build)
|
||
(delete 'check)
|
||
(add-after 'install 'wrap-program
|
||
(lambda _
|
||
(wrap-program (string-append #$output "/bin/vcs")
|
||
`("PATH" ":" prefix
|
||
,(map (lambda (dir)
|
||
(string-append dir "/bin"))
|
||
(list #$(this-package-input "ffmpeg")
|
||
#$(this-package-input "imagemagick"))))))))))
|
||
(inputs
|
||
(list bash-minimal ffmpeg imagemagick))
|
||
(synopsis "Create contact sheets (preview images) from videos")
|
||
(description "@acronym{VCS, Video Contact Sheet} is a Bash script meant to
|
||
create video contact sheets (previews) of videos. Any video supported by
|
||
MPlayer and FFmpeg can be used. A note of warning: Unlike most similar tools
|
||
VCS, by default, makes screenshots the same size as the video, see the manual
|
||
for details on how to change this.")
|
||
(home-page "https://p.outlyer.net/vcs/")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public svtplay-dl
|
||
(package
|
||
(name "svtplay-dl")
|
||
(version "4.17")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/spaam/svtplay-dl")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0yjxmvldskw4pji3lg69pbx05izvxahz9my7z5p31mkiz6v33dmx"))))
|
||
(build-system python-build-system)
|
||
(inputs (list ffmpeg python-pyaml python-requests python-pysocks
|
||
python-cryptography))
|
||
(home-page "https://svtplay-dl.se/")
|
||
(synopsis "Download or stream SVT Play's (and others) TV programmes")
|
||
(description
|
||
"@code{svtplay-dl} allows downloading TV programmes from various Swedish
|
||
broadcasters including SVT Play, Sveriges Radio, TV4 Play, along with many
|
||
others.")
|
||
(license license:expat)))
|