me
/
guix
Archived
1
0
Fork 0
Code

gnu: virt-manager: Update to 2.2.1. 

* gnu/packages/virtualization.scm (virt-manager): Update to version
2.2.1.  Point to the correct file in fix-setup and fix-default-uri
phases.  Add fix-qemu-img-reference phase.  Add gtksourceview as an
input.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Miguel Ángel Arruga Vivas 2019-11-02 00:45:48 +01:00 committed by Ludovic Courtès
parent 0e00c1c417
commit 845bf4f477
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/virtualization.scm
View File

@ -577,7 +577,7 @@ virtualization library.")
(define-public virt-manager
(package
(name "virt-manager")
(version "2.1.0")
(version "2.2.1")
(source (origin
(method url-fetch)
(uri (string-append "https://virt-manager.org/download/sources"
@ -585,7 +585,7 @@ virtualization library.")
version ".tar.gz"))
(sha256
(base32
"1m038kyngmxlgz91c7z8g73lb2wy0ajyah871a3g3wb5cnd0dsil"))))
"06ws0agxlip6p6n3n43knsnjyd91gqhh2dadgc33wl9lx1k8vn6g"))))
(build-system python-build-system)
(arguments
`(#:use-setuptools? #f ; uses custom distutils 'install' command
@ -603,13 +603,19 @@ virtualization library.")
(modify-phases %standard-phases
(add-after 'unpack 'fix-setup
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "virtcli/cliconfig.py"
(substitute* "virtinst/buildconfig.py"
(("/usr") (assoc-ref outputs "out")))
#t))
(add-after 'unpack 'fix-qemu-img-reference
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "virtconv/formats.py"
(("/usr(/bin/qemu-img)" _ suffix)
(string-append (assoc-ref inputs "qemu") suffix)))
#t))
(add-after 'unpack 'fix-default-uri
(lambda* (#:key inputs #:allow-other-keys)
;; Xen is not available for now - so only patch qemu.
(substitute* "virtManager/connect.py"
(substitute* "virtManager/createconn.py"
(("/usr(/bin/qemu-system)" _ suffix)
(string-append (assoc-ref inputs "qemu") suffix)))
#t))
@ -640,6 +646,7 @@ virtualization library.")
`(("dconf" ,dconf)
("gtk+" ,gtk+)
("gtk-vnc" ,gtk-vnc)
("gtksourceview" ,gtksourceview)
("libvirt" ,libvirt)
("libvirt-glib" ,libvirt-glib)
("libosinfo" ,libosinfo)