mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 23:46:13 -05:00
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>
This commit is contained in:
parent
0e00c1c417
commit
845bf4f477
1 changed files with 11 additions and 4 deletions
|
@ -577,7 +577,7 @@ (define-public python2-libvirt
|
|||
(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 @@ (define-public virt-manager
|
|||
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 @@ (define-public virt-manager
|
|||
(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 @@ (define-public virt-manager
|
|||
`(("dconf" ,dconf)
|
||||
("gtk+" ,gtk+)
|
||||
("gtk-vnc" ,gtk-vnc)
|
||||
("gtksourceview" ,gtksourceview)
|
||||
("libvirt" ,libvirt)
|
||||
("libvirt-glib" ,libvirt-glib)
|
||||
("libosinfo" ,libosinfo)
|
||||
|
|
Loading…
Reference in a new issue