me
/
guix
Archived
1
0
Fork 0
Code

gnu: virt-viewer: Update to 11.0 and enable more features. 

* gnu/packages/spice.scm (virt-viewer): Update to 11.0.
[build-system]: Use meson-build-system.
[arguments]: Delete field.
[native-inputs]: Replace intltool with gettext-minimal.  Add python.
[inputs]: Add bash-completion, libgovirt, libvirt-glib and vte.
master
Maxim Cournoyer 2022-09-15 22:27:11 -04:00
parent 87ce7a6f71
commit 02c5ed4f1b
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 25 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
gnu/packages/spice.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -23,22 +24,26 @@
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages cyrus-sasl) #:use-module (gnu packages cyrus-sasl)
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages libusb) #:use-module (gnu packages libusb)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages nss) #:use-module (gnu packages nss)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages pulseaudio) #:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages security-token) #:use-module (gnu packages security-token)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (gnu packages xdisorg) #:use-module (gnu packages xdisorg)
#:use-module (gnu packages xiph) #:use-module (gnu packages xiph)
@ -369,35 +374,32 @@ share smart cards from client system to local or remote virtual machines.")
(define-public virt-viewer (define-public virt-viewer
(package (package
(name "virt-viewer") (name "virt-viewer")
(version "7.0") (version "11.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"https://virt-manager.org/download/sources/virt-viewer/" "https://virt-manager.org/download/sources/virt-viewer/"
"virt-viewer-" version ".tar.gz")) "virt-viewer-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"00y9vi69sja4pkrfnvrkwsscm41bqrjzvp8aijb20pvg6ymczhj7")))) "1l5bv6x6j21l487mk3n93ai121gg62n6b069r2jpf72cbhra4gx4"))))
(build-system gnu-build-system) (build-system meson-build-system)
(inputs
(list gtk+ gtk-vnc libcap libxml2 spice-gtk))
(native-inputs (native-inputs
`(("glib:bin" ,glib "bin") (list `(,glib "bin")
("intltool" ,intltool) gettext-minimal
("pkg-config" ,pkg-config))) perl ;for pod2man
(arguments pkg-config
`(#:configure-flags python))
'("--with-spice-gtk") (inputs
#:phases (list bash-completion
(modify-phases %standard-phases gtk+
(add-after gtk-vnc
'install 'wrap-remote-viewer libcap
(lambda* (#:key inputs outputs #:allow-other-keys) libgovirt
(let ((out (assoc-ref outputs "out")) libvirt-glib
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) libxml2
(wrap-program (string-append out "/bin/remote-viewer") spice-gtk
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))) vte))
#t)))))
(synopsis "Graphical console client for virtual machines") (synopsis "Graphical console client for virtual machines")
(description "Graphical console client for virtual machines using SPICE or (description "Graphical console client for virtual machines using SPICE or
VNC.") VNC.")