guix-glicid/glicid/packages/virtualization.scm

(define-module (glicid packages virtualization)
  #:use-module (guix packages)
  #:use-module (guix gexp)
  #:use-module (gnu packages)
  #:use-module (guix utils)
  #:use-module (gnu packages virtualization)
  #:use-module (gnu packages storage)
  #:use-module (guix download)
  #:use-module (glicid utils))

(define-public qemu-latest
  qemu)
(define-public qemu-minimal-latest
  qemu-minimal)

(define-public qemu-with-rbd
  (package
    (inherit qemu-latest)
    (name "qemu-with-rbd")
    (arguments
     (substitute-keyword-arguments (package-arguments qemu)
       ((#:tests? _ #f)
        #f)))
    (inputs `(("ceph:lib" ,ceph "lib")
              ,@(package-inputs qemu)))))

(define-public qemu-minimal-with-rbd
  (package
    (inherit qemu-minimal-latest)
    (name "qemu-minimal-with-rbd")
    (arguments
     (substitute-keyword-arguments `(#:tests? #f
                                     ,@(package-arguments qemu-minimal))
       ))
    (inputs `(("ceph:lib" ,ceph "lib")
              ,@(package-inputs qemu-minimal)))))

(define-public libvirt-8.5
  (package
    (inherit libvirt)
    (name "libvirt")
    (version "8.5.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://libvirt.org/sources/libvirt-"
                                  version ".tar.xz"))
              (sha256
               (base32
                "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
              (patches (search-patches
                        "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))