You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4087 lines
163 KiB
4087 lines
163 KiB
;;; 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 Mark H Weaver <mhw@netris.org>
|
|
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
|
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2015 Andy Patterson <ajpatter@uwaterloo.ca>
|
|
;;; Copyright © 2015, 2018, 2019, 2020 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 Andy Patterson <ajpatter@uwaterloo.ca>
|
|
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
|
|
;;; Copyright © 2016, 2018, 2019, 2020 Eric Bavier <bavier@posteo.net>
|
|
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
|
|
;;; Copyright © 2017 Feng Shu <tumashu@163.com>
|
|
;;; Copyright © 2017, 2018, 2019, 2020 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, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
|
|
;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz>
|
|
;;; Copyright © 2018, 2019, 2020 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 Oleg Pykhalov <go.wigust@gmail.com>
|
|
;;; Copyright © 2020 Josh Holland <josh@inv.alid.pw>
|
|
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
|
|
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
|
|
;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
|
|
;;; Copyright © 2020 Alex McGrath <amk@amk.ie>
|
|
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
|
|
;;;
|
|
;;; 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)
|
|
#: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 git-download)
|
|
#:use-module (guix svn-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 python)
|
|
#: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 bison)
|
|
#:use-module (gnu packages boost)
|
|
#:use-module (gnu packages cdrom)
|
|
#:use-module (gnu packages check)
|
|
#:use-module (gnu packages cmake)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages cpp)
|
|
#:use-module (gnu packages crates-io)
|
|
#:use-module (gnu packages curl)
|
|
#:use-module (gnu packages dejagnu)
|
|
#:use-module (gnu packages dns)
|
|
#:use-module (gnu packages docbook)
|
|
#:use-module (gnu packages documentation)
|
|
#:use-module (gnu packages elf)
|
|
#: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 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 image)
|
|
#:use-module (gnu packages imagemagick)
|
|
#:use-module (gnu packages iso-codes)
|
|
#:use-module (gnu packages libidn)
|
|
#:use-module (gnu packages libreoffice)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu packages lua)
|
|
#:use-module (gnu packages m4)
|
|
#:use-module (gnu packages man)
|
|
#:use-module (gnu packages markup)
|
|
#:use-module (gnu packages mp3)
|
|
#:use-module (gnu packages ncurses)
|
|
#:use-module (gnu packages networking)
|
|
#:use-module (gnu packages ocr)
|
|
#:use-module (gnu packages perl)
|
|
#:use-module (gnu packages perl-check)
|
|
#: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-crypto)
|
|
#:use-module (gnu packages python-web)
|
|
#:use-module (gnu packages python-xyz)
|
|
#:use-module (gnu packages qt)
|
|
#:use-module (gnu packages rdesktop)
|
|
#: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 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 webkit)
|
|
#: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 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)
|
|
(native-inputs
|
|
`(("makeinfo" ,texinfo)))
|
|
(inputs
|
|
`(("ncurses" ,ncurses)))
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda* (#:key build inputs outputs #:allow-other-keys)
|
|
;; This old `configure' script doesn't support
|
|
;; variables passed as arguments.
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(ncurses (assoc-ref inputs "ncurses")))
|
|
(setenv "CONFIG_SHELL" (which "bash"))
|
|
(invoke "./configure"
|
|
(string-append "--prefix=" out)
|
|
(string-append "--build=" build)
|
|
;; The ancient config.guess is unable to
|
|
;; guess the host triplet on mips64el.
|
|
,@(if (string=? "mips64el-linux"
|
|
(%current-system))
|
|
'("--host=mips64el-unknown-linux-gnu")
|
|
'())
|
|
;; The same is also true with aarch64.
|
|
,@(if (string=? "aarch64-linux"
|
|
(%current-system))
|
|
'("--host=aarch64-unknown-linux-gnu")
|
|
'())
|
|
(string-append "--with-ncurses="
|
|
ncurses))))))))
|
|
(home-page "http://aa-project.sourceforge.net/aalib/")
|
|
(synopsis "ASCII-art library")
|
|
(description
|
|
"AA-lib is a low level gfx library which does not require graphics device.
|
|
In fact, there is no graphical output possible. AA-lib replaces those
|
|
old-fashioned output methods with powerful ascii-art renderer.")
|
|
(license license:lgpl2.0+)))
|
|
|
|
(define-public celluloid
|
|
(package
|
|
(name "celluloid")
|
|
(version "0.19")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://github.com/celluloid-player/celluloid/releases"
|
|
"/download/v" version "/celluloid-" version ".tar.xz"))
|
|
(sha256
|
|
(base32 "1s3qkism96gi44incvsb6rqg255qcvjvw61ya7nw30md0sapj4sl"))))
|
|
(build-system glib-or-gtk-build-system)
|
|
(native-inputs
|
|
`(("intltool" ,intltool)
|
|
("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("gtk+" ,gtk+)
|
|
("libepoxy" ,libepoxy)
|
|
("mpv" ,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
|
|
`(("autoconf" ,autoconf)
|
|
("automake" ,automake)
|
|
("libtool" ,libtool)))
|
|
(arguments `(#:configure-flags '("--enable-shared")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
;; XXX We need to run ./bootstrap because of the build
|
|
;; system fixes above.
|
|
(replace 'bootstrap
|
|
(lambda _ (invoke "sh" "bootstrap"))))))
|
|
(home-page "http://liba52.sourceforge.net/")
|
|
(synopsis "ATSC A/52 stream decoder")
|
|
(description "liba52 is a library for decoding ATSC A/52 streams. The
|
|
A/52 standard is used in a variety of applications, including digital
|
|
television and DVD. It is also known as AC-3.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public libaom
|
|
(package
|
|
(name "libaom")
|
|
(version "2.0.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
|
|
"1616xjhj6770ykn82ml741h8hx44v507iky3s9h7a5lnk9d4cxzy"))))
|
|
(build-system cmake-build-system)
|
|
(native-inputs
|
|
`(("perl" ,perl)
|
|
("pkg-config" ,pkg-config)
|
|
("python" ,python))) ; to detect the version
|
|
(arguments
|
|
`(#:tests? #f ;no check target
|
|
#:configure-flags
|
|
;; build dynamic library
|
|
(list "-DBUILD_SHARED_LIBS=YES"
|
|
"-DENABLE_PIC=TRUE"
|
|
"-DAOM_TARGET_CPU=generic"
|
|
(string-append "-DCMAKE_INSTALL_PREFIX="
|
|
(assoc-ref %outputs "out")))))
|
|
(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
|
|
`(("libx11" ,libx11)
|
|
("libxext" ,libxext)
|
|
("libxv" ,libxv)
|
|
("libsm" ,libsm)
|
|
("libice" ,libice)
|
|
("sdl" ,sdl)))
|
|
(build-system gnu-build-system)
|
|
(home-page "http://libmpeg2.sourceforge.net/")
|
|
(synopsis "MPEG1 and MPEG2 video decoder library")
|
|
(description
|
|
"libmpeg2 is a library which can decode MPEG1 and MPEG2 video streams.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public libx264
|
|
;; There are no tags in the repository, so we take the version number from
|
|
;; the X264_BUILD variable defined in x264.h.
|
|
(let ((version "159")
|
|
(commit "1771b556ee45207f8711744ccbd5d42a3949b14c")
|
|
(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
|
|
"0kmi78gs5101d4df33il5bmjbns54nvdjsyn44xiw60lwsg11vwz"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)
|
|
("nasm" ,nasm)))
|
|
;; 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"
|
|
|
|
;; 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")
|
|
'()))))
|
|
(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 "37.0.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://mkvtoolnix.download/sources/"
|
|
"mkvtoolnix-" version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0r4d9318ymb9a0mkc0shi9p4kjy3m70s49v4f8dmjhvj63silhix"))
|
|
(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
|
|
`(("boost" ,boost)
|
|
("bzip2" ,bzip2)
|
|
("cmark" ,cmark)
|
|
("libebml" ,libebml)
|
|
("file" ,file)
|
|
("flac" ,flac)
|
|
("fmt" ,fmt)
|
|
("libmatroska" ,libmatroska)
|
|
("libogg" ,libogg)
|
|
("libvorbis" ,libvorbis)
|
|
("lzo" ,lzo)
|
|
("pugixml" ,pugixml)
|
|
("qtbase" ,qtbase)
|
|
("qtmultimedia" ,qtmultimedia)
|
|
("utfcpp" ,utfcpp)
|
|
("zlib" ,zlib)))
|
|
(native-inputs
|
|
`(("docbook-xsl" ,docbook-xsl)
|
|
("gettext" ,gettext-minimal)
|
|
("googletest" ,googletest)
|
|
("libxslt" ,libxslt)
|
|
("json-modern-cxx" ,json-modern-cxx)
|
|
("perl" ,perl)
|
|
("pkg-config" ,pkg-config)
|
|
("po4a" ,po4a)
|
|
("qttools" ,qttools)
|
|
("ruby" ,ruby)))
|
|
(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 '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
|
|
(string-append (assoc-ref inputs "googletest")
|
|
"/include/gtest") "lib/gtest")
|
|
#t))
|
|
(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 straw-viewer
|
|
(package
|
|
(name "straw-viewer")
|
|
(version "0.0.2")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/trizen/straw-viewer")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "067j8wdfy29bi5ahky10xzzs8cr3mn95wl4kyqqjvjzri77a25j3"))))
|
|
(build-system perl-build-system)
|
|
(native-inputs
|
|
`(("perl-module-build" ,perl-module-build)
|
|
("perl-test-pod" ,perl-test-pod)))
|
|
(inputs
|
|
`(("perl-data-dump" ,perl-data-dump)
|
|
("perl-json" ,perl-json)
|
|
("perl-libwww" ,perl-libwww)
|
|
("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
|
|
("perl-lwp-useragent-cached" ,perl-lwp-useragent-cached)
|
|
("perl-mozilla-ca" ,perl-mozilla-ca)
|
|
("perl-term-readline-gnu" ,perl-term-readline-gnu)
|
|
("perl-unicode-linebreak" ,perl-unicode-linebreak)
|
|
("xdg-utils" ,xdg-utils)
|
|
|
|
;; Some videos play without youtube-dl, but others silently fail to.
|
|
("youtube-dl" ,youtube-dl)))
|
|
|
|
;; Required only when building the graphical interface (--gtk).
|
|
;;("perl-file-sharedir" ,perl-file-sharedir)
|
|
(arguments
|
|
`(#:modules ((guix build perl-build-system)
|
|
(guix build utils)
|
|
(srfi srfi-26))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'refer-to-inputs
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(substitute* "lib/WWW/StrawViewer.pm"
|
|
(("'youtube-dl'")
|
|
(format #f "'~a/bin/youtube-dl'"
|
|
(assoc-ref inputs "youtube-dl"))))
|
|
(substitute* "bin/gtk-straw-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-straw-viewer.desktop"
|
|
(string-append sharedir "/applications"))
|
|
(install-file "share/icons/gtk-straw-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
|
|
"Light-weight application for searching and streaming videos from YouTube")
|
|
(description
|
|
"Straw-viewer searches for YouTube videos using @uref{https://invidio.us/,
|
|
invidio.us} and plays them locally in a native media player like @command{vlc}
|
|
or @command{mpv}.
|
|
|
|
You can search for videos, playlists, and/or channels. The videos are streamed
|
|
directly to the player at the best chosen resolution and with closed captions if
|
|
available.")
|
|
;; XXX Add #:module-build-flags '("--gtk") dependencies and this sentence.
|
|
;; Both a command-line and a graphical interface are available.
|
|
(home-page "https://github.com/trizen/youtube-viewer")
|
|
(license license:perl-license)))
|
|
|
|
(define-public x265
|
|
(package
|
|
(name "x265")
|
|
(version "3.3")
|
|
(outputs '("out" "static"))
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (list (string-append "https://bitbucket.org/multicoreware/x265"
|
|
"/downloads/x265_" version ".tar.gz")
|
|
(string-append "https://download.videolan.org/videolan/x265/"
|
|
"x265_" version ".tar.gz")))
|
|
(sha256
|
|
(base32 "170b61cgpcs5n35qps0p40dqs1q81vkgagzbs4zv7pzls6718vpj"))
|
|
(patches (search-patches "x265-arm-flags.patch"))
|
|
(modules '((guix build utils)))
|
|
(snippet '(begin
|
|
(delete-file-recursively "source/compat/getopt")
|
|
#t))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; tests are skipped if cpu-optimized code isn't built
|
|
#:configure-flags
|
|
;; Ensure position independent code for everyone.
|
|
(list "-DENABLE_PIC=TRUE"
|
|
,@(if (string-prefix? "armhf" (or (%current-system)
|
|
(%current-target-system)))
|
|
'("-DENABLE_ASSEMBLY=OFF")
|
|
'())
|
|
(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")
|
|
;; recognize armv8 in 32-bit mode as ARM
|
|
(substitute* "CMakeLists.txt"
|
|
(("armv6l") "armv8l"))
|
|
#t))
|
|
(add-before 'configure 'build-12-bit
|
|
(lambda* (#:key (configure-flags '()) #:allow-other-keys)
|
|
(mkdir "../build-12bit")
|
|
(with-directory-excursion "../build-12bit"
|
|
(apply invoke
|
|
"cmake" "../source"
|
|
"-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"))
|
|
(invoke "make"))))
|
|
(add-before 'configure 'build-10-bit
|
|
(lambda* (#:key (configure-flags '()) #:allow-other-keys)
|
|
(mkdir "../build-10bit")
|
|
(with-directory-excursion "../build-10bit"
|
|
(apply invoke
|
|
"cmake" "../source"
|
|
"-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"))
|
|
(invoke "make"))))
|
|
(add-after 'install 'install-more-libs
|
|
(lambda _
|
|
(with-directory-excursion "../build-12bit"
|
|
(invoke "make" "install"))
|
|
(with-directory-excursion "../build-10bit"
|
|
(invoke "make" "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$"))))
|
|
#t)))))
|
|
(home-page "http://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.14.0")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://github.com/libass/libass/releases/download/"
|
|
version "/libass-" version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"18iqznl4mabhj9ywfsz4kwvbsplcv1jjxq50nxssvbj8my1267w8"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)
|
|
("nasm" ,nasm)))
|
|
(propagated-inputs
|
|
`(("freetype" ,freetype)
|
|
("fribidi" ,fribidi)
|
|
("fontconfig" ,fontconfig)
|
|
("harfbuzz" ,harfbuzz)
|
|
("enca" ,enca)))
|
|
(home-page "https://github.com/libass/libass")
|
|
(synopsis "Subtitle rendering library for the ASS/SSA format")
|
|
(description "libass is a subtitle rendering library for the
|
|
ASS/SSA (Advanced Substation Alpha/SubStation Alpha) subtitle format.")
|
|
(license license:isc)))
|
|
|
|
(define-public libcaca
|
|
(package
|
|
(name "libcaca")
|
|
(version "0.99.beta19")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://caca.zoy.org/files/libcaca/libcaca-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1x3j6yfyxl52adgnabycr0n38j9hx2j74la0hz0n8cnh9ry4d2qj"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs `(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("freeglut" ,freeglut)
|
|
("ftgl" ,ftgl)
|
|
("imlib2" ,imlib2)
|
|
("libx11" ,libx11)
|
|
("mesa" ,mesa)
|
|
("ncurses" ,ncurses)
|
|
("zlib" ,zlib)))
|
|
(home-page "http://caca.zoy.org/wiki/libcaca")
|
|
(synopsis "Colour ASCII-art library")
|
|
(description "libcaca is a graphics library that outputs text instead of
|
|
pixels, so that it can work on older video cards or text terminals. It
|
|
supports Unicode, 2048 colors, dithering of color images, and advanced text
|
|
canvas operations.")
|
|
(license license: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
|
|
`(("autoconf" ,autoconf)
|
|
("automake" ,automake)
|
|
("libtool" ,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 `(("pkg-config" ,pkg-config)))
|
|
(inputs `(("libxv" ,libxv)))
|
|
(home-page "http://libdv.sourceforge.net/")
|
|
(synopsis "DV video (IEC 61834 and SMPTE 314M) codec")
|
|
(description "The Quasar DV codec (libdv) is a software codec for DV
|
|
video, the encoding format used by most digital camcorders, typically those
|
|
that support the IEEE 1394 (a.k.a. FireWire or i.Link) interface. Libdv was
|
|
developed according to the official standards for DV video: IEC 61834 and
|
|
SMPTE 314M.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public libmatroska
|
|
(package
|
|
(name "libmatroska")
|
|
(version "1.5.2")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://dl.matroska.org/downloads/"
|
|
"libmatroska/libmatroska-" version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0qn9lfs0877wbv581yxw2gywxywxpvwslc5q07q4f7bqpyzxxiha"))))
|
|
(build-system cmake-build-system)
|
|
(inputs
|
|
`(("libebml" ,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 libva
|
|
(package
|
|
(name "libva")
|
|
(version "2.6.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (list
|
|
;; Newer releases are only available on GitHub.
|
|
(string-append "https://github.com/01org/libva/releases/download/"
|
|
version "/libva-" version ".tar.bz2")
|
|
;; Keep the old URL around for compatibility.
|
|
(string-append "https://www.freedesktop.org/software/vaapi/releases/"
|
|
"libva/libva-" version "/libva-" version ".tar.bz2")))
|
|
(sha256
|
|
(base32 "19df3r02k1p4cbyvifkdjyc8q7hi23f5b3x3390z52l25mjfnmvc"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("libdrm" ,libdrm)
|
|
("libx11" ,libx11)
|
|
("libxext" ,libxext)
|
|
("libxfixes" ,libxfixes)
|
|
("mesa" ,mesa)
|
|
("wayland" ,wayland)))
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before
|
|
'build 'fix-dlopen-paths
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out")))
|
|
(substitute* "va/drm/va_drm_auth_x11.c"
|
|
(("\"libva-x11\\.so\\.%d\"")
|
|
(string-append "\"" out "/lib/libva-x11.so.%d\"")))
|
|
#t))))
|
|
;; Most drivers are in mesa's $prefix/lib/dri, so use that. (Can be
|
|
;; overridden at run-time via LIBVA_DRIVERS_PATH.)
|
|
#:configure-flags
|
|
(list (string-append "--with-drivers-path="
|
|
(assoc-ref %build-inputs "mesa") "/lib/dri"))
|
|
;; However, we can't write to mesa's store directory, so override the
|
|
;; following make variable to install the dummy driver to libva's
|
|
;; $prefix/lib/dri directory.
|
|
#:make-flags
|
|
(list (string-append "dummy_drv_video_ladir="
|
|
(assoc-ref %outputs "out") "/lib/dri"))))
|
|
(home-page "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.5.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://github.com/intel/libva-utils/releases/download/"
|
|
version "/libva-utils-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32 "05rasyqnsg522zqxak1q8rrm1hys7wwbi41kd0szjq0d27awjf4j"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list "--enable-wayland"
|
|
"--enable-x11")))
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("libdrm" ,libdrm)
|
|
("libva" ,libva)
|
|
("libx11" ,libx11)
|
|
("mesa" ,mesa)
|
|
("wayland" ,wayland)))
|
|
(home-page "https://01.org/linuxmedia/vaapi")
|
|
(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 "4.2.2")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
|
version ".tar.xz"))
|
|
;; See <https://issues.guix.gnu.org/issue/39719>
|
|
(patches (search-patches "ffmpeg-prefer-dav1d.patch"))
|
|
(sha256
|
|
(base32
|
|
"176jn1lcdf0gk7sa5l2mv0faqp5dsqdhx1gqcrgymqhfmdal4xfb"))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("dav1d" ,dav1d)
|
|
("fontconfig" ,fontconfig)
|
|
("freetype" ,freetype)
|
|
("frei0r-plugins" ,frei0r-plugins)
|
|
("gnutls" ,gnutls)
|
|
("opus" ,opus)
|
|
("ladspa" ,ladspa)
|
|
("lame" ,lame)
|
|
("libaom" ,libaom)
|
|
("libass" ,libass)
|
|
("libbluray" ,libbluray)
|
|
("libcaca" ,libcaca)
|
|
("libcdio-paranoia" ,libcdio-paranoia)
|
|
("libdrm" ,libdrm)
|
|
("libtheora" ,libtheora)
|
|
("libva" ,libva)
|
|
("libvdpau" ,libvdpau)
|
|
("libvorbis" ,libvorbis)
|
|
("libvpx" ,libvpx)
|
|
("libx11" ,libx11)
|
|
("libx264" ,libx264)
|
|
("mesa" ,mesa)
|
|
("openal" ,openal)
|
|
("pulseaudio" ,pulseaudio)
|
|
("sdl" ,sdl2)
|
|
("soxr" ,soxr)
|
|
("speex" ,speex)
|
|
("twolame" ,twolame)
|
|
("vidstab" ,vidstab)
|
|
("x265" ,x265)
|
|
("xvid" ,xvid)
|
|
("zlib" ,zlib)))
|
|
(native-inputs
|
|
`(("bc" ,bc)
|
|
("perl" ,perl)
|
|
("pkg-config" ,pkg-config)
|
|
("texinfo" ,texinfo)
|
|
("python" ,python-2) ; scripts use interpreter python2
|
|
("speex" ,speex)
|
|
("yasm" ,yasm)))
|
|
(arguments
|
|
`(#:test-target "fate"
|
|
#:configure-flags
|
|
;; possible additional inputs:
|
|
;; --enable-avisynth enable reading of AviSynth script
|
|
;; files [no]
|
|
;; --enable-libaacplus enable AAC+ encoding via libaacplus [no]
|
|
;; --enable-libcelt enable CELT decoding via libcelt [no]
|
|
;; --enable-libdc1394 enable IIDC-1394 grabbing using libdc1394
|
|
;; and libraw1394 [no]
|
|
;; --enable-libfaac enable AAC encoding via libfaac [no]
|
|
;; --enable-libfdk-aac enable AAC de/encoding via libfdk-aac [no]
|
|
;; --enable-libflite enable flite (voice synthesis) support via
|
|
;; libflite [no]
|
|
;; --enable-libgme enable Game Music Emu via libgme [no]
|
|
;; --enable-libgsm enable GSM de/encoding via libgsm [no]
|
|
;; --enable-libiec61883 enable iec61883 via libiec61883 [no]
|
|
;; --enable-libilbc enable iLBC de/encoding via libilbc [no]
|
|
;; --enable-libmodplug enable ModPlug via libmodplug [no]
|
|
;; --enable-libnut enable NUT (de)muxing via libnut,
|
|
;; native (de)muxer exists [no]
|
|
;; --enable-libopencore-amrnb enable AMR-NB de/encoding via
|
|
;; libopencore-amrnb [no]
|
|
;; --enable-libopencore-amrwb enable AMR-WB decoding via
|
|
;; libopencore-amrwb [no]
|
|
;; --enable-libopencv enable video filtering via libopencv [no]
|
|
;; --enable-libopenjpeg enable JPEG 2000 de/encoding via
|
|
;; OpenJPEG [no]
|
|
;; --enable-librtmp enable RTMP[E] support via librtmp [no]
|
|
;; --enable-libschroedinger enable Dirac de/encoding via
|
|
;; libschroedinger [no]
|
|
;; --enable-libshine enable fixed-point MP3 encoding via
|
|
;; libshine [no]
|
|
;; --enable-libssh enable SFTP protocol via libssh [no]
|
|
;; (libssh2 does not work)
|
|
;; --enable-libstagefright-h264 enable H.264 decoding via
|
|
;; libstagefright [no]
|
|
;; --enable-libutvideo enable Ut Video encoding and decoding via
|
|
;; libutvideo [no]
|
|
;; --enable-libv4l2 enable libv4l2/v4l-utils [no]
|
|
;; --enable-libvo-aacenc enable AAC encoding via libvo-aacenc [no]
|
|
;; --enable-libvo-amrwbenc enable AMR-WB encoding via
|
|
;; libvo-amrwbenc [no]
|
|
;; --enable-libwavpack enable wavpack encoding via libwavpack [no]
|
|
;; --enable-libxavs enable AVS encoding via xavs [no]
|
|
;; --enable-libzmq enable message passing via libzmq [no]
|
|
;; --enable-libzvbi enable teletext support via libzvbi [no]
|
|
;; --enable-opencl enable OpenCL code
|
|
'("--enable-avresample"
|
|
"--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"
|
|
"--enable-libsoxr"
|
|
"--enable-libspeex"
|
|
"--enable-libtheora"
|
|
"--enable-libtwolame"
|
|
"--enable-libvidstab"
|
|
"--enable-libvorbis"
|
|
"--enable-libvpx"
|
|
"--enable-libxvid"
|
|
"--enable-libx264"
|
|
"--enable-libx265"
|
|
"--enable-openal"
|
|
"--enable-opengl"
|
|
"--enable-libdrm"
|
|
|
|
"--enable-runtime-cpudetect"
|
|
|
|
;; The HTML pages take 7.2 MiB
|
|
"--disable-htmlpages"
|
|
|
|
;; The static libraries are 23 MiB
|
|
"--disable-static"
|
|
|
|
;; 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)
|
|
#t))))))
|
|
(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-3.4
|
|
(package
|
|
(inherit ffmpeg)
|
|
(version "3.4.7")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"1j7mdk9szrljgv4sdx69bm1pnbb3cldbdxbkr42jbdi9zn11gl7g"))))
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments ffmpeg)
|
|
((#:configure-flags flags)
|
|
`(delete "--enable-libdav1d" (delete "--enable-libaom"
|
|
,flags)))))
|
|
(inputs (alist-delete "dav1d" (alist-delete "libaom"
|
|
(package-inputs ffmpeg))))))
|
|
|
|
(define-public ffmpeg-for-stepmania
|
|
(hidden-package
|
|
(package
|
|
(inherit ffmpeg)
|
|
(version "2.1.3")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/stepmania/ffmpeg.git")
|
|
(commit "eda6effcabcf9c238e4635eb058d72371336e09b")))
|
|
(sha256
|
|
(base32 "1by8rmbva8mfrivdbbkr2gx4kga89zqygkd4cfjl76nr8mdcdamb"))
|
|
(file-name (git-file-name "ffmpeg" version))))
|
|
(arguments
|
|
(substitute-keyword-arguments (package-arguments ffmpeg)
|
|
((#: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.git")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1bakbr714j7yxdal1f5iq0gcl4cxggbbgj227ihdh5kvygqlwich"))))
|
|
(build-system cmake-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("ffmpeg" ,ffmpeg)
|
|
("libjpeg-turbo" ,libjpeg-turbo)
|
|
("libpng" ,libpng)
|
|
("gvfs" ,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.10")
|
|
(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
|
|
"0cackl1084hcmg4myf3kvjvd6sjxmzn0c0qkmanz6brvgzyanrm9"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("flex" ,flex)
|
|
("bison" ,bison)
|
|
("gettext" ,gettext-minimal)
|
|
("git" ,git) ; needed for a test
|
|
("pkg-config" ,pkg-config)))
|
|
;; FIXME: Add optional inputs once available.
|
|
(inputs
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("avahi" ,avahi)
|
|
;; XXX Try removing dav1d here and testing AV1 playback when FFmpeg 4.3
|
|
;; is released.
|
|
;; <https://issues.guix.gnu.org/issue/39719>
|
|
("dav1d" ,dav1d)
|
|
("dbus" ,dbus)
|
|
("eudev" ,eudev)
|
|
("flac" ,flac)
|
|
("ffmpeg" ,ffmpeg)
|
|
("fontconfig" ,fontconfig)
|
|
("freetype" ,freetype)
|
|
("fribidi" ,fribidi)
|
|
("gnutls" ,gnutls)
|
|
("liba52" ,liba52)
|
|
("libarchive" ,libarchive)
|
|
("libass" ,libass)
|
|
("libavc1394" ,libavc1394)
|
|
("libbluray" ,libbluray)
|
|
("libcaca" ,libcaca)
|
|
("libcddb" ,libcddb)
|
|
("libdca" ,libdca)
|
|
("libdvbpsi" ,libdvbpsi)
|
|
("libdvdnav" ,libdvdnav)
|
|
("libdvdread" ,libdvdread)
|
|
("libebml" ,libebml)
|
|
("libgcrypt" ,libgcrypt)
|
|
("libidn" ,libidn)
|
|
("libkate" ,libkate)
|
|
("libmad" ,libmad)
|
|
("libmatroska" ,libmatroska)
|
|
("libmicrodns" ,libmicrodns)
|
|
("libmodplug" ,libmodplug)
|
|
("libmpeg2" ,libmpeg2)
|
|
("libogg" ,libogg)
|
|
("libpng" ,libpng)
|
|
("libraw1394" ,libraw1394)
|
|
("librsvg" ,librsvg)
|
|
("libsamplerate" ,libsamplerate)
|
|
("libsecret" ,libsecret)
|
|
("libssh2" ,libssh2)
|
|
("libupnp" ,libupnp)
|
|
("libva" ,libva)
|
|
("libvdpau" ,libvdpau)
|
|
("libvorbis" ,libvorbis)
|
|
("libvpx" ,libvpx)
|
|
("libtheora" ,libtheora)
|
|
("libx264" ,libx264)
|
|
("libxext" ,libxext)
|
|
("libxi" ,libxi)
|
|
("libxinerama" ,libxinerama)
|
|
("libxml2" ,libxml2)
|
|
("libxpm" ,libxpm)
|
|
("livemedia-utils" ,livemedia-utils)
|
|
("lua" ,lua-5.2)
|
|
("mesa" ,mesa)
|
|
("opus" ,opus)
|
|
("perl" ,perl)
|
|
("pulseaudio" ,pulseaudio)
|
|
("protobuf" ,protobuf)
|
|
("python" ,python-wrapper)
|
|
("qtbase" ,qtbase)
|
|
("qtsvg" ,qtsvg)
|
|
("qtx11extras" ,qtx11extras)
|
|
("samba" ,samba)
|
|
("sdl" ,sdl)
|
|
("sdl-image" ,sdl-image)
|
|
("speex" ,speex)
|
|
("speexdsp" ,speexdsp)
|
|
("taglib" ,taglib)
|
|
("twolame" ,twolame)
|
|
("unzip" ,unzip)
|
|
("wayland" ,wayland)
|
|
("wayland-protocols" ,wayland-protocols)
|
|
("x265" ,x265)
|
|
("xcb-util-keysyms" ,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.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public mplayer
|
|
(package
|
|
(name "mplayer")
|
|
(version "1.4")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://www.mplayerhq.hu/MPlayer/releases/MPlayer-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"0j5mflr0wnklxsvnpmxvk704hscyn2785hvvihj2i3a7b3anwnc2"))))
|
|
(build-system gnu-build-system)
|
|
;; FIXME: Add additional inputs once available.
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)
|
|
("yasm" ,yasm)))
|
|
(inputs
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("cdparanoia" ,cdparanoia)
|
|
("ffmpeg" ,ffmpeg)
|
|
("fontconfig" ,fontconfig)
|
|
("freetype" ,freetype)
|
|
("giflib" ,giflib)
|
|
("lame" ,lame)
|
|
("libass" ,libass)
|
|
("libdvdcss" ,libdvdcss)
|
|
("libdvdnav" ,libdvdnav) ; ignored without libdvdread
|
|
("libdvdread" ,libdvdread) ; ignored without libdvdnav
|
|
("libjpeg" ,libjpeg-turbo)
|
|
("libmpeg2" ,libmpeg2)
|
|
("libmpg123" ,mpg123) ; audio codec for MP3
|
|
("libpng" ,libpng)
|
|
("libtheora" ,libtheora)
|
|
("libvdpau" ,libvdpau)
|
|
("libvorbis" ,libvorbis)
|
|
("libx11" ,libx11)
|
|
("libx264" ,libx264)
|
|
("libxinerama" ,libxinerama)
|
|
("libxv" ,libxv)
|
|
("libxxf86dga" ,libxxf86dga)
|
|
("mesa" ,mesa)
|
|
("opus" ,opus)
|
|
("perl" ,perl)
|
|
("pulseaudio" ,pulseaudio)
|
|
("python" ,python-wrapper)
|
|
("sdl" ,sdl)
|
|
("speex" ,speex)
|
|
("zlib" ,zlib)))
|
|
(arguments
|
|
`(#:tests? #f ; no test target
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'configure
|
|
;; configure does not work followed by "SHELL=..." and
|
|
;; "CONFIG_SHELL=..."; set environment variables instead
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(libx11 (assoc-ref inputs "libx11")))
|
|
(substitute* "configure"
|
|
(("#! /bin/sh") (string-append "#!" (which "sh"))))
|
|
(setenv "SHELL" (which "bash"))
|
|
(setenv "CONFIG_SHELL" (which "bash"))
|
|
(invoke "./configure"
|
|
(string-append "--extra-cflags=-I"
|
|
libx11 "/include") ; to detect libx11
|
|
"--disable-ffmpeg_a" ; disables bundled ffmpeg
|
|
(string-append "--prefix=" out)
|
|
;; Enable runtime cpu detection where supported,
|
|
;; and choose a suitable target.
|
|
,@(match (or (%current-target-system)
|
|
(%current-system))
|
|
("x86_64-linux"
|
|
'("--enable-runtime-cpudetection"
|
|
"--target=x86_64-linux"))
|
|
("i686-linux"
|
|
'("--enable-runtime-cpudetection"
|
|
"--target=i686-linux"))
|
|
("mips64el-linux"
|
|
'("--target=mips3-linux"))
|
|
(_ (list (string-append
|
|
"--target="
|
|
(or (%current-target-system)
|
|
(nix-system->gnu-triplet
|
|
(%current-system)))))))
|
|
"--disable-iwmmxt")))))))
|
|
(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.32.0")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/mpv-player/mpv.git")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0kmy1q0hp87vq4rpv7py04x8bpg1wmlzaibavmkf713jqp6qy596"))))
|
|
(build-system waf-build-system)
|
|
(native-inputs
|
|
`(("perl" ,perl) ; for zsh completion file
|
|
("pkg-config" ,pkg-config)
|
|
("python-docutils" ,python-docutils)))
|
|
;; Missing features: libguess, V4L2
|
|
(inputs
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("enca" ,enca)
|
|
("ffmpeg" ,ffmpeg)
|
|
("jack" ,jack-1)
|
|
("ladspa" ,ladspa)
|
|
("lcms" ,lcms)
|
|
("libass" ,libass)
|
|
("libbluray" ,libbluray)
|
|
("libcaca" ,libcaca)
|
|
("libbs2b" ,libbs2b)
|
|
("libcdio-paranoia" ,libcdio-paranoia)
|
|
("libdvdread" ,libdvdread)
|
|
("libdvdnav" ,libdvdnav)
|
|
("libjpeg" ,libjpeg-turbo)
|
|
("libva" ,libva)
|
|
("libvdpau" ,libvdpau)
|
|
("libx11" ,libx11)
|
|
("libxext" ,libxext)
|
|
("libxinerama" ,libxinerama)
|
|
("libxrandr" ,libxrandr)
|
|
("libxscrnsaver" ,libxscrnsaver)
|
|
("libxv" ,libxv)
|
|
;; XXX: lua > 5.2 is not currently supported; see
|
|
;; waftools/checks/custom.py
|
|
("lua" ,lua-5.2)
|
|
("mesa" ,mesa)
|
|
("mpg123" ,mpg123)
|
|
("pulseaudio" ,pulseaudio)
|
|
("rsound" ,rsound)
|
|
("shaderc" ,shaderc)
|
|
("vulkan-headers" ,vulkan-headers)
|
|
("vulkan-loader" ,vulkan-loader)
|
|
("waf" ,python-waf)
|
|
("wayland" ,wayland)
|
|
("wayland-protocols" ,wayland-protocols)
|
|
("libxkbcommon" ,libxkbcommon)
|
|
("youtube-dl" ,youtube-dl)
|
|
("zlib" ,zlib)))
|
|
(arguments
|
|
'(#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after
|
|
'unpack 'patch-paths
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((ytdl (assoc-ref inputs "youtube-dl")))
|
|
(substitute* "player/lua/ytdl_hook.lua"
|
|
(("\"youtube-dl\",")
|
|
(string-append "\"" ytdl "/bin/youtube-dl\",")))
|
|
#t)))
|
|
(add-before
|
|
'configure 'setup-waf
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(let ((waf (assoc-ref inputs "waf")))
|
|
(copy-file (string-append waf "/bin/waf") "waf"))
|
|
(setenv "CC" "gcc")
|
|
#t)))
|
|
#:configure-flags (list "--enable-libmpv-shared"
|
|
"--enable-cdda"
|
|
"--enable-dvdnav"
|
|
"--disable-build-date")
|
|
;; No check function defined.
|
|
#:tests? #f))
|
|
(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 gnome-mpv
|
|
(deprecated-package "gnome-mpv" celluloid))
|
|
|
|
(define-public mpv-mpris
|
|
(package
|
|
(name "mpv-mpris")
|
|
(version "0.4")
|
|
(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
|
|
"1fr3jvja8s2gdpx8qyk9r17977flms3qpm8zci62nd9r5wjdvr5i"))))
|
|
(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
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("glib" ,glib)
|
|
("mpv" ,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.8.2")
|
|
(source (origin
|
|
;; XXX: Upstream does not provide tarballs for > 1.6.1.
|
|
(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
|
|
"0gyq4fkbd2fv7m1mm9xrvn6rk6f4jsmbv8bnlhingmnrvyncnmnr"))
|
|
(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))))
|
|
#:tests? #f)) ; no check target
|
|
(native-inputs
|
|
`(("perl" ,perl)
|
|
("yasm" ,yasm)))
|
|
(synopsis "VP8/VP9 video codec")
|
|
(description "libvpx is a codec for the VP8/VP9 video compression format.")
|
|
(license license:bsd-3)
|
|
(home-page "https://www.webmproject.org/")))
|
|
|
|
(define-public youtube-dl
|
|
(package
|
|
(name "youtube-dl")
|
|
(version "2020.05.08")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://github.com/ytdl-org/youtube-dl/"
|
|
"releases/download/" version "/youtube-dl-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"16zxa8ss2rka7cvkqyi67s8i1h9f4nxx88w9vjbxchbga6w0scc6"))))
|
|
(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-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/")))
|
|
#t)))
|
|
(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"))
|
|
#t))))))
|
|
(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")
|
|
(license license:public-domain)))
|
|
|
|
(define-public youtube-dl-gui
|
|
(package
|
|
(name "youtube-dl-gui")
|
|
(version "0.3.8")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (pypi-uri "Youtube-DLG" version))
|
|
(sha256
|
|
(base32
|
|
"0napxwzgls5ik1bxbp99vly32l23xpc4ng5kr24hfhf21ypjyadb"))))
|
|
(build-system python-build-system)
|
|
(arguments
|
|
;; In Guix, wxpython has not yet been packaged for Python 3.
|
|
`(#:python ,python-2
|
|
;; This package has no tests.
|
|
#:tests? #f
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'build 'patch-source
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
;; The youtube-dl-gui program lets you configure options. Some of
|
|
;; them are problematic, so we change their defaults.
|
|
(substitute* "youtube_dl_gui/optionsmanager.py"
|
|
;; When this is true, the builder process will try (and fail) to
|
|
;; write logs to the builder user's home directory.
|
|
(("'enable_log': True") "'enable_log': False")
|
|
;; This determines which youtube-dl program youtube-dl-gui will
|
|
;; run. If we don't set this, then youtube-dl-gui might download
|
|
;; an arbitrary copy from the Internet into the user's home
|
|
;; directory and run it, so let's make sure youtube-dl-gui uses
|
|
;; the youtube-dl from the inputs by default.
|
|
(("'youtubedl_path': self.config_path")
|
|
(string-append "'youtubedl_path': '"
|
|
(assoc-ref inputs "youtube-dl")
|
|
"/bin'"))
|
|
;; When this is True, when youtube-dl-gui is finished downloading
|
|
;; a file, it will try (and possibly fail) to open the directory
|
|
;; containing the downloaded file. This can fail because it
|
|
;; assumes that xdg-open is in PATH. Unfortunately, simply
|
|
;; adding xdg-utils to the propagated inputs is not enough to
|
|
;; make this work, so for now we set the default to False.
|
|
(("'open_dl_dir': True") "'open_dl_dir': False"))
|
|
;; The youtube-dl program from the inputs is actually a wrapper
|
|
;; script written in bash, so attempting to invoke it as a python
|
|
;; script will fail.
|
|
(substitute* "youtube_dl_gui/downloaders.py"
|
|
(("cmd = \\['python', self\\.youtubedl_path\\]")
|
|
"cmd = [self.youtubedl_path]"))
|
|
;; Use relative paths for installing data files so youtube-dl-gui
|
|
;; installs the files relative to its prefix in the store, rather
|
|
;; than relative to /. Also, instead of installing data files into
|
|
;; $prefix/usr/share, install them into $prefix/share for
|
|
;; consistency (see: (standards) Directory Variables).
|
|
(substitute* "setup.py"
|
|
(("= '/usr/share") "= 'share"))
|
|
;; Update get_locale_file() so it finds the installed localization
|
|
;; files.
|
|
(substitute* "youtube_dl_gui/utils.py"
|
|
(("os\\.path\\.join\\('/usr', 'share'")
|
|
(string-append "os.path.join('"
|
|
(assoc-ref %outputs "out")
|
|
"', 'share'")))
|
|
#t))
|
|
(add-after 'install 'create-desktop-file
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(applications (string-append out "/share/applications")))
|
|
(mkdir-p applications)
|
|
(call-with-output-file
|
|
(string-append applications "/youtube-dl-gui.desktop")
|
|
(lambda (file)
|
|
(format
|
|
file
|
|
"[Desktop Entry]~@
|
|
Name=Youtube-dl GUI~@
|
|
Comment=Graphical interface to download video with youtube-dl~@
|
|
Exec=youtube-dl-gui~@
|
|
TryExec=youtube-dl-gui~@
|
|
Terminal=false~@
|
|
Icon=youtube-dl-gui~@
|
|
Type=Application~@
|
|
Categories=AudioVideo;Audio;Video;Network~%")))
|
|
#t))))))
|
|
(inputs
|
|
`(("python2-wxpython" ,python2-wxpython)
|
|
("youtube-dl" ,youtube-dl)))
|
|
(home-page "https://github.com/MrS0m30n3/youtube-dl-gui")
|
|
(synopsis
|
|
"GUI (Graphical User Interface) for @command{youtube-dl}")
|
|
(description
|
|
"Youtube-dlG is a GUI (Graphical User Interface) for
|
|
@command{youtube-dl}. You can use it to download videos from YouTube and any
|
|
other site that youtube-dl supports.")
|
|
(license license:unlicense)))
|
|
|
|
(define-public you-get
|
|
(package
|
|
(name "you-get")
|
|
(version "0.4.1410")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/soimort/you-get.git")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1v4lfldcijgngg0s4q5w4ixa0k8k75dwmkhf57pgb31bqlrr8h0s"))))
|
|
(build-system python-build-system)
|
|
(inputs
|
|
`(("ffmpeg" ,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 (string-append (assoc-ref inputs "ffmpeg")
|
|
"/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 "'")))
|
|
#t))))
|
|
#: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.7.5")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/trizen/youtube-viewer.git")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1caz56sxy554avz2vdv9gm7gyqcq0gyixzrh5v9ixmg6vxif5d4f"))))
|
|
(build-system perl-build-system)
|
|
(native-inputs
|
|
`(("perl-module-build" ,perl-module-build)))
|
|
(inputs
|
|
`(("perl-data-dump" ,perl-data-dump)
|
|
("perl-file-sharedir" ,perl-file-sharedir)
|
|
("perl-gtk2" ,perl-gtk2)
|
|
("perl-json" ,perl-json)
|
|
("perl-json-xs" ,perl-json-xs)
|
|
("perl-libwww" ,perl-libwww)
|
|
("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
|
|
("perl-lwp-useragent-cached" ,perl-lwp-useragent-cached)
|
|
("perl-mozilla-ca" ,perl-mozilla-ca)
|
|
("perl-term-readline-gnu" ,perl-term-readline-gnu)
|
|
("perl-unicode-linebreak" ,perl-unicode-linebreak)
|
|
("xdg-utils" ,xdg-utils)
|
|
|
|
;; Some videos play without youtube-dl, but others silently fail to.
|
|
("youtube-dl" ,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")
|
|
#: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 `(("pkg-config" ,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
|
|
`(("pkg-config" ,pkg-config)))
|
|
(propagated-inputs
|
|
`(("libdvdcss" ,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
|
|
`(("libdvdread" ,libdvdread)
|
|
("libpng" ,libpng)
|
|
("imagemagick" ,imagemagick)
|
|
("libxml2" ,libxml2)
|
|
("freetype" ,freetype)))
|
|
(native-inputs
|
|
`(("pkg-config" ,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 "http://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
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("libdvdread" ,libdvdread)))
|
|
(home-page "http://dvdnav.mplayerhq.hu/")
|
|
(synopsis "Library for video DVD navigation features")
|
|
(description
|
|
"Libdvdnav is a library for developers of multimedia
|
|
applications. It allows easy use of sophisticated DVD navigation features
|
|
such as DVD menus, multiangle playback and even interactive DVD games. All
|
|
this functionality is provided through a simple API which provides the DVD
|
|
playback as a single logical stream of blocks, intermitted by special
|
|
dvdnav events to report certain conditions. The main usage of libdvdnav is
|
|
a loop regularly calling a function to get the next block, surrounded by
|
|
additional calls to tell the library of user interaction. The whole
|
|
DVD virtual machine and internal playback states are completely
|
|
encapsulated.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public libdvdcss
|
|
(package
|
|
(name "libdvdcss")
|
|
(version "1.4.2")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.videolan.org/pub/"
|
|
name "/" version "/"
|
|
name "-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0x957zzpf4w2cp8zlk29prj8i2q6hay3lzdzsyz8y3cwxivyvhkq"))))
|
|
(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.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://files.dthompson.us/srt2vtt/srt2vtt-"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"16b377znjm6qlga5yb8aj7b7bcisa1ghcnj2lrb1d30lvxp4liif"))))
|
|
(build-system gnu-build-system)
|
|
(inputs
|
|
`(("guile" ,guile-2.0)))
|
|
(synopsis "SubRip to WebVTT subtitle converter")
|
|
(description "srt2vtt converts SubRip formatted subtitles to WebVTT format
|
|
for use with HTML5 video.")
|
|
(home-page "https://dthompson.us/projects/srt2vtt.html")
|
|
(license license:gpl3+)))
|
|
|
|
(define-public avidemux
|
|
(package
|
|
(name "avidemux")
|
|
(version "2.7.4")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"mirror://sourceforge/avidemux/avidemux/" version "/"
|
|
"avidemux_" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1acdb3m37vdzzbm8mwyibcn8msi7birb5v30qfi7jli5r00src3x"))
|
|
(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" ,qttools)
|
|
("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)
|
|
("libva" ,libva)
|
|
("libvdpau" ,libvdpau)
|
|
("libvorbis" ,libvorbis)
|
|
("libvpx" ,libvpx)
|
|
("libxv" ,libxv)
|
|
("pulseaudio" ,pulseaudio)
|
|
("qtbase" ,qtbase)
|
|
("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.1.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 "49")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/vapoursynth/vapoursynth.git")
|
|
(commit (string-append "R" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1d298mlb24nlc2x7pixfbkd0qbpv4c706c32idsgpi96z1spkhvl"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("autoconf" ,autoconf)
|
|
("automake" ,automake)
|
|
("cython" ,python-cython)
|
|
("libtool" ,libtool)
|
|
("pkg-config" ,pkg-config)
|
|
("python" ,python)
|
|
("yasm" ,yasm)))
|
|
(inputs
|
|
`(("ffmpeg" ,ffmpeg)
|
|
("libass" ,libass)
|
|
("tesseract-ocr" ,tesseract-ocr)
|
|
("zimg" ,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 `(("yasm" ,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 "1.3.1")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (pypi-uri "streamlink" version))
|
|
(sha256
|
|
(base32
|
|
"0cnlg3ra3g6dml4xfy9ysy9b4qwyn458fadd8ac44cfwi3v4gq6y"))))
|
|
(build-system python-build-system)
|
|
(home-page "https://github.com/streamlink/streamlink")
|
|
(native-inputs
|
|
`(("python-freezegun" ,python-freezegun)
|
|
("python-pytest" ,python-pytest)
|
|
("python-mock" ,python-mock)
|
|
("python-requests-mock" ,python-requests-mock)))
|
|
(propagated-inputs
|
|
`(("python-pysocks" ,python-pysocks)
|
|
("python-websocket-client" ,python-websocket-client)
|
|
("python-iso3166" ,python-iso3166)
|
|
("python-iso639" ,python-iso639)
|
|
("python-isodate" ,python-isodate)
|
|
("python-pycryptodome" ,python-pycryptodome)
|
|
("python-requests" ,python-requests)
|
|
("python-urllib3" ,python-urllib3)))
|
|
(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.git")
|
|
(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
|
|
`(("python-requests" ,python-requests)
|
|
("streamlink" ,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 "6.18.0")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/mltframework/mlt.git")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0iiqym15n8kbnjzj0asmm86gs23yykz0va5b475cc4v2vv5admgx"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:tests? #f ; no tests
|
|
#:make-flags '("CC=gcc" "CXX=g++")
|
|
#:configure-flags
|
|
(list "--enable-gpl3"
|
|
"--enable-gpl")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after
|
|
'configure 'override-LDFLAGS
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(substitute* "config.mak"
|
|
(("LDFLAGS\\+=")
|
|
(string-append "LDFLAGS+=-Wl,-rpath="
|
|
(assoc-ref outputs "out")
|
|
"/lib ")))
|
|
#t)))))
|
|
(inputs
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("ffmpeg" ,ffmpeg-3.4)
|
|
("fftw" ,fftw)
|
|
("frei0r-plugins" ,frei0r-plugins)
|
|
("gdk-pixbuf" ,gdk-pixbuf)
|
|
("gtk+" ,gtk+-2)
|
|
("libxml2" ,libxml2)
|
|
("jack" ,jack-1)
|
|
("ladspa" ,ladspa)
|
|
("libsamplerate" ,libsamplerate)
|
|
("pulseaudio" ,pulseaudio)
|
|
("qtbase" ,qtbase)
|
|
("qtsvg" ,qtsvg)
|
|
("sdl" ,sdl)
|
|
("sox" ,sox)))
|
|
(native-inputs
|
|
`(("pkg-config" ,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:gpl3)))
|
|
|
|
(define-public v4l-utils
|
|
(package
|
|
(name "v4l-utils")
|
|
(version "1.16.6")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://linuxtv.org/downloads/v4l-utils"
|
|
"/v4l-utils-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1bkqlrizx0j2rd6ybam2x17bjrpwzl4v4szmnzm3cmixis3w3npr"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
'(#:configure-flags
|
|
(list (string-append "--with-udevdir="
|
|
(assoc-ref %outputs "out")
|
|
"/lib/udev"))))
|
|
(native-inputs
|
|
`(("perl" ,perl)
|
|
("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("glu" ,glu)
|
|
("libjpeg" ,libjpeg-turbo)
|
|
("libx11" ,libx11)
|
|
("qtbase" ,qtbase)
|
|
("eudev" ,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 "25.0.7")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/obsproject/obs-studio.git")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"02ppkp1j5yxnxv663nz5wv4vbcg3k53l43xq94d1p1b3j4wxwq8b"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:tests? #f)) ; no tests
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("curl" ,curl)
|
|
("eudev" ,eudev)
|
|
("ffmpeg" ,ffmpeg)
|
|
("fontconfig" ,fontconfig)
|
|
("freetype" ,freetype)
|
|
("jack" ,jack-1)
|
|
("jansson" ,jansson)
|
|
("libx264" ,libx264)
|
|
("libxcomposite" ,libxcomposite)
|
|
("mesa" ,mesa)
|
|
("pulseaudio" ,pulseaudio)
|
|
("qtbase" ,qtbase)
|
|
("qtsvg" ,qtsvg)
|
|
("qtx11extras" ,qtx11extras)
|
|
("speex" ,speex)
|
|
("v4l-utils" ,v4l-utils)
|
|
("zlib" ,zlib)))
|
|
(synopsis "Live streaming software")
|
|
(description "Open Broadcaster Software provides a graphical interface for
|
|
video recording and live streaming. OBS supports capturing audio and video
|
|
from many input sources such as webcams, X11 (for screencasting), PulseAudio,
|
|
and JACK.")
|
|
(home-page "https://obsproject.com")
|
|
(supported-systems '("x86_64-linux" "i686-linux"))
|
|
(license license:gpl2+)))
|
|
|
|
(define-public libvdpau
|
|
(package
|
|
(name "libvdpau")
|
|
(version "1.3")
|
|
(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
|
|
"1fb1nh5apr9kzx9bm2lysjwpyva1s60b2l2p230nqgvb11q25hd2"))))
|
|
(build-system meson-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("libx11" ,libx11 "out")
|
|
("libxext" ,libxext)
|
|
("xorgproto" ,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.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://secure.freedesktop.org/~aplattner/vdpau/"
|
|
name "-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1i2b0k9h8r0lnxlrkgqzmrjakgaw3f1ygqqwzx8w6676g85rcm20"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("pkg-config" ,pkg-config)
|
|
("libx11" ,libx11)))
|
|
(propagated-inputs
|
|
`(("libvdpau" ,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
|
|
`(("libvdpau" ,libvdpau)
|
|
("pkg-config" ,pkg-config)))
|
|
(inputs
|
|
`(("libva" ,libva)
|
|
("mesa" ,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.3.8.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "mirror://sourceforge/" name "/" name "/"
|
|
version "/recordmydesktop-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"133kkl5j0r877d41bzj7kj0vf3xm8x80yyx2n8nqxrva304f58ik"))))
|
|
(build-system gnu-build-system)
|
|
(inputs `(("popt" ,popt)
|
|
("zlib" ,zlib)
|
|
("libx11" ,libx11)
|
|
("libice" ,libice)
|
|
("libsm" ,libsm)
|
|
("libxfixes" ,libxfixes)
|
|
("libxdamage" ,libxdamage)
|
|
("libxext" ,libxext)
|
|
("alsa-lib" ,alsa-lib)
|
|
("libvorbis" ,libvorbis)
|
|
("libtheora" ,libtheora)))
|
|
(home-page "http://recordmydesktop.sourceforge.net/")
|
|
(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.3.11")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/MaartenBaert/ssr.git")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0n702dnv4qshgn3b90ixvplfafjhgz6040yir5vy8khjdpciysq4"))))
|
|
(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
|
|
`(("alsa-lib" ,alsa-lib)
|
|
("ffmpeg" ,ffmpeg)
|
|
("glu" ,glu)
|
|
("jack" ,jack-1)
|
|
("libxi" ,libxi)
|
|
("pulseaudio" ,pulseaudio)
|
|
("qtbase" ,qtbase)
|
|
("qtx11extras" ,qtx11extras)))
|
|
(native-inputs `(("pkg-config" ,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
|
</