summaryrefslogtreecommitdiff
path: root/gnu/packages/spice.scm
diff options
context:
space:
mode:
authorDavid Craven <david@craven.ch>2016-07-24 19:52:30 +0200
committerLeo Famulari <leo@famulari.name>2016-07-28 17:08:42 -0400
commit6144dff5165d6e981ec5a927179b1b4e0cdc7843 (patch)
tree9f85a77346a906954796778f47905e0f1644f6eb /gnu/packages/spice.scm
parent33b0f4a4b2fb4eea8a3edb59e272e338bd1bf261 (diff)
gnu: Add virt-viewer.
* gnu/packages/spice.scm (virt-viewer): New variable. Signed-off-by: Leo Famulari <leo@famulari.name>
Diffstat (limited to 'gnu/packages/spice.scm')
-rw-r--r--gnu/packages/spice.scm44
1 files changed, 44 insertions, 0 deletions
diff --git a/gnu/packages/spice.scm b/gnu/packages/spice.scm
index 581c2cd9e0..1a356b0189 100644
--- a/gnu/packages/spice.scm
+++ b/gnu/packages/spice.scm
@@ -34,6 +34,7 @@
#:use-module (gnu packages xorg)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xiph)
+ #:use-module (gnu packages xml)
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix packages)
@@ -253,3 +254,46 @@ Internet and from a wide variety of machine architectures.")
resolution scaling on graphical console window resize.")
(home-page "http://www.spice-space.org")
(license license:gpl3+)))
+
+(define-public virt-viewer
+ (package
+ (name "virt-viewer")
+ (version "4.0")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://virt-manager.org/download/sources/virt-viewer/"
+ "virt-viewer-" version ".tar.gz"))
+ (sha256
+ (base32
+ "07zsi1fqg05mag1ayniaqj25fzb6dxg76d4ka5196lq4l477nhhw"))))
+ (build-system gnu-build-system)
+ (inputs
+ `(("gtk+" ,gtk+)
+ ("libcap" ,libcap)
+ ("libxml2" ,libxml2)
+ ("openssl" ,openssl)
+ ("spice-gtk" ,spice-gtk)
+ ("spice-protocol" ,spice-protocol)))
+ (native-inputs
+ `(("glib:bin" ,glib "bin")
+ ("intltool" ,intltool)
+ ("pkg-config" ,pkg-config)))
+ (arguments
+ `(#:configure-flags
+ '("--with-spice-gtk")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after
+ 'install 'wrap-remote-viewer
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
+ (wrap-program (string-append out "/bin/remote-viewer")
+ `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
+ #t)))))
+ (synopsis "Graphical console client for virtual machines")
+ (description "Graphical console client for virtual machines using SPICE or
+VNC.")
+ (home-page "https://virt-manager.org")
+ (license license:gpl2+)))