all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [bug#68728] [PATCH 0/2] gnu: virt-manager: Fix qemu path substitution.
@ 2024-01-26  4:50 Hilton Chain via Guix-patches via
  2024-01-26  4:58 ` [bug#68728] [PATCH 1/2] gnu: virt-manager: Update package style Hilton Chain via Guix-patches via
                   ` (2 more replies)
  0 siblings, 3 replies; 4+ messages in thread
From: Hilton Chain via Guix-patches via @ 2024-01-26  4:50 UTC (permalink / raw)
  To: 68728; +Cc: Hilton Chain

Since virt-manager has been using ‘glob.glob("/usr/bin/qemu-system-*")’ in its
source, the regexp ‘"/usr(/bin/qemu-system-[a-zA-Z0-9_-]+)"’ in our package
definition doesn't match.  This series adjusts the regexp to make the default
URI available again.

Thanks

Hilton Chain (2):
  gnu: virt-manager: Update package style.
  gnu: virt-manager: Fix qemu path substitution.

 gnu/packages/virtualization.scm | 153 ++++++++++++++++----------------
 1 file changed, 75 insertions(+), 78 deletions(-)


base-commit: fdffaa2256775a48585dbc563d646fdccb96f284
--
2.41.0




^ permalink raw reply	[flat|nested] 4+ messages in thread

* [bug#68728] [PATCH 1/2] gnu: virt-manager: Update package style.
  2024-01-26  4:50 [bug#68728] [PATCH 0/2] gnu: virt-manager: Fix qemu path substitution Hilton Chain via Guix-patches via
@ 2024-01-26  4:58 ` Hilton Chain via Guix-patches via
  2024-01-26  4:58 ` [bug#68728] [PATCH 2/2] gnu: virt-manager: Fix qemu path substitution Hilton Chain via Guix-patches via
       [not found] ` <handler.68728.B.1706244739921.ack@debbugs.gnu.org>
  2 siblings, 0 replies; 4+ messages in thread
From: Hilton Chain via Guix-patches via @ 2024-01-26  4:58 UTC (permalink / raw)
  To: 68728; +Cc: Hilton Chain, Hilton Chain

* gnu/packages/virtualization.scm (virt-manager)[arguments]: Remove trailing #t.
Use gexps.
[inputs]: Sort alphabetically.
[native-inputs]: Remove labels.

Change-Id: I6efe95061ff13feb01c45809004884ab0a563d0c
---
 gnu/packages/virtualization.scm | 153 ++++++++++++++++----------------
 1 file changed, 75 insertions(+), 78 deletions(-)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 35bac9a5ac..1c971471c7 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -1623,98 +1623,95 @@ (define-public virt-manager
                 "18lhlnd3gmyzhbnjc16gdyzhjcd33prlxnca4xlidiidngbq21lm"))))
     (build-system python-build-system)
     (arguments
-     `(#:use-setuptools? #f          ; uses custom distutils 'install' command
-       #:tests? #f                      ; TODO The tests currently fail
-                                        ; RuntimeError: Loop condition wasn't
-                                        ; met
-       #:imported-modules ((guix build glib-or-gtk-build-system)
-                           ,@%python-build-system-modules)
-       #:modules ((ice-9 match)
-                  (srfi srfi-26)
-                  (guix build python-build-system)
-                  ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
-                  (guix build utils))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'fix-setup
-           (lambda* (#:key outputs #:allow-other-keys)
-             (substitute* "virtinst/buildconfig.py"
-               (("/usr") (assoc-ref outputs "out")))
-             #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/createconn.py"
-               (("/usr(/bin/qemu-system-[a-zA-Z0-9_-]+)" _ suffix)
-                (search-input-file inputs suffix)))
-             #t))
-         (add-before 'wrap 'wrap-with-GI_TYPELIB_PATH
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((bin       (string-append (assoc-ref outputs "out") "/bin"))
-                    (bin-files (find-files bin ".*"))
-                    (paths     (map (match-lambda
-                                      ((output . directory)
-                                       (let* ((girepodir (string-append
-                                                          directory
-                                                          "/lib/girepository-1.0")))
-                                         (if (file-exists? girepodir)
-                                             girepodir #f))))
-                                    inputs)))
-               (for-each (lambda (file)
-                           (format #t "wrapping ~a\n" file)
-                           (wrap-program file
-                             `("GI_TYPELIB_PATH" ":" prefix
-                               ,(filter identity paths))))
-                         bin-files))
-             #t))
-         (replace 'check
-           (lambda* (#:key tests? #:allow-other-keys)
-             (when tests?
-               (setenv "HOME" "/tmp")
-               (setenv "XDG_CACHE_HOME" "/tmp")
-               (system "Xvfb :1 &")
-               (setenv "DISPLAY" ":1")
-               ;; Dogtail requires that Assistive Technology support be enabled
-               (setenv "GTK_MODULES" "gail:atk-bridge")
-               (invoke "dbus-run-session" "--" "pytest" "--uitests"))
-             #t))
-         (add-after 'install 'glib-or-gtk-compile-schemas
-           (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
-         (add-after 'wrap 'glib-or-gtk-wrap
-           (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
+     (list #:use-setuptools? #f      ; uses custom distutils 'install' command
+           #:tests? #f               ; TODO: The tests currently fail
+                                     ; RuntimeError: Loop condition wasn't met
+           #:imported-modules
+           `((guix build glib-or-gtk-build-system)
+             ,@%python-build-system-modules)
+           #:modules
+           '((ice-9 match)
+             (srfi srfi-26)
+             (guix build python-build-system)
+             ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
+             (guix build utils))
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'fix-setup
+                 (lambda _
+                   (substitute* "virtinst/buildconfig.py"
+                     (("/usr") #$output))))
+               (add-after 'unpack 'fix-default-uri
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   ;; Xen is not available for now - so only patch qemu.
+                   (substitute* "virtManager/createconn.py"
+                     (("/usr(/bin/qemu-system-[a-zA-Z0-9_-]+)" _ suffix)
+                      (search-input-file inputs suffix)))))
+               (add-before 'wrap 'wrap-with-GI_TYPELIB_PATH
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let* ((bin       (string-append #$output "/bin"))
+                          (bin-files (find-files bin ".*"))
+                          (paths     (map (match-lambda
+                                            ((output . directory)
+                                             (let* ((girepodir (string-append
+                                                                directory
+                                                                "/lib/girepository-1.0")))
+                                               (if (file-exists? girepodir)
+                                                   girepodir #f))))
+                                          inputs)))
+                     (for-each (lambda (file)
+                                 (format #t "wrapping ~a\n" file)
+                                 (wrap-program file
+                                   `("GI_TYPELIB_PATH" ":" prefix
+                                     ,(filter identity paths))))
+                               bin-files))))
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (setenv "HOME" "/tmp")
+                     (setenv "XDG_CACHE_HOME" "/tmp")
+                     (system "Xvfb :1 &")
+                     (setenv "DISPLAY" ":1")
+                     ;; Dogtail requires that Assistive Technology support be enabled
+                     (setenv "GTK_MODULES" "gail:atk-bridge")
+                     (invoke "dbus-run-session" "--" "pytest" "--uitests"))))
+               (add-after 'install 'glib-or-gtk-compile-schemas
+                 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
+               (add-after 'wrap 'glib-or-gtk-wrap
+                 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
     (inputs
      (list dconf
            gtk+
            gtk-vnc
            gtksourceview-4
+           libosinfo
            libvirt
            libvirt-glib
-           libosinfo
-           vte
            python-libvirt
-           python-requests
+           python-libxml2
            python-pycairo
            python-pygobject
-           python-libxml2
-           spice-gtk))
+           python-requests
+           spice-gtk
+           vte))
     ;; virt-manager searches for qemu-img or kvm-img in the PATH.
     (propagated-inputs
      (list qemu))
     (native-inputs
-     `(("glib" ,glib "bin")             ; glib-compile-schemas
-       ("gobject-introspection" ,gobject-introspection)
-       ("gtk+" ,gtk+ "bin")             ; gtk-update-icon-cache
-       ("perl" ,perl)                   ; pod2man
-       ("intltool" ,intltool)
-       ("rst2man" ,python-docutils)
-       ;; The following are required for running the tests
-       ;; ("python-pytest" ,python-pytest)
-       ;; ("python-dogtail" ,python-dogtail)
-       ;; ("xvfb" ,xorg-server-for-tests)
-       ;; ("dbus" ,dbus)
-       ;; ("at-spi2-core" ,at-spi2-core)
-       ;; ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
-       ))
+     (list `(,glib "bin")               ; glib-compile-schemas
+           gobject-introspection
+           `(,gtk+ "bin")               ; gtk-update-icon-cache
+           intltool
+           perl                         ; pod2man
+           python-docutils              ; rst2man
+           ;; The following are required for running the tests
+           ;; at-spi2-core
+           ;; dbus
+           ;; gsettings-desktop-schemas
+           ;; python-dogtail
+           ;; python-pytest
+           ;; xorg-server-for-tests        ; xvfb
+           ))
     (home-page "https://virt-manager.org/")
     (synopsis "Manage virtual machines")
     (description
-- 
2.41.0





^ permalink raw reply related	[flat|nested] 4+ messages in thread

* [bug#68728] [PATCH 2/2] gnu: virt-manager: Fix qemu path substitution.
  2024-01-26  4:50 [bug#68728] [PATCH 0/2] gnu: virt-manager: Fix qemu path substitution Hilton Chain via Guix-patches via
  2024-01-26  4:58 ` [bug#68728] [PATCH 1/2] gnu: virt-manager: Update package style Hilton Chain via Guix-patches via
@ 2024-01-26  4:58 ` Hilton Chain via Guix-patches via
       [not found] ` <handler.68728.B.1706244739921.ack@debbugs.gnu.org>
  2 siblings, 0 replies; 4+ messages in thread
From: Hilton Chain via Guix-patches via @ 2024-01-26  4:58 UTC (permalink / raw)
  To: 68728; +Cc: Hilton Chain, Hilton Chain

* gnu/packages/virtualization.scm (virt-manager)[arguments]<#:phases>: Adjust
‘fix-default-uri’ according to source change.

Change-Id: Ic5085841db4759096b844d6f92f81d90554709d1
---
 gnu/packages/virtualization.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 1c971471c7..5888d777ea 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -1645,8 +1645,8 @@ (define-public virt-manager
                  (lambda* (#:key inputs #:allow-other-keys)
                    ;; Xen is not available for now - so only patch qemu.
                    (substitute* "virtManager/createconn.py"
-                     (("/usr(/bin/qemu-system-[a-zA-Z0-9_-]+)" _ suffix)
-                      (search-input-file inputs suffix)))))
+                     (("/usr(/bin/qemu-system-\\*)" _ suffix)
+                      (string-append #$(this-package-input "qemu") suffix)))))
                (add-before 'wrap 'wrap-with-GI_TYPELIB_PATH
                  (lambda* (#:key inputs #:allow-other-keys)
                    (let* ((bin       (string-append #$output "/bin"))
-- 
2.41.0





^ permalink raw reply related	[flat|nested] 4+ messages in thread

* bug#68728: Acknowledgement ([PATCH 0/2] gnu: virt-manager: Fix qemu path substitution.)
       [not found] ` <handler.68728.B.1706244739921.ack@debbugs.gnu.org>
@ 2024-02-01  6:33   ` Hilton Chain via Guix-patches via
  0 siblings, 0 replies; 4+ messages in thread
From: Hilton Chain via Guix-patches via @ 2024-02-01  6:33 UTC (permalink / raw)
  To: 68728-done

Applied as e6814d6c342a...1eeeeb8add44, closing.




^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2024-02-01  6:34 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-01-26  4:50 [bug#68728] [PATCH 0/2] gnu: virt-manager: Fix qemu path substitution Hilton Chain via Guix-patches via
2024-01-26  4:58 ` [bug#68728] [PATCH 1/2] gnu: virt-manager: Update package style Hilton Chain via Guix-patches via
2024-01-26  4:58 ` [bug#68728] [PATCH 2/2] gnu: virt-manager: Fix qemu path substitution Hilton Chain via Guix-patches via
     [not found] ` <handler.68728.B.1706244739921.ack@debbugs.gnu.org>
2024-02-01  6:33   ` bug#68728: Acknowledgement ([PATCH 0/2] gnu: virt-manager: Fix qemu path substitution.) Hilton Chain via Guix-patches via

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.