gnu: Add guvcview.

* gnu/packages/video.scm (guvcview): New variable.
This commit is contained in:
Ludovic Courtès 2020-06-16 23:57:33 +02:00
parent ce84582b51
commit c941b3128b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -121,11 +121,13 @@ (define-module (gnu packages video)
#:use-module (gnu packages iso-codes) #:use-module (gnu packages iso-codes)
#:use-module (gnu packages libidn) #:use-module (gnu packages libidn)
#:use-module (gnu packages libreoffice) #:use-module (gnu packages libreoffice)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages lua) #:use-module (gnu packages lua)
#:use-module (gnu packages m4) #:use-module (gnu packages m4)
#:use-module (gnu packages man) #:use-module (gnu packages man)
#:use-module (gnu packages markup) #:use-module (gnu packages markup)
#:use-module (gnu packages maths)
#:use-module (gnu packages mp3) #:use-module (gnu packages mp3)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
@ -4097,3 +4099,42 @@ (define-public wf-recorder
wlroots-based compositors. More specifically, those that support wlroots-based compositors. More specifically, those that support
@code{wlr-screencopy-v1} and @code{xdg-output}.") @code{wlr-screencopy-v1} and @code{xdg-output}.")
(license license:expat))) (license license:expat)))
(define-public guvcview
(package
(name "guvcview")
(version "2.0.6")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/guvcview/source/guvcview-"
"src-" version ".tar.gz"))
(sha256
(base32
"11byyfpkcik7wvf2qic77zjamfr2rhji97dpj1gy2fg1bvpiqf4m"))))
(build-system gnu-build-system)
(arguments
;; There are no tests and "make check" would fail on an intltool error.
'(#:tests? #f))
(native-inputs
`(("pkg-config" ,pkg-config)
("intltool" ,intltool)))
(inputs
`(("gtk+" ,gtk+)
("eudev" ,eudev)
("libusb" ,libusb)
("v4l-utils" ,v4l-utils) ;libv4l2
("ffmpeg" ,ffmpeg) ;libavcodec, libavutil
("sdl2" ,sdl2)
("gsl" ,gsl)
("portaudio" ,portaudio)
("alsa-lib" ,alsa-lib)))
(home-page "http://guvcview.sourceforge.net/")
(synopsis "Control your webcam and capture videos and images")
(description
"GTK+ UVC Viewer (guvcview) is a graphical application to control a
webcam accessible with Video4Linux (V4L2) and to capture videos and images.
It provides control over precise settings of the webcam such as exposure,
brightness, contrast, and frame rate.")
;; 'COPYING' is GPLv3 but source headers say GPLv2+.
(license license:gpl2+)))