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"))))))