(define-module (home-services virtualization)
               #:use-module (guix packages)
               #:use-module (gnu packages)
               #:use-module (gnu packages virtualization)
               #:use-module (gnu services)
               #:use-module (gnu services configuration)
               #:use-module (gnu services virtualization)
               #:use-module (gnu home services)
               #:use-module (home-packages firmware)
               #:use-module (guix gexp))

(define libvirt-new
  (package
    (inherit libvirt)
    (inputs
      (modify-inputs (package-inputs libvirt)
                     (append ovmf-new)))))

(define-public libvirt-service-type-new
  (service-type 
    (name 'libvirt-new)
    (extensions
      (list
        (service-extension libvirt-service-type
                           (lambda (config)
                           (libvirt-configuration
                             (unix-sock-group "libvirt")))
                           )
    (default-value #f)
    (description "Libvirt with OVMF")))