guix-glicid/glicid/packages/virtualization.scm

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

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

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